mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2025-01-17 17:58:46 +00:00
Code Issues Releases Activity

(org-agenda-mode, org-table-edit-formulas):

Browse Source 
Make sure that `global-font-lock-mode' does not turn on font-lock
in these buffers.
This commit is contained in:
Carsten Dominik 2007-03-22 10:22:36 +00:00
parent 3d49ff4ab4
commit 28a419dd46
1 changed files with 7 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
lisp/textmodes/org.el
View File

@ -5,7 +5,7 @@
;; Author: Carsten Dominik <dominik at science dot uva dot nl> ;; Author: Carsten Dominik <dominik at science dot uva dot nl>
;; Keywords: outlines, hypermedia, calendar, wp ;; Keywords: outlines, hypermedia, calendar, wp
;; Homepage: http://www.astro.uva.nl/~dominik/Tools/org/ ;; Homepage: http://www.astro.uva.nl/~dominik/Tools/org/
;; Version: 4.67c ;; Version: 4.67d
;; ;;
;; This file is part of GNU Emacs. ;; This file is part of GNU Emacs.
;; ;;
@ -7952,7 +7952,10 @@ Parameters get priority."
entry s) entry s)
(switch-to-buffer-other-window "*Edit Formulas*") (switch-to-buffer-other-window "*Edit Formulas*")
(erase-buffer) (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-pos pos)
(org-set-local 'org-window-configuration wc) (org-set-local 'org-window-configuration wc)
(use-local-map org-edit-formulas-map) (use-local-map org-edit-formulas-map)
@ -12945,6 +12948,8 @@ The following commands are available:
(setq org-agenda-undo-list nil (setq org-agenda-undo-list nil
org-agenda-pending-undo-list nil) org-agenda-pending-undo-list nil)
(setq major-mode 'org-agenda-mode) (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") (setq mode-name "Org-Agenda")
(use-local-map org-agenda-mode-map) (use-local-map org-agenda-mode-map)
(easy-menu-add org-agenda-menu) (easy-menu-add org-agenda-menu)