diff options
| author | Stefan Merten | 2012-07-30 21:54:07 +0200 |
|---|---|---|
| committer | Stefan Merten | 2012-07-30 21:54:07 +0200 |
| commit | 1f45e27eb651f5d13d83b1916470fc32fc8769ab (patch) | |
| tree | b34a051bdcd97f7919d5ddd07ab4633bd8a7dada | |
| parent | 7393bcbb8bf25c97aed35079da765436d4e9fc03 (diff) | |
| download | emacs-1f45e27eb651f5d13d83b1916470fc32fc8769ab.tar.gz emacs-1f45e27eb651f5d13d83b1916470fc32fc8769ab.zip | |
Silence `checkdoc-ispell'.
(rst-cvs-header, rst-svn-rev, rst-svn-timestamp)
(rst-official-version, rst-official-cvs-rev)
(rst-package-emacs-version-alist): Update to upstream V1.3.1.
(rst-mode-map): New key binding.
| -rw-r--r-- | lisp/ChangeLog | 8 | ||||
| -rw-r--r-- | lisp/textmodes/rst.el | 27 |
2 files changed, 26 insertions, 9 deletions
diff --git a/lisp/ChangeLog b/lisp/ChangeLog index 0af7ff9ad11..8401578abf4 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog | |||
| @@ -1,3 +1,11 @@ | |||
| 1 | 2012-07-30 Stefan Merten <smerten@oekonux.de> | ||
| 2 | |||
| 3 | * rst.el: Silence `checkdoc-ispell'. | ||
| 4 | (rst-cvs-header, rst-svn-rev, rst-svn-timestamp) | ||
| 5 | (rst-official-version, rst-official-cvs-rev) | ||
| 6 | (rst-package-emacs-version-alist): Update to upstream V1.3.1. | ||
| 7 | (rst-mode-map): New key binding. | ||
| 8 | |||
| 1 | 2012-07-30 Paul Eggert <eggert@cs.ucla.edu> | 9 | 2012-07-30 Paul Eggert <eggert@cs.ucla.edu> |
| 2 | 10 | ||
| 3 | Update .PHONY listings in makefiles. | 11 | Update .PHONY listings in makefiles. |
diff --git a/lisp/textmodes/rst.el b/lisp/textmodes/rst.el index 6e0562f4a4b..77dc7cc29bb 100644 --- a/lisp/textmodes/rst.el +++ b/lisp/textmodes/rst.el | |||
| @@ -103,6 +103,8 @@ | |||
| 103 | 103 | ||
| 104 | ;;; Code: | 104 | ;;; Code: |
| 105 | 105 | ||
| 106 | ;; FIXME: Add proper ";;;###autoload" comments. | ||
| 107 | |||
| 106 | ;; FIXME: When 24.1 is common place remove use of `lexical-let' and put "-*- | 108 | ;; FIXME: When 24.1 is common place remove use of `lexical-let' and put "-*- |
| 107 | ;; lexical-binding: t -*-" in the first line. | 109 | ;; lexical-binding: t -*-" in the first line. |
| 108 | 110 | ||
| @@ -123,7 +125,7 @@ | |||
| 123 | (defun rst-some (seq &optional pred) | 125 | (defun rst-some (seq &optional pred) |
| 124 | "Return non-nil if any element of SEQ yields non-nil when PRED is applied. | 126 | "Return non-nil if any element of SEQ yields non-nil when PRED is applied. |
| 125 | Apply PRED to each element of list SEQ until the first non-nil | 127 | Apply PRED to each element of list SEQ until the first non-nil |
| 126 | result is yielded and return this result. PRED defaults to | 128 | result is yielded and return this result. PRED defaults to |
| 127 | `identity'." | 129 | `identity'." |
| 128 | (unless pred | 130 | (unless pred |
| 129 | (setq pred 'identity)) | 131 | (setq pred 'identity)) |
| @@ -171,7 +173,7 @@ and before TAIL-RE and DELIM-RE in VAR or DEFAULT for no match." | |||
| 171 | ;; Use CVSHeader to really get information from CVS and not other version | 173 | ;; Use CVSHeader to really get information from CVS and not other version |
| 172 | ;; control systems. | 174 | ;; control systems. |
| 173 | (defconst rst-cvs-header | 175 | (defconst rst-cvs-header |
| 174 | "$CVSHeader: sm/rst_el/rst.el,v 1.287 2012-06-16 09:41:47 stefan Exp $") | 176 | "$CVSHeader: sm/rst_el/rst.el,v 1.301 2012-07-30 19:29:46 stefan Exp $") |
| 175 | (defconst rst-cvs-rev | 177 | (defconst rst-cvs-rev |
| 176 | (rst-extract-version "\\$" "CVSHeader: \\S + " "[0-9]+\\(?:\\.[0-9]+\\)+" | 178 | (rst-extract-version "\\$" "CVSHeader: \\S + " "[0-9]+\\(?:\\.[0-9]+\\)+" |
| 177 | " .*" rst-cvs-header "0.0") | 179 | " .*" rst-cvs-header "0.0") |
| @@ -185,22 +187,22 @@ and before TAIL-RE and DELIM-RE in VAR or DEFAULT for no match." | |||
| 185 | ;; Use LastChanged... to really get information from SVN. | 187 | ;; Use LastChanged... to really get information from SVN. |
| 186 | (defconst rst-svn-rev | 188 | (defconst rst-svn-rev |
| 187 | (rst-extract-version "\\$" "LastChangedRevision: " "[0-9]+" " " | 189 | (rst-extract-version "\\$" "LastChangedRevision: " "[0-9]+" " " |
| 188 | "$LastChangedRevision: 7444 $") | 190 | "$LastChangedRevision: 7490 $") |
| 189 | "The SVN revision of this file. | 191 | "The SVN revision of this file. |
| 190 | SVN revision is the upstream (docutils) revision.") | 192 | SVN revision is the upstream (docutils) revision.") |
| 191 | (defconst rst-svn-timestamp | 193 | (defconst rst-svn-timestamp |
| 192 | (rst-extract-version "\\$" "LastChangedDate: " ".+?+" " " | 194 | (rst-extract-version "\\$" "LastChangedDate: " ".+?+" " " |
| 193 | "$LastChangedDate: 2012-06-16 11:41:40 +0200 (Sat, 16 Jun 2012) $") | 195 | "$LastChangedDate: 2012-07-30 21:29:33 +0200 (Mon, 30 Jul 2012) $") |
| 194 | "The SVN time stamp of this file.") | 196 | "The SVN time stamp of this file.") |
| 195 | 197 | ||
| 196 | ;; Maintained by the release process. | 198 | ;; Maintained by the release process. |
| 197 | (defconst rst-official-version | 199 | (defconst rst-official-version |
| 198 | (rst-extract-version "%" "OfficialVersion: " "[0-9]+\\(?:\\.[0-9]+\\)+" " " | 200 | (rst-extract-version "%" "OfficialVersion: " "[0-9]+\\(?:\\.[0-9]+\\)+" " " |
| 199 | "%OfficialVersion: 1.3.0 %") | 201 | "%OfficialVersion: 1.3.1 %") |
| 200 | "Official version of the package.") | 202 | "Official version of the package.") |
| 201 | (defconst rst-official-cvs-rev | 203 | (defconst rst-official-cvs-rev |
| 202 | (rst-extract-version "[%$]" "Revision: " "[0-9]+\\(?:\\.[0-9]+\\)+" " " | 204 | (rst-extract-version "[%$]" "Revision: " "[0-9]+\\(?:\\.[0-9]+\\)+" " " |
| 203 | "%Revision: 1.287 %") | 205 | "%Revision: 1.301 %") |
| 204 | "CVS revision of this file in the official version.") | 206 | "CVS revision of this file in the official version.") |
| 205 | 207 | ||
| 206 | (defconst rst-version | 208 | (defconst rst-version |
| @@ -217,7 +219,9 @@ in parentheses follows the development revision and the time stamp.") | |||
| 217 | ("1.1.0" . "24.2") | 219 | ("1.1.0" . "24.2") |
| 218 | ("1.2.0" . "24.2") | 220 | ("1.2.0" . "24.2") |
| 219 | ("1.2.1" . "24.2") | 221 | ("1.2.1" . "24.2") |
| 220 | ("1.3.0" . "24.2"))) | 222 | ("1.3.0" . "24.2") |
| 223 | ("1.3.1" . "24.2") | ||
| 224 | )) | ||
| 221 | 225 | ||
| 222 | (unless (assoc rst-official-version rst-package-emacs-version-alist) | 226 | (unless (assoc rst-official-version rst-package-emacs-version-alist) |
| 223 | (error "Version %s not listed in `rst-package-emacs-version-alist'" | 227 | (error "Version %s not listed in `rst-package-emacs-version-alist'" |
| @@ -580,10 +584,13 @@ well but give an additional message." | |||
| 580 | ;; | 584 | ;; |
| 581 | ;; The adjustment function that adorns or rotates a section title. | 585 | ;; The adjustment function that adorns or rotates a section title. |
| 582 | (rst-define-key map [?\C-c ?\C-=] 'rst-adjust [?\C-c ?\C-a t]) | 586 | (rst-define-key map [?\C-c ?\C-=] 'rst-adjust [?\C-c ?\C-a t]) |
| 583 | (rst-define-key map [?\C-=] 'rst-adjust) ; (Does not work on the Mac OSX.) | 587 | (rst-define-key map [?\C-=] 'rst-adjust) ; Does not work on the Mac OSX and |
| 588 | ; on consoles. | ||
| 584 | 589 | ||
| 585 | ;; \C-c \C-a is the keymap for adornments. | 590 | ;; \C-c \C-a is the keymap for adornments. |
| 586 | (rst-define-key map [?\C-c ?\C-a ?\C-h] 'describe-prefix-bindings) | 591 | (rst-define-key map [?\C-c ?\C-a ?\C-h] 'describe-prefix-bindings) |
| 592 | ;; Another binding which works with all types of input. | ||
| 593 | (rst-define-key map [?\C-c ?\C-a ?\C-a] 'rst-adjust) | ||
| 587 | ;; Display the hierarchy of adornments implied by the current document | 594 | ;; Display the hierarchy of adornments implied by the current document |
| 588 | ;; contents. | 595 | ;; contents. |
| 589 | (rst-define-key map [?\C-c ?\C-a ?\C-d] 'rst-display-adornments-hierarchy) | 596 | (rst-define-key map [?\C-c ?\C-a ?\C-d] 'rst-display-adornments-hierarchy) |
| @@ -3954,7 +3961,9 @@ An association list of the tool-set to a list of the (command to use, | |||
| 3954 | extension of produced filename, options to the tool (nil or a | 3961 | extension of produced filename, options to the tool (nil or a |
| 3955 | string)) to be used for converting the document." | 3962 | string)) to be used for converting the document." |
| 3956 | ;; FIXME: These are not options but symbols which may be referenced by | 3963 | ;; FIXME: These are not options but symbols which may be referenced by |
| 3957 | ;; `rst-compile-*-toolset` below. | 3964 | ;; `rst-compile-*-toolset` below. The `:validate' keyword of |
| 3965 | ;; `defcustom' may help to define this properly in newer Emacs | ||
| 3966 | ;; versions (> 23.1). | ||
| 3958 | :type '(alist :options (html latex newlatex pseudoxml xml pdf s5) | 3967 | :type '(alist :options (html latex newlatex pseudoxml xml pdf s5) |
| 3959 | :key-type symbol | 3968 | :key-type symbol |
| 3960 | :value-type (list :tag "Specification" | 3969 | :value-type (list :tag "Specification" |