From mboxrd@z Thu Jan 1 00:00:00 1970 From: Mikael Fornius Subject: [PATCH 3/3] Do not fontify subscripts of property keys. Date: Thu, 10 Jun 2010 16:54:51 +0200 Message-ID: <1276181691-7544-4-git-send-email-mfo@abc.se> References: <1276181691-7544-1-git-send-email-mfo@abc.se> Return-path: Received: from [140.186.70.92] (port=33257 helo=eggs.gnu.org) by lists.gnu.org with esmtp (Exim 4.43) id 1OMj9o-0000sZ-3W for emacs-orgmode@gnu.org; Thu, 10 Jun 2010 10:55:01 -0400 Received: from Debian-exim by eggs.gnu.org with spam-scanned (Exim 4.69) (envelope-from ) id 1OMj9l-0006BS-QP for emacs-orgmode@gnu.org; Thu, 10 Jun 2010 10:54:59 -0400 Received: from violet.abc.se ([62.80.200.155]:56518) by eggs.gnu.org with esmtp (Exim 4.69) (envelope-from ) id 1OMj9l-0006Ae-CG for emacs-orgmode@gnu.org; Thu, 10 Jun 2010 10:54:57 -0400 In-Reply-To: <1276181691-7544-1-git-send-email-mfo@abc.se> List-Id: "General discussions about Org-mode." List-Unsubscribe: , List-Archive: List-Post: List-Help: List-Subscribe: , Sender: emacs-orgmode-bounces+geo-emacs-orgmode=m.gmane.org@gnu.org Errors-To: emacs-orgmode-bounces+geo-emacs-orgmode=m.gmane.org@gnu.org To: emacs-orgmode@gnu.org Cc: Mikael Fornius * org.el (org-raise-scripts): Do not fontify sub/superscripts of text with face `org-special-keyword'. Makes property keys as :LAST_REPEAT: display correctly. --- lisp/org.el | 10 ++++++---- 1 files changed, 6 insertions(+), 4 deletions(-) diff --git a/lisp/org.el b/lisp/org.el index 7715ad7..9c7a427 100644 --- a/lisp/org.el +++ b/lisp/org.el @@ -5515,14 +5515,16 @@ and subscriipts." org-match-substring-regexp org-match-substring-with-braces-regexp) limit t) - (let* ((pos (point)) table-p comment-p emph-p link-p) - (setq emph-p (get-text-property (match-beginning 3) 'org-emphasis)) - (setq link-p (get-text-property (match-beginning 3) 'mouse-face)) + (let* ((pos (point)) table-p comment-p + (mpos (match-beginning 3)) + (emph-p (get-text-property mpos 'org-emphasis)) + (link-p (get-text-property mpos 'mouse-face)) + (keyw-p (eq 'org-special-keyword (get-text-property mpos 'face)))) (goto-char (point-at-bol)) (setq table-p (org-looking-at-p org-table-dataline-regexp) comment-p (org-looking-at-p "[ \t]*#")) (goto-char pos) - (if (or comment-p emph-p link-p) + (if (or comment-p emph-p link-p keyw-p) t (put-text-property (match-beginning 3) (match-end 0) 'display -- 1.7.1