Mercurial > emacs
comparison lisp/org/org-html.el @ 104682:73bff1db57b6
* gnus/nnheader.el (nnheader-find-file-noselect):
* gnus/mm-util.el (mm-insert-file-contents):
* org/org-html.el (org-export-as-html):
* org/org-docbook.el (org-export-as-docbook):
* textmodes/reftex.el (reftex-get-file-buffer-force):
* progmodes/verilog-mode.el (verilog-batch-execute-func):
* emulation/viper.el (viper-go-away, viper-set-hooks):
* emacs-lisp/re-builder.el (re-builder-unload-function):
* emacs-lisp/bytecomp.el (byte-compile-file):
* ses.el (ses-unload-function):
* hexl.el (hexl-find-file):
* files.el (normal-mode):
* ehelp.el (with-electric-help):
* autoinsert.el (auto-insert-alist):
* arc-mode.el (archive-mode):
Use (default-value 'major-mode) instead of default-major-mode.
| author | Stefan Monnier <monnier@iro.umontreal.ca> |
|---|---|
| date | Fri, 28 Aug 2009 17:02:53 +0000 |
| parents | 3d8ecff47fb2 |
| children | 86b7fe7d1d8f |
comparison
equal
deleted
inserted
replaced
| 104681:91afee51b252 | 104682:73bff1db57b6 |
|---|---|
| 1417 (org-export-html-insert-plist-item opt-plist :postamble opt-plist) | 1417 (org-export-html-insert-plist-item opt-plist :postamble opt-plist) |
| 1418 (insert "\n</div>\n</body>\n</html>\n")) | 1418 (insert "\n</div>\n</body>\n</html>\n")) |
| 1419 | 1419 |
| 1420 (unless (plist-get opt-plist :buffer-will-be-killed) | 1420 (unless (plist-get opt-plist :buffer-will-be-killed) |
| 1421 (normal-mode) | 1421 (normal-mode) |
| 1422 (if (eq major-mode default-major-mode) (html-mode))) | 1422 (if (eq major-mode (default-value 'major-mode)) (html-mode))) |
| 1423 | 1423 |
| 1424 ;; insert the table of contents | 1424 ;; insert the table of contents |
| 1425 (goto-char (point-min)) | 1425 (goto-char (point-min)) |
| 1426 (when thetoc | 1426 (when thetoc |
| 1427 (if (or (re-search-forward | 1427 (if (or (re-search-forward |