From 28a419dd4600db69758c82633f0def217f233b00 Mon Sep 17 00:00:00 2001 From: Carsten Dominik Date: Thu, 22 Mar 2007 10:22:36 +0000 Subject: [PATCH] (org-agenda-mode, org-table-edit-formulas): Make sure that `global-font-lock-mode' does not turn on font-lock in these buffers. --- lisp/textmodes/org.el | 9 +++++++-- 1 file changed, 7 insertions(+), 2 deletions(-) diff --git a/lisp/textmodes/org.el b/lisp/textmodes/org.el index a727fa2df5a..8ee12638dee 100644 --- a/lisp/textmodes/org.el +++ b/lisp/textmodes/org.el @@ -5,7 +5,7 @@ ;; Author: Carsten Dominik ;; Keywords: outlines, hypermedia, calendar, wp ;; Homepage: http://www.astro.uva.nl/~dominik/Tools/org/ -;; Version: 4.67c +;; Version: 4.67d ;; ;; This file is part of GNU Emacs. ;; @@ -7952,7 +7952,10 @@ Parameters get priority." entry s) (switch-to-buffer-other-window "*Edit Formulas*") (erase-buffer) - (fundamental-mode) + ;; Keep global-font-lock-mode from turning on font-lock-mode + (let ((font-lock-global-modes '(not fundamental-mode))) + (fundamental-mode)) + (org-set-local 'font-lock-global-modes (list 'not major-mode)) (org-set-local 'org-pos pos) (org-set-local 'org-window-configuration wc) (use-local-map org-edit-formulas-map) @@ -12945,6 +12948,8 @@ The following commands are available: (setq org-agenda-undo-list nil org-agenda-pending-undo-list nil) (setq major-mode 'org-agenda-mode) + ;; Keep global-font-lock-mode from turning on font-lock-mode + (org-set-local 'font-lock-global-modes (list 'not major-mode)) (setq mode-name "Org-Agenda") (use-local-map org-agenda-mode-map) (easy-menu-add org-agenda-menu) -- 2.39.5