tec/org-mode
tec
/
org-mode
forked from mirrors/org-mode
1
0
Fork 0
Code Pull Requests Releases Activity

Restart org-indent-mode when restarting org-mode

This commit is contained in:
Carsten Dominik 2009-12-14 08:17:13 +01:00
parent a74053c5d4
commit 993be9f1c6
2 changed files with 11 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
lisp/ChangeLog
View File

@ -1,3 +1,8 @@
2009-12-14 Carsten Dominik <carsten.dominik@gmail.com>
* org.el (org-inhibit-startup-visibility-stuff): New variable.
(org-mode): Don't do startup visibility if inhibited.
2009-12-13 Carsten Dominik <carsten.dominik@gmail.com>
* org.el (org-make-link-regexps): Capture link path into a group.

11
lisp/org.el
View File

@ -4177,6 +4177,7 @@ This variable is set by `org-before-change-function'.
(setq org-table-may-need-update t))
(defvar org-mode-map)
(defvar org-inhibit-startup nil) ; Dynamically-scoped param.
(defvar org-inhibit-startup-visibility-stuff nil) ; Dynamically-scoped param.
(defvar org-agenda-keep-modes nil) ; Dynamically-scoped param.
(defvar org-inhibit-logging nil) ; Dynamically-scoped param.
(defvar org-inhibit-blocking nil) ; Dynamically-scoped param.
@ -4306,7 +4307,6 @@ The following commands are available:
(interactive-p)
(= (point-min) (point-max)))
(insert "# -*- mode: org -*-\n\n"))
(unless org-inhibit-startup
(when org-startup-align-all-tables
(let ((bmp (buffer-modified-p)))
@ -4315,7 +4315,8 @@ The following commands are available:
(when org-startup-indented
(require 'org-indent)
(org-indent-mode 1))
(org-set-startup-visibility)))
(unless org-inhibit-startup-visibility-stuff
(org-set-startup-visibility))))
(when (fboundp 'abbrev-table-put)
(abbrev-table-put org-mode-abbrev-table
@ -15757,9 +15758,9 @@ This command does many different things, depending on context:
(if (org-at-table-p)
(org-call-with-arg 'org-table-recalculate (or arg t)))))
(t
; (org-set-regexps-and-options)
; (org-restart-font-lock)
(let ((org-inhibit-startup t)) (org-mode-restart))
(let ((org-inhibit-startup-visibility-stuff t)
(org-startup-align-all-tables nil))
(org-mode-restart))
(message "Local setup has been refreshed"))))
((org-clock-update-time-maybe))
(t (error "C-c C-c can do nothing useful at this location")))))