# HG changeset patch # User Carsten Dominik # Date 1174558956 0 # Node ID 08f39efbb4c2b23ff805414c85653344129acef5 # Parent 207c31fca0a04a0d747fe7c97a153e65491d9717 (org-agenda-mode, org-table-edit-formulas): Make sure that `global-font-lock-mode' does not turn on font-lock in these buffers. diff -r 207c31fca0a0 -r 08f39efbb4c2 lisp/textmodes/org.el --- a/lisp/textmodes/org.el Thu Mar 22 10:21:51 2007 +0000 +++ b/lisp/textmodes/org.el Thu Mar 22 10:22:36 2007 +0000 @@ -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 @@ 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 @@ (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)