From mboxrd@z Thu Jan 1 00:00:00 1970 From: julien Barnier Subject: [PATCH] Fix some #+ blocks fontification when there is no lang attribute Date: Fri, 1 Jul 2011 14:46:49 +0000 (UTC) Message-ID: Mime-Version: 1.0 Content-Type: text/plain; charset=us-ascii Content-Transfer-Encoding: 7bit Return-path: Received: from eggs.gnu.org ([140.186.70.92]:49551) by lists.gnu.org with esmtp (Exim 4.71) (envelope-from ) id 1Qcezr-0005hM-8b for emacs-orgmode@gnu.org; Fri, 01 Jul 2011 10:47:08 -0400 Received: from Debian-exim by eggs.gnu.org with spam-scanned (Exim 4.71) (envelope-from ) id 1Qcezp-0004YX-U3 for emacs-orgmode@gnu.org; Fri, 01 Jul 2011 10:47:06 -0400 Received: from lo.gmane.org ([80.91.229.12]:55704) by eggs.gnu.org with esmtp (Exim 4.71) (envelope-from ) id 1Qcezp-0004Y7-ID for emacs-orgmode@gnu.org; Fri, 01 Jul 2011 10:47:05 -0400 Received: from list by lo.gmane.org with local (Exim 4.69) (envelope-from ) id 1Qcezm-00055i-GP for emacs-orgmode@gnu.org; Fri, 01 Jul 2011 16:47:02 +0200 Received: from zone129host186.ens-lsh.fr ([zone129host186.ens-lsh.fr]) by main.gmane.org with esmtp (Gmexim 0.1 (Debian)) id 1AlnuQ-0007hv-00 for ; Fri, 01 Jul 2011 16:47:02 +0200 Received: from julien by zone129host186.ens-lsh.fr with local (Gmexim 0.1 (Debian)) id 1AlnuQ-0007hv-00 for ; Fri, 01 Jul 2011 16:47:02 +0200 List-Id: "General discussions about Org-mode." List-Unsubscribe: , List-Archive: List-Post: List-Help: List-Subscribe: , Errors-To: emacs-orgmode-bounces+geo-emacs-orgmode=m.gmane.org@gnu.org Sender: emacs-orgmode-bounces+geo-emacs-orgmode=m.gmane.org@gnu.org To: emacs-orgmode@gnu.org * lisp/org.el (org-fontify-meta-lines-and-blocks-1): Fix test for src blocks lang attribute When there is no lang attribute to a block (for quote, verse or others), the lang variable is not nil, but an empty string. --- lisp/org.el | 2 +- 1 files changed, 1 insertions(+), 1 deletions(-) diff --git a/lisp/org.el b/lisp/org.el index 9fddf3f..fb1041d 100644 --- a/lisp/org.el +++ b/lisp/org.el @@ -5207,7 +5207,7 @@ will be prompted for." (add-text-properties end1 (+ end 1) '(face org-meta-line)) ; for end_src (cond - ((and lang org-src-fontify-natively) + ((and lang (not (string= lang "")) org-src-fontify-natively) (org-src-font-lock-fontify-block lang block-start block-end) ;; remove old background overlays (mapc (lambda (ov) -- 1.7.5.4