Mercurial > emacs
comparison lisp/org/org-docbook.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 | 7c433d89bd4c |
children | 86b7fe7d1d8f |
comparison
equal
deleted
inserted
replaced
104681:91afee51b252 | 104682:73bff1db57b6 |
---|---|
7 ;; Version: 6.29c | 7 ;; Version: 6.29c |
8 ;; Author: Baoqiu Cui <cbaoqiu AT yahoo DOT com> | 8 ;; Author: Baoqiu Cui <cbaoqiu AT yahoo DOT com> |
9 ;; Maintainer: Baoqiu Cui <cbaoqiu AT yahoo DOT com> | 9 ;; Maintainer: Baoqiu Cui <cbaoqiu AT yahoo DOT com> |
10 ;; Keywords: org, wp, docbook | 10 ;; Keywords: org, wp, docbook |
11 ;; Description: Converts an org-mode buffer into DocBook | 11 ;; Description: Converts an org-mode buffer into DocBook |
12 ;; $Id: org-docbook.el,v 1.2 2009/08/08 02:33:22 gm Exp $ | 12 ;; $Id: org-docbook.el,v 1.3 2009/08/08 12:18:56 cdominik Exp $ |
13 ;; URL: | 13 ;; URL: |
14 | 14 |
15 ;; This file is part of GNU Emacs. | 15 ;; This file is part of GNU Emacs. |
16 | 16 |
17 ;; GNU Emacs is free software: you can redistribute it and/or modify | 17 ;; GNU Emacs is free software: you can redistribute it and/or modify |
1100 ;; Close all open sections. | 1100 ;; Close all open sections. |
1101 (org-export-docbook-level-start 1 nil) | 1101 (org-export-docbook-level-start 1 nil) |
1102 | 1102 |
1103 (unless (plist-get opt-plist :buffer-will-be-killed) | 1103 (unless (plist-get opt-plist :buffer-will-be-killed) |
1104 (normal-mode) | 1104 (normal-mode) |
1105 (if (eq major-mode default-major-mode) | 1105 (if (eq major-mode (default-value 'major-mode)) |
1106 (nxml-mode))) | 1106 (nxml-mode))) |
1107 | 1107 |
1108 ;; Remove empty paragraphs and lists. Replace them with a | 1108 ;; Remove empty paragraphs and lists. Replace them with a |
1109 ;; newline. | 1109 ;; newline. |
1110 (goto-char (point-min)) | 1110 (goto-char (point-min)) |