mirror of
https://git.savannah.gnu.org/git/emacs/org-mode.git
synced 2024-08-27 13:32:53 +00:00
Avoid using the variable `default-major-mode'.
This commit is contained in:
parent
1d04b205e6
commit
dcd1255762
|
@ -1,5 +1,13 @@
|
||||||
2009-09-02 Carsten Dominik <carsten.dominik@gmail.com>
|
2009-09-02 Carsten Dominik <carsten.dominik@gmail.com>
|
||||||
|
|
||||||
|
* org.el: Avoid using `default-major-mode'.
|
||||||
|
|
||||||
|
* org-html.el (org-export-as-html): Avoid using
|
||||||
|
`default-major-mode'.
|
||||||
|
|
||||||
|
* org-docbook.el (org-export-as-docbook): Avoid using
|
||||||
|
`default-major-mode'.
|
||||||
|
|
||||||
* org-plot.el (require): Require CL only at compile time.
|
* org-plot.el (require): Require CL only at compile time.
|
||||||
|
|
||||||
* org-exp.el (require): Require CL only at compile time.
|
* org-exp.el (require): Require CL only at compile time.
|
||||||
|
|
|
@ -1101,7 +1101,7 @@ publishing directory."
|
||||||
|
|
||||||
(unless (plist-get opt-plist :buffer-will-be-killed)
|
(unless (plist-get opt-plist :buffer-will-be-killed)
|
||||||
(normal-mode)
|
(normal-mode)
|
||||||
(if (eq major-mode default-major-mode)
|
(if (eq major-mode (default-value 'major-mode))
|
||||||
(nxml-mode)))
|
(nxml-mode)))
|
||||||
|
|
||||||
;; Remove empty paragraphs and lists. Replace them with a
|
;; Remove empty paragraphs and lists. Replace them with a
|
||||||
|
|
|
@ -1420,7 +1420,8 @@ lang=\"%s\" xml:lang=\"%s\">
|
||||||
|
|
||||||
(unless (plist-get opt-plist :buffer-will-be-killed)
|
(unless (plist-get opt-plist :buffer-will-be-killed)
|
||||||
(normal-mode)
|
(normal-mode)
|
||||||
(if (eq major-mode default-major-mode) (html-mode)))
|
(if (eq major-mode (default-value 'major-mode))
|
||||||
|
(html-mode)))
|
||||||
|
|
||||||
;; insert the table of contents
|
;; insert the table of contents
|
||||||
(goto-char (point-min))
|
(goto-char (point-min))
|
||||||
|
|
|
@ -13690,7 +13690,8 @@ the buffer and restores the previous window configuration."
|
||||||
(while (setq b (find-buffer-visiting f)) (kill-buffer b))
|
(while (setq b (find-buffer-visiting f)) (kill-buffer b))
|
||||||
(with-temp-file f
|
(with-temp-file f
|
||||||
(insert (mapconcat 'identity list "\n") "\n")))
|
(insert (mapconcat 'identity list "\n") "\n")))
|
||||||
(let ((org-mode-hook nil) (default-major-mode 'fundamental-mode))
|
(let ((org-mode-hook nil) (org-inhibit-startup t)
|
||||||
|
(org-insert-mode-line-in-empty-file nil))
|
||||||
(setq org-agenda-files list)
|
(setq org-agenda-files list)
|
||||||
(customize-save-variable 'org-agenda-files org-agenda-files))))
|
(customize-save-variable 'org-agenda-files org-agenda-files))))
|
||||||
|
|
||||||
|
|
Loading…
Reference in a new issue