diff options
| author | Juanma Barranquero | 2019-09-19 04:32:25 +0200 |
|---|---|---|
| committer | Juanma Barranquero | 2019-09-19 04:32:25 +0200 |
| commit | 79a01866a01754b9f566af76ef96e80cd90d094b (patch) | |
| tree | f08a0ba4abd3caca32ad82e582e9327bdc43e569 | |
| parent | 34f1035e878a06ad181ff7fc533cd1fa0a565847 (diff) | |
| download | emacs-79a01866a01754b9f566af76ef96e80cd90d094b.tar.gz emacs-79a01866a01754b9f566af76ef96e80cd90d094b.zip | |
lisp/*.el, src/*.c: Fix typos in docstrings
* lisp/apropos.el (apropos-do-all):
* lisp/auth-source-pass.el (auth-source-pass--select-from-entries):
* lisp/auth-source.el (auth-source-user-or-password):
* lisp/calc/calc-forms.el (math-tzone-names):
* lisp/calendar/diary-lib.el (diary-face-attrs)
(diary-mark-entries-1):
* lisp/cedet/cedet-files.el (cedet-files-list-recursively):
* lisp/cedet/ede.el (ede-constructing, ede-deep-rescan):
* lisp/cedet/ede/cpp-root.el (ede-cpp-root-header-file-p):
* lisp/cedet/ede/proj.el (ede-proj-target-makefile):
* lisp/cedet/inversion.el (inversion-check-version)
(inversion-test):
* lisp/cedet/mode-local.el (mode-local-map-file-buffers):
* lisp/cedet/semantic/complete.el (semantic-displayer-ghost):
* lisp/cedet/semantic/db-find.el (semanticdb-find-translate-path-default):
* lisp/cedet/semantic/db.el (semanticdb-table)
(semanticdb-search-system-databases):
* lisp/cedet/semantic/imenu.el (semantic-imenu-index-directory):
* lisp/cedet/semantic/java.el (semantic-java-doc-keywords-map):
* lisp/cedet/semantic/lex-spp.el (semantic-lex-spp-use-headers-flag):
* lisp/cedet/semantic/lex.el (semantic-lex-make-keyword-table)
(semantic-lex-make-type-table, semantic-lex-debug-analyzers):
* lisp/cedet/semantic/tag-ls.el (semantic-tag-abstract-p)
(semantic-tag-leaf-p, semantic-tag-static-p)
(semantic-tag-prototype-p):
* lisp/dnd.el (dnd-open-remote-file-function, dnd-open-local-file):
* lisp/emacs-lisp/eieio-opt.el (eieio-build-class-alist)
(eieio-read-class, eieio-read-subclass):
* lisp/emacs-lisp/generator.el (cps--replace-variable-references)
(cps--handle-loop-for):
* lisp/erc/erc-dcc.el (erc-dcc-list, erc-dcc-member, erc-dcc-server)
(erc-dcc-auto-mask-p, erc-dcc-get-file, erc-dcc-chat-accept):
* lisp/eshell/em-pred.el (eshell-pred-file-type):
* lisp/faces.el (defined-colors-with-face-attributes):
* lisp/font-core.el (font-lock-mode):
* lisp/frame.el (frame-restack):
* lisp/net/shr.el (shr-image-animate):
* lisp/org/org-agenda.el (org-agenda-change-all-lines)
(org-agenda-today-p):
* lisp/org/org-id.el (org-id-get):
* lisp/org/org.el (org-highlight-latex-and-related)
(org--valid-property-p):
* lisp/org/ox-beamer.el (org-beamer--get-label):
* lisp/org/ox-latex.el (org-latex--caption-above-p):
* lisp/org/ox-odt.el (org-odt--copy-image-file)
(org-odt--copy-formula-file):
* lisp/org/ox.el (org-export-with-timestamps):
* lisp/progmodes/verilog-mode.el (verilog-indent-declaration-macros):
* lisp/ses.el (ses-file-format-extend-parameter-list):
* lisp/term.el (ansi-term):
* lisp/textmodes/bibtex.el (bibtex-no-opt-remove-re)
(bibtex-beginning-of-first-entry, bibtex-autokey-get-title)
(bibtex-read-key, bibtex-initialize):
* lisp/textmodes/flyspell.el (flyspell-word):
* lisp/view.el (view-mode-exit):
* src/composite.c:
* src/floatfns.c (Fisnan): Fix typos in docstrings.
47 files changed, 82 insertions, 82 deletions
diff --git a/lisp/apropos.el b/lisp/apropos.el index 79e5a1518fe..da6cf867b4f 100644 --- a/lisp/apropos.el +++ b/lisp/apropos.el | |||
| @@ -66,7 +66,7 @@ | |||
| 66 | 66 | ||
| 67 | ;; I see a degradation of maybe 10-20% only. | 67 | ;; I see a degradation of maybe 10-20% only. |
| 68 | (defcustom apropos-do-all nil | 68 | (defcustom apropos-do-all nil |
| 69 | "Non nil means apropos commands will search more extensively. | 69 | "Non-nil means apropos commands will search more extensively. |
| 70 | This may be slower. This option affects the following commands: | 70 | This may be slower. This option affects the following commands: |
| 71 | 71 | ||
| 72 | `apropos-user-option' will search all variables, not just user options. | 72 | `apropos-user-option' will search all variables, not just user options. |
diff --git a/lisp/auth-source-pass.el b/lisp/auth-source-pass.el index f16d9108903..c45c782c27c 100644 --- a/lisp/auth-source-pass.el +++ b/lisp/auth-source-pass.el | |||
| @@ -243,7 +243,7 @@ HOSTNAME should not contain any username or port number." | |||
| 243 | (defun auth-source-pass--select-from-entries (entries user) | 243 | (defun auth-source-pass--select-from-entries (entries user) |
| 244 | "Return best matching password-store entry data from ENTRIES. | 244 | "Return best matching password-store entry data from ENTRIES. |
| 245 | 245 | ||
| 246 | If USER is non nil, give precedence to entries containing a user field | 246 | If USER is non-nil, give precedence to entries containing a user field |
| 247 | matching USER." | 247 | matching USER." |
| 248 | (let (fallback) | 248 | (let (fallback) |
| 249 | (catch 'auth-source-pass-break | 249 | (catch 'auth-source-pass-break |
diff --git a/lisp/auth-source.el b/lisp/auth-source.el index 74c44916992..7d8657da110 100644 --- a/lisp/auth-source.el +++ b/lisp/auth-source.el | |||
| @@ -2259,12 +2259,12 @@ items don't have a username. This means that if you search for | |||
| 2259 | username \"joe\" and it matches an item but the item doesn't have | 2259 | username \"joe\" and it matches an item but the item doesn't have |
| 2260 | a :user attribute, the username \"joe\" will be returned. | 2260 | a :user attribute, the username \"joe\" will be returned. |
| 2261 | 2261 | ||
| 2262 | A non nil DELETE-EXISTING means deleting any matching password | 2262 | A non-nil DELETE-EXISTING means deleting any matching password |
| 2263 | entry in the respective sources. This is useful only when | 2263 | entry in the respective sources. This is useful only when |
| 2264 | CREATE-MISSING is non nil as well; the intended use case is to | 2264 | CREATE-MISSING is non-nil as well; the intended use case is to |
| 2265 | remove wrong password entries. | 2265 | remove wrong password entries. |
| 2266 | 2266 | ||
| 2267 | If no matching entry is found, and CREATE-MISSING is non nil, | 2267 | If no matching entry is found, and CREATE-MISSING is non-nil, |
| 2268 | the password will be retrieved interactively, and it will be | 2268 | the password will be retrieved interactively, and it will be |
| 2269 | stored in the password database which matches best (see | 2269 | stored in the password database which matches best (see |
| 2270 | `auth-sources'). | 2270 | `auth-sources'). |
diff --git a/lisp/calc/calc-forms.el b/lisp/calc/calc-forms.el index 7e8a8dcc9d0..98dcfab015a 100644 --- a/lisp/calc/calc-forms.el +++ b/lisp/calc/calc-forms.el | |||
| @@ -1462,7 +1462,7 @@ as measured in the integer number of days before December 31, 1 BC (Gregorian)." | |||
| 1462 | ( "PGT" 8 "PST" "PDT" ) ( "PST" 8 0 ) ( "PDT" 8 -1 ) ; Pacific | 1462 | ( "PGT" 8 "PST" "PDT" ) ( "PST" 8 0 ) ( "PDT" 8 -1 ) ; Pacific |
| 1463 | ( "YGT" 9 "YST" "YDT" ) ( "YST" 9 0 ) ( "YDT" 9 -1 ) ; Yukon | 1463 | ( "YGT" 9 "YST" "YDT" ) ( "YST" 9 0 ) ( "YDT" 9 -1 ) ; Yukon |
| 1464 | ) | 1464 | ) |
| 1465 | "No doc yet. See calc manual for now. ") | 1465 | "No doc yet. See calc manual for now.") |
| 1466 | 1466 | ||
| 1467 | (defvar var-TimeZone nil) | 1467 | (defvar var-TimeZone nil) |
| 1468 | 1468 | ||
diff --git a/lisp/calendar/diary-lib.el b/lisp/calendar/diary-lib.el index 06f1161b44a..5a2374a5957 100644 --- a/lisp/calendar/diary-lib.el +++ b/lisp/calendar/diary-lib.el | |||
| @@ -97,7 +97,7 @@ is pre-pended to REGEXP for file-wide specifiers. ATTRIBUTE | |||
| 97 | specifies which face attribute (e.g. `:foreground') to modify, or | 97 | specifies which face attribute (e.g. `:foreground') to modify, or |
| 98 | that this is a face (`:face') to apply. TYPE is the type of | 98 | that this is a face (`:face') to apply. TYPE is the type of |
| 99 | attribute being applied. Available TYPES (see `diary-attrtype-convert') | 99 | attribute being applied. Available TYPES (see `diary-attrtype-convert') |
| 100 | are: `string', `symbol', `int', `tnil', `stringtnil.'" | 100 | are: `string', `symbol', `int', `tnil', `stringtnil'." |
| 101 | :type '(repeat (list (string :tag "Regular expression") | 101 | :type '(repeat (list (string :tag "Regular expression") |
| 102 | (integer :tag "Sub-expression") | 102 | (integer :tag "Sub-expression") |
| 103 | (symbol :tag "Attribute (e.g. :foreground)") | 103 | (symbol :tag "Attribute (e.g. :foreground)") |
| @@ -1257,7 +1257,7 @@ the regexp with parentheses." | |||
| 1257 | MARKFUNC is a function that marks entries of the appropriate type | 1257 | MARKFUNC is a function that marks entries of the appropriate type |
| 1258 | matching a given date pattern. MONTHS is an array of month names. | 1258 | matching a given date pattern. MONTHS is an array of month names. |
| 1259 | SYMBOL marks diary entries of the type in question. ABSFUNC is a | 1259 | SYMBOL marks diary entries of the type in question. ABSFUNC is a |
| 1260 | function that converts absolute dates to dates of the appropriate type. " | 1260 | function that converts absolute dates to dates of the appropriate type." |
| 1261 | (calendar-dlet* | 1261 | (calendar-dlet* |
| 1262 | ((dayname (diary-name-pattern calendar-day-name-array | 1262 | ((dayname (diary-name-pattern calendar-day-name-array |
| 1263 | calendar-day-abbrev-array)) | 1263 | calendar-day-abbrev-array)) |
diff --git a/lisp/cedet/cedet-files.el b/lisp/cedet/cedet-files.el index d3becd5c845..7329eb37f7f 100644 --- a/lisp/cedet/cedet-files.el +++ b/lisp/cedet/cedet-files.el | |||
| @@ -89,7 +89,7 @@ specific conversions during tests." | |||
| 89 | file)) | 89 | file)) |
| 90 | 90 | ||
| 91 | (defun cedet-files-list-recursively (dir re) | 91 | (defun cedet-files-list-recursively (dir re) |
| 92 | "Returns list of files in directory matching to given regex" | 92 | "Return list of files in directory matching to given regex." |
| 93 | (when (file-accessible-directory-p dir) | 93 | (when (file-accessible-directory-p dir) |
| 94 | (let ((files (directory-files dir t)) | 94 | (let ((files (directory-files dir t)) |
| 95 | matched) | 95 | matched) |
diff --git a/lisp/cedet/ede.el b/lisp/cedet/ede.el index d051510a994..1969df54cde 100644 --- a/lisp/cedet/ede.el +++ b/lisp/cedet/ede.el | |||
| @@ -162,12 +162,12 @@ This object's class determines how to compile and debug from a buffer.") | |||
| 162 | If `ede-object' is nil, then commands will operate on this object.") | 162 | If `ede-object' is nil, then commands will operate on this object.") |
| 163 | 163 | ||
| 164 | (defvar ede-constructing nil | 164 | (defvar ede-constructing nil |
| 165 | "Non nil when constructing a project hierarchy. | 165 | "Non-nil when constructing a project hierarchy. |
| 166 | If the project is being constructed from an autoload, then the | 166 | If the project is being constructed from an autoload, then the |
| 167 | value is the autoload object being used.") | 167 | value is the autoload object being used.") |
| 168 | 168 | ||
| 169 | (defvar ede-deep-rescan nil | 169 | (defvar ede-deep-rescan nil |
| 170 | "Non nil means scan down a tree, otherwise rescans are top level only. | 170 | "Non-nil means scan down a tree, otherwise rescans are top level only. |
| 171 | Do not set this to non-nil globally. It is used internally.") | 171 | Do not set this to non-nil globally. It is used internally.") |
| 172 | 172 | ||
| 173 | 173 | ||
diff --git a/lisp/cedet/ede/cpp-root.el b/lisp/cedet/ede/cpp-root.el index 0a77692dd71..feff63681a8 100644 --- a/lisp/cedet/ede/cpp-root.el +++ b/lisp/cedet/ede/cpp-root.el | |||
| @@ -389,7 +389,7 @@ This knows details about or source tree." | |||
| 389 | ;; include lists, and Preprocessor symbol tables. | 389 | ;; include lists, and Preprocessor symbol tables. |
| 390 | 390 | ||
| 391 | (cl-defmethod ede-cpp-root-header-file-p ((proj ede-cpp-root-project) name) | 391 | (cl-defmethod ede-cpp-root-header-file-p ((proj ede-cpp-root-project) name) |
| 392 | "Non nil if in PROJ the filename NAME is a header." | 392 | "Non-nil if in PROJ the filename NAME is a header." |
| 393 | (save-match-data | 393 | (save-match-data |
| 394 | (string-match (oref proj header-match-regexp) name))) | 394 | (string-match (oref proj header-match-regexp) name))) |
| 395 | 395 | ||
diff --git a/lisp/cedet/ede/proj.el b/lisp/cedet/ede/proj.el index 59ba3ffcf8c..2ce65e91bde 100644 --- a/lisp/cedet/ede/proj.el +++ b/lisp/cedet/ede/proj.el | |||
| @@ -165,7 +165,7 @@ These are the linkers the user can choose from when setting the | |||
| 165 | :label "Part of all: target" | 165 | :label "Part of all: target" |
| 166 | :group make | 166 | :group make |
| 167 | :documentation | 167 | :documentation |
| 168 | "Non nil means the rule created is part of the all: target. | 168 | "Non-nil means the rule created is part of the all: target. |
| 169 | Setting this to nil creates the rule to build this item, but does not | 169 | Setting this to nil creates the rule to build this item, but does not |
| 170 | include it in the all: rule.") | 170 | include it in the all: rule.") |
| 171 | (configuration-variables | 171 | (configuration-variables |
diff --git a/lisp/cedet/inversion.el b/lisp/cedet/inversion.el index 3bed9d70534..83561a0dfa7 100644 --- a/lisp/cedet/inversion.el +++ b/lisp/cedet/inversion.el | |||
| @@ -226,7 +226,7 @@ not an indication of new features or bug fixes." | |||
| 226 | "Check that a given version meets the minimum requirement. | 226 | "Check that a given version meets the minimum requirement. |
| 227 | VERSION, INCOMPATIBLE-VERSION and MINIMUM are of similar format to | 227 | VERSION, INCOMPATIBLE-VERSION and MINIMUM are of similar format to |
| 228 | return entries of `inversion-decode-version', or a classic version | 228 | return entries of `inversion-decode-version', or a classic version |
| 229 | string. INCOMPATIBLE-VERSION can be nil. | 229 | string. INCOMPATIBLE-VERSION can be nil. |
| 230 | RESERVED arguments are kept for a later use. | 230 | RESERVED arguments are kept for a later use. |
| 231 | Return: | 231 | Return: |
| 232 | - nil if everything is ok. | 232 | - nil if everything is ok. |
| @@ -274,7 +274,7 @@ MINIMUM is of similar format to return entries of | |||
| 274 | RESERVED arguments are kept for a later user. | 274 | RESERVED arguments are kept for a later user. |
| 275 | This depends on the symbols `PACKAGE-version' and optionally | 275 | This depends on the symbols `PACKAGE-version' and optionally |
| 276 | `PACKAGE-incompatible-version' being defined in PACKAGE. | 276 | `PACKAGE-incompatible-version' being defined in PACKAGE. |
| 277 | Return nil if everything is ok. Return an error string otherwise." | 277 | Return nil if everything is ok. Return an error string otherwise." |
| 278 | (let ((check (inversion-check-version | 278 | (let ((check (inversion-check-version |
| 279 | (inversion-package-version package) | 279 | (inversion-package-version package) |
| 280 | (inversion-package-incompatibility-version package) | 280 | (inversion-package-incompatibility-version package) |
| @@ -306,7 +306,7 @@ OLDVERSION is of similar format to return entries of | |||
| 306 | RESERVED arguments are kept for a later user. | 306 | RESERVED arguments are kept for a later user. |
| 307 | This depends on the symbols `PACKAGE-version' and optionally | 307 | This depends on the symbols `PACKAGE-version' and optionally |
| 308 | `PACKAGE-incompatible-version' being defined in PACKAGE. | 308 | `PACKAGE-incompatible-version' being defined in PACKAGE. |
| 309 | Return nil if everything is ok. Return an error string otherwise." | 309 | Return nil if everything is ok. Return an error string otherwise." |
| 310 | (let ((check (inversion-check-version | 310 | (let ((check (inversion-check-version |
| 311 | (inversion-package-version package) | 311 | (inversion-package-version package) |
| 312 | (inversion-package-incompatibility-version package) | 312 | (inversion-package-incompatibility-version package) |
diff --git a/lisp/cedet/mode-local.el b/lisp/cedet/mode-local.el index 3d2fe45fcb1..50dc3cb7937 100644 --- a/lisp/cedet/mode-local.el +++ b/lisp/cedet/mode-local.el | |||
| @@ -58,7 +58,7 @@ | |||
| 58 | "Run FUNCTION on every file buffer found. | 58 | "Run FUNCTION on every file buffer found. |
| 59 | FUNCTION does not have arguments; when it is entered `current-buffer' | 59 | FUNCTION does not have arguments; when it is entered `current-buffer' |
| 60 | is the currently selected file buffer. | 60 | is the currently selected file buffer. |
| 61 | If optional argument PREDICATE is non nil, only select file buffers | 61 | If optional argument PREDICATE is non-nil, only select file buffers |
| 62 | for which the function PREDICATE returns non-nil. | 62 | for which the function PREDICATE returns non-nil. |
| 63 | If optional argument BUFFERS is non-nil, it is a list of buffers to | 63 | If optional argument BUFFERS is non-nil, it is a list of buffers to |
| 64 | walk through. It defaults to `buffer-list'." | 64 | walk through. It defaults to `buffer-list'." |
diff --git a/lisp/cedet/semantic/complete.el b/lisp/cedet/semantic/complete.el index b438a1c6e22..8f89d1a51e2 100644 --- a/lisp/cedet/semantic/complete.el +++ b/lisp/cedet/semantic/complete.el | |||
| @@ -1800,7 +1800,7 @@ Return a cons cell (X . Y)" | |||
| 1800 | "The overlay the ghost text is displayed in.") | 1800 | "The overlay the ghost text is displayed in.") |
| 1801 | (first-show :initform t | 1801 | (first-show :initform t |
| 1802 | :documentation | 1802 | :documentation |
| 1803 | "Non nil if we have not seen our first show request.") | 1803 | "Non-nil if we have not seen our first show request.") |
| 1804 | ) | 1804 | ) |
| 1805 | "Cycle completions inline with ghost text. | 1805 | "Cycle completions inline with ghost text. |
| 1806 | Completion displayer using ghost chars after point for focus options. | 1806 | Completion displayer using ghost chars after point for focus options. |
diff --git a/lisp/cedet/semantic/db-find.el b/lisp/cedet/semantic/db-find.el index 54935c3a7c7..18c749b098e 100644 --- a/lisp/cedet/semantic/db-find.el +++ b/lisp/cedet/semantic/db-find.el | |||
| @@ -304,7 +304,7 @@ so that it can be called from the idle work handler." | |||
| 304 | 304 | ||
| 305 | (defun semanticdb-find-translate-path-default (path brutish) | 305 | (defun semanticdb-find-translate-path-default (path brutish) |
| 306 | "Translate PATH into a list of semantic tables. | 306 | "Translate PATH into a list of semantic tables. |
| 307 | If BRUTISH is non nil, return all tables associated with PATH. | 307 | If BRUTISH is non-nil, return all tables associated with PATH. |
| 308 | Default action as described in `semanticdb-find-translate-path'." | 308 | Default action as described in `semanticdb-find-translate-path'." |
| 309 | (if (semanticdb-find-results-p path) | 309 | (if (semanticdb-find-results-p path) |
| 310 | ;; nil means perform the search over these results. | 310 | ;; nil means perform the search over these results. |
diff --git a/lisp/cedet/semantic/db.el b/lisp/cedet/semantic/db.el index 33ad4701769..5c7f8423839 100644 --- a/lisp/cedet/semantic/db.el +++ b/lisp/cedet/semantic/db.el | |||
| @@ -238,7 +238,7 @@ If nil, the table's buffer is no in Emacs. If it has a value, then | |||
| 238 | it is in Emacs.") | 238 | it is in Emacs.") |
| 239 | (dirty :initform nil | 239 | (dirty :initform nil |
| 240 | :documentation | 240 | :documentation |
| 241 | "Non nil if this table needs to be `Saved'.") | 241 | "Non-nil if this table needs to be `Saved'.") |
| 242 | (db-refs :initform nil | 242 | (db-refs :initform nil |
| 243 | :documentation | 243 | :documentation |
| 244 | "List of `semanticdb-table' objects referring to this one. | 244 | "List of `semanticdb-table' objects referring to this one. |
| @@ -833,7 +833,7 @@ value.") | |||
| 833 | (make-variable-buffer-local 'semanticdb-project-system-databases) | 833 | (make-variable-buffer-local 'semanticdb-project-system-databases) |
| 834 | 834 | ||
| 835 | (defvar semanticdb-search-system-databases t | 835 | (defvar semanticdb-search-system-databases t |
| 836 | "Non nil if search routines are to include a system database.") | 836 | "Non-nil if search routines are to include a system database.") |
| 837 | 837 | ||
| 838 | (defun semanticdb-current-database-list (&optional dir) | 838 | (defun semanticdb-current-database-list (&optional dir) |
| 839 | "Return a list of databases associated with the current buffer. | 839 | "Return a list of databases associated with the current buffer. |
diff --git a/lisp/cedet/semantic/imenu.el b/lisp/cedet/semantic/imenu.el index 009d04dbd75..5119eb62f3d 100644 --- a/lisp/cedet/semantic/imenu.el +++ b/lisp/cedet/semantic/imenu.el | |||
| @@ -119,7 +119,7 @@ See `semantic-bucketize' and the FILTER argument for more details on this functi | |||
| 119 | (make-variable-buffer-local 'semantic-imenu-sort-bucket-function) | 119 | (make-variable-buffer-local 'semantic-imenu-sort-bucket-function) |
| 120 | 120 | ||
| 121 | (defcustom semantic-imenu-index-directory nil | 121 | (defcustom semantic-imenu-index-directory nil |
| 122 | "Non nil to index the entire directory for tags. | 122 | "Non-nil to index the entire directory for tags. |
| 123 | Doesn't actually parse the entire directory, but displays tags for all files | 123 | Doesn't actually parse the entire directory, but displays tags for all files |
| 124 | currently listed in the current Semantic database. | 124 | currently listed in the current Semantic database. |
| 125 | This variable has no meaning if semanticdb is not active." | 125 | This variable has no meaning if semanticdb is not active." |
diff --git a/lisp/cedet/semantic/java.el b/lisp/cedet/semantic/java.el index 7f9c93b906f..b103c3ce157 100644 --- a/lisp/cedet/semantic/java.el +++ b/lisp/cedet/semantic/java.el | |||
| @@ -391,7 +391,7 @@ That is TAG `symbol-name' without the leading `@'." | |||
| 391 | 391 | ||
| 392 | (defun semantic-java-doc-keywords-map (fun &optional property) | 392 | (defun semantic-java-doc-keywords-map (fun &optional property) |
| 393 | "Run function FUN for each javadoc keyword. | 393 | "Run function FUN for each javadoc keyword. |
| 394 | Return the list of FUN results. If optional PROPERTY is non nil only | 394 | Return the list of FUN results. If optional PROPERTY is non-nil only |
| 395 | call FUN for javadoc keywords which have a value for PROPERTY. FUN | 395 | call FUN for javadoc keywords which have a value for PROPERTY. FUN |
| 396 | receives two arguments: the javadoc keyword and its associated | 396 | receives two arguments: the javadoc keyword and its associated |
| 397 | 'javadoc property list. It can return any value. All nil values are | 397 | 'javadoc property list. It can return any value. All nil values are |
diff --git a/lisp/cedet/semantic/lex-spp.el b/lisp/cedet/semantic/lex-spp.el index 6fe33f93110..d07dc806a48 100644 --- a/lisp/cedet/semantic/lex-spp.el +++ b/lisp/cedet/semantic/lex-spp.el | |||
| @@ -1244,7 +1244,7 @@ For languages that use the Semantic pre-processor, this can | |||
| 1244 | improve the accuracy of parsed files where include files | 1244 | improve the accuracy of parsed files where include files |
| 1245 | can change the state of what's parsed in the current file. | 1245 | can change the state of what's parsed in the current file. |
| 1246 | 1246 | ||
| 1247 | Note: Note implemented yet" | 1247 | Note: Not implemented yet." |
| 1248 | :group 'semantic | 1248 | :group 'semantic |
| 1249 | :type 'boolean) | 1249 | :type 'boolean) |
| 1250 | 1250 | ||
diff --git a/lisp/cedet/semantic/lex.el b/lisp/cedet/semantic/lex.el index a6ee869c037..50e09e2359c 100644 --- a/lisp/cedet/semantic/lex.el +++ b/lisp/cedet/semantic/lex.el | |||
| @@ -256,7 +256,7 @@ SPECS must be a list of (NAME . TOKSYM) elements, where: | |||
| 256 | NAME is the name of the keyword symbol to define. | 256 | NAME is the name of the keyword symbol to define. |
| 257 | TOKSYM is the lexical token symbol of that keyword. | 257 | TOKSYM is the lexical token symbol of that keyword. |
| 258 | 258 | ||
| 259 | If optional argument PROPSPECS is non nil, then interpret it, and | 259 | If optional argument PROPSPECS is non-nil, then interpret it, and |
| 260 | apply those properties. | 260 | apply those properties. |
| 261 | PROPSPECS must be a list of (NAME PROPERTY VALUE) elements." | 261 | PROPSPECS must be a list of (NAME PROPERTY VALUE) elements." |
| 262 | ;; Create the symbol hash table | 262 | ;; Create the symbol hash table |
| @@ -414,7 +414,7 @@ SPECS must be a list of (TYPE . TOKENS) elements, where: | |||
| 414 | MATCHER is a string or regexp a text must match to be a such | 414 | MATCHER is a string or regexp a text must match to be a such |
| 415 | lexical token. | 415 | lexical token. |
| 416 | 416 | ||
| 417 | If optional argument PROPSPECS is non nil, then interpret it, and | 417 | If optional argument PROPSPECS is non-nil, then interpret it, and |
| 418 | apply those properties. | 418 | apply those properties. |
| 419 | PROPSPECS must be a list of (TYPE PROPERTY VALUE)." | 419 | PROPSPECS must be a list of (TYPE PROPERTY VALUE)." |
| 420 | ;; Create the symbol hash table | 420 | ;; Create the symbol hash table |
| @@ -1060,7 +1060,7 @@ The collapsed tokens are saved in `semantic-lex-block-streams'." | |||
| 1060 | ;; to create new lexical analyzers. | 1060 | ;; to create new lexical analyzers. |
| 1061 | 1061 | ||
| 1062 | (defcustom semantic-lex-debug-analyzers nil | 1062 | (defcustom semantic-lex-debug-analyzers nil |
| 1063 | "Non nil means to debug analyzers with syntax protection. | 1063 | "Non-nil means to debug analyzers with syntax protection. |
| 1064 | Only in effect if `debug-on-error' is also non-nil." | 1064 | Only in effect if `debug-on-error' is also non-nil." |
| 1065 | :group 'semantic | 1065 | :group 'semantic |
| 1066 | :type 'boolean) | 1066 | :type 'boolean) |
diff --git a/lisp/cedet/semantic/tag-ls.el b/lisp/cedet/semantic/tag-ls.el index e4627d69ebd..ad072a40960 100644 --- a/lisp/cedet/semantic/tag-ls.el +++ b/lisp/cedet/semantic/tag-ls.el | |||
| @@ -369,7 +369,7 @@ For these PROTECTIONs, true is returned if TAG is: | |||
| 369 | )) | 369 | )) |
| 370 | 370 | ||
| 371 | (define-overloadable-function semantic-tag-abstract-p (tag &optional parent) | 371 | (define-overloadable-function semantic-tag-abstract-p (tag &optional parent) |
| 372 | "Return non nil if TAG is abstract. | 372 | "Return non-nil if TAG is abstract. |
| 373 | Optional PARENT is the parent tag of TAG. | 373 | Optional PARENT is the parent tag of TAG. |
| 374 | In UML, abstract methods and classes have special meaning and behavior | 374 | In UML, abstract methods and classes have special meaning and behavior |
| 375 | in how methods are overridden. In UML, abstract methods are italicized. | 375 | in how methods are overridden. In UML, abstract methods are italicized. |
| @@ -393,7 +393,7 @@ See `semantic-tag-abstract-p'." | |||
| 393 | abs)) | 393 | abs)) |
| 394 | 394 | ||
| 395 | (define-overloadable-function semantic-tag-leaf-p (tag &optional parent) | 395 | (define-overloadable-function semantic-tag-leaf-p (tag &optional parent) |
| 396 | "Return non nil if TAG is leaf. | 396 | "Return non-nil if TAG is leaf. |
| 397 | Optional PARENT is the parent tag of TAG. | 397 | Optional PARENT is the parent tag of TAG. |
| 398 | In UML, leaf methods and classes have special meaning and behavior. | 398 | In UML, leaf methods and classes have special meaning and behavior. |
| 399 | 399 | ||
| @@ -417,7 +417,7 @@ See `semantic-tag-leaf-p'." | |||
| 417 | leaf)) | 417 | leaf)) |
| 418 | 418 | ||
| 419 | (define-overloadable-function semantic-tag-static-p (tag &optional parent) | 419 | (define-overloadable-function semantic-tag-static-p (tag &optional parent) |
| 420 | "Return non nil if TAG is static. | 420 | "Return non-nil if TAG is static. |
| 421 | Optional PARENT is the parent tag of TAG. | 421 | Optional PARENT is the parent tag of TAG. |
| 422 | In UML, static methods and attributes mean that they are allocated | 422 | In UML, static methods and attributes mean that they are allocated |
| 423 | in the parent class, and are not instance specific. | 423 | in the parent class, and are not instance specific. |
| @@ -436,7 +436,7 @@ See `semantic-tag-static-p'." | |||
| 436 | 436 | ||
| 437 | ;;;###autoload | 437 | ;;;###autoload |
| 438 | (define-overloadable-function semantic-tag-prototype-p (tag) | 438 | (define-overloadable-function semantic-tag-prototype-p (tag) |
| 439 | "Return non nil if TAG is a prototype. | 439 | "Return non-nil if TAG is a prototype. |
| 440 | For some languages, such as C, a prototype is a declaration of | 440 | For some languages, such as C, a prototype is a declaration of |
| 441 | something without an implementation." | 441 | something without an implementation." |
| 442 | ) | 442 | ) |
diff --git a/lisp/cedet/semantic/wisent.el b/lisp/cedet/semantic/wisent.el index 122b5d399c0..4a759531e46 100644 --- a/lisp/cedet/semantic/wisent.el +++ b/lisp/cedet/semantic/wisent.el | |||
| @@ -184,7 +184,7 @@ the standard function `semantic-parse-stream'." | |||
| 184 | ;; lookahead tokens and tokens in STREAM can be different the | 184 | ;; lookahead tokens and tokens in STREAM can be different the |
| 185 | ;; lookahead token is put in the variable `wisent-lex-lookahead' | 185 | ;; lookahead token is put in the variable `wisent-lex-lookahead' |
| 186 | ;; before calling `wisent-parse'. Wisent's lexers always pop the | 186 | ;; before calling `wisent-parse'. Wisent's lexers always pop the |
| 187 | ;; next lexical token from that variable when non nil, then from | 187 | ;; next lexical token from that variable when non-nil, then from |
| 188 | ;; the lexical input stream. | 188 | ;; the lexical input stream. |
| 189 | ;; | 189 | ;; |
| 190 | ;; The first element of STREAM is used to keep lookahead tokens | 190 | ;; The first element of STREAM is used to keep lookahead tokens |
diff --git a/lisp/dnd.el b/lisp/dnd.el index 973af7e518b..1599543c3ed 100644 --- a/lisp/dnd.el +++ b/lisp/dnd.el | |||
| @@ -63,12 +63,12 @@ if some action was made, or nil if the URL is ignored." | |||
| 63 | 'dnd-open-local-file | 63 | 'dnd-open-local-file |
| 64 | 'dnd-open-remote-url) | 64 | 'dnd-open-remote-url) |
| 65 | "The function to call when opening a file on a remote machine. | 65 | "The function to call when opening a file on a remote machine. |
| 66 | The function will be called with two arguments; URI and ACTION. See | 66 | The function will be called with two arguments, URI and ACTION. |
| 67 | `dnd-open-file' for details. | 67 | See `dnd-open-file' for details. |
| 68 | If nil, then dragging remote files into Emacs will result in an error. | 68 | If nil, then dragging remote files into Emacs will result in an error. |
| 69 | Predefined functions are `dnd-open-local-file' and `dnd-open-remote-url'. | 69 | Predefined functions are `dnd-open-local-file' and `dnd-open-remote-url'. |
| 70 | `dnd-open-local-file' attempts to open a remote file using its UNC name and | 70 | `dnd-open-local-file' attempts to open a remote file using its UNC name and |
| 71 | is the default on MS-Windows. `dnd-open-remote-url' uses `url-handler-mode' | 71 | is the default on MS-Windows. `dnd-open-remote-url' uses `url-handler-mode' |
| 72 | and is the default except for MS-Windows." | 72 | and is the default except for MS-Windows." |
| 73 | :version "22.1" | 73 | :version "22.1" |
| 74 | :type 'function | 74 | :type 'function |
| @@ -174,7 +174,7 @@ The last / in file:/// is part of the file name. If the system | |||
| 174 | natively supports unc file names, then remote urls of the form | 174 | natively supports unc file names, then remote urls of the form |
| 175 | file://server-name/file-name will also be handled by this function. | 175 | file://server-name/file-name will also be handled by this function. |
| 176 | An alternative for systems that do not support unc file names is | 176 | An alternative for systems that do not support unc file names is |
| 177 | `dnd-open-remote-url'. ACTION is ignored." | 177 | `dnd-open-remote-url'. ACTION is ignored." |
| 178 | 178 | ||
| 179 | (let* ((f (dnd-get-local-file-name uri t))) | 179 | (let* ((f (dnd-get-local-file-name uri t))) |
| 180 | (if (and f (file-readable-p f)) | 180 | (if (and f (file-readable-p f)) |
diff --git a/lisp/emacs-lisp/eieio-opt.el b/lisp/emacs-lisp/eieio-opt.el index f08c1de936b..fdbf05b3993 100644 --- a/lisp/emacs-lisp/eieio-opt.el +++ b/lisp/emacs-lisp/eieio-opt.el | |||
| @@ -86,7 +86,7 @@ Argument CH-PREFIX is another character prefix to display." | |||
| 86 | (defun eieio-build-class-alist (&optional class instantiable-only buildlist) | 86 | (defun eieio-build-class-alist (&optional class instantiable-only buildlist) |
| 87 | "Return an alist of all currently active classes for completion purposes. | 87 | "Return an alist of all currently active classes for completion purposes. |
| 88 | Optional argument CLASS is the class to start with. | 88 | Optional argument CLASS is the class to start with. |
| 89 | If INSTANTIABLE-ONLY is non nil, only allow names of classes which | 89 | If INSTANTIABLE-ONLY is non-nil, only allow names of classes which |
| 90 | are not abstract, otherwise allow all classes. | 90 | are not abstract, otherwise allow all classes. |
| 91 | Optional argument BUILDLIST is more list to attach and is used internally." | 91 | Optional argument BUILDLIST is more list to attach and is used internally." |
| 92 | (let* ((cc (or class 'eieio-default-superclass)) | 92 | (let* ((cc (or class 'eieio-default-superclass)) |
| @@ -107,7 +107,7 @@ Optional argument BUILDLIST is more list to attach and is used internally." | |||
| 107 | (defun eieio-read-class (prompt &optional histvar instantiable-only) | 107 | (defun eieio-read-class (prompt &optional histvar instantiable-only) |
| 108 | "Return a class chosen by the user using PROMPT. | 108 | "Return a class chosen by the user using PROMPT. |
| 109 | Optional argument HISTVAR is a variable to use as history. | 109 | Optional argument HISTVAR is a variable to use as history. |
| 110 | If INSTANTIABLE-ONLY is non nil, only allow names of classes which | 110 | If INSTANTIABLE-ONLY is non-nil, only allow names of classes which |
| 111 | are not abstract." | 111 | are not abstract." |
| 112 | (intern (completing-read prompt (eieio-build-class-alist nil instantiable-only) | 112 | (intern (completing-read prompt (eieio-build-class-alist nil instantiable-only) |
| 113 | nil t nil | 113 | nil t nil |
| @@ -117,7 +117,7 @@ are not abstract." | |||
| 117 | "Return a class chosen by the user using PROMPT. | 117 | "Return a class chosen by the user using PROMPT. |
| 118 | CLASS is the base class, and completion occurs across all subclasses. | 118 | CLASS is the base class, and completion occurs across all subclasses. |
| 119 | Optional argument HISTVAR is a variable to use as history. | 119 | Optional argument HISTVAR is a variable to use as history. |
| 120 | If INSTANTIABLE-ONLY is non nil, only allow names of classes which | 120 | If INSTANTIABLE-ONLY is non-nil, only allow names of classes which |
| 121 | are not abstract." | 121 | are not abstract." |
| 122 | (intern (completing-read prompt | 122 | (intern (completing-read prompt |
| 123 | (eieio-build-class-alist class instantiable-only) | 123 | (eieio-build-class-alist class instantiable-only) |
diff --git a/lisp/emacs-lisp/generator.el b/lisp/emacs-lisp/generator.el index caf5fed154b..dd709b32b09 100644 --- a/lisp/emacs-lisp/generator.el +++ b/lisp/emacs-lisp/generator.el | |||
| @@ -541,7 +541,7 @@ don't yield.") | |||
| 541 | 541 | ||
| 542 | (defun cps--replace-variable-references (var new-var form) | 542 | (defun cps--replace-variable-references (var new-var form) |
| 543 | "Replace all non-shadowed references to VAR with NEW-VAR in FORM. | 543 | "Replace all non-shadowed references to VAR with NEW-VAR in FORM. |
| 544 | This routine does not modify FORM. Instead, it returns a | 544 | This routine does not modify FORM. Instead, it returns a |
| 545 | modified copy." | 545 | modified copy." |
| 546 | (macroexpand-all | 546 | (macroexpand-all |
| 547 | `(cl-symbol-macrolet ((,var ,new-var)) ,form) | 547 | `(cl-symbol-macrolet ((,var ,new-var)) ,form) |
| @@ -760,7 +760,7 @@ Return the value with which ITERATOR finished iteration." | |||
| 760 | (cps--advance-for ,cs)))) | 760 | (cps--advance-for ,cs)))) |
| 761 | 761 | ||
| 762 | (defun cps--handle-loop-for (var) | 762 | (defun cps--handle-loop-for (var) |
| 763 | "Support `iter-by' in `loop'. " | 763 | "Support `iter-by' in `loop'." |
| 764 | ;; N.B. While the cl-loop-for-handler is a documented interface, | 764 | ;; N.B. While the cl-loop-for-handler is a documented interface, |
| 765 | ;; there's no documented way for cl-loop-for-handler callbacks to do | 765 | ;; there's no documented way for cl-loop-for-handler callbacks to do |
| 766 | ;; anything useful! Additionally, cl-loop currently lexbinds useful | 766 | ;; anything useful! Additionally, cl-loop currently lexbinds useful |
diff --git a/lisp/erc/erc-dcc.el b/lisp/erc/erc-dcc.el index 526add1a61f..f3b23369981 100644 --- a/lisp/erc/erc-dcc.el +++ b/lisp/erc/erc-dcc.el | |||
| @@ -88,13 +88,13 @@ All values of the list must be uppercase strings.") | |||
| 88 | (:nick \"nick\" :type SEND :peer server-proc :parent parent-proc :file | 88 | (:nick \"nick\" :type SEND :peer server-proc :parent parent-proc :file |
| 89 | file :sent <marker> :confirmed <marker>)) | 89 | file :sent <marker> :confirmed <marker>)) |
| 90 | 90 | ||
| 91 | :nick - a user or userhost for the peer. combine with :parent to reach them | 91 | :nick - a user or userhost for the peer. Combine with :parent to reach them |
| 92 | 92 | ||
| 93 | :type - the type of DCC connection - SEND for outgoing files, GET for | 93 | :type - the type of DCC connection - SEND for outgoing files, GET for |
| 94 | incoming, and CHAT for both directions. To tell which end started | 94 | incoming, and CHAT for both directions. To tell which end started |
| 95 | the DCC chat, look at :peer | 95 | the DCC chat, look at :peer |
| 96 | 96 | ||
| 97 | :peer - the other end of the DCC connection. In the case of outgoing DCCs, | 97 | :peer - the other end of the DCC connection. In the case of outgoing DCCs, |
| 98 | this represents a server process until a connection is established | 98 | this represents a server process until a connection is established |
| 99 | 99 | ||
| 100 | :parent - the server process where the dcc connection was established. | 100 | :parent - the server process where the dcc connection was established. |
| @@ -102,7 +102,7 @@ All values of the list must be uppercase strings.") | |||
| 102 | connection is in general independent from a particular server | 102 | connection is in general independent from a particular server |
| 103 | connection after it was established. | 103 | connection after it was established. |
| 104 | 104 | ||
| 105 | :file - for outgoing sends, the full path to the file. for incoming sends, | 105 | :file - for outgoing sends, the full path to the file. For incoming sends, |
| 106 | the suggested filename or vetted filename | 106 | the suggested filename or vetted filename |
| 107 | 107 | ||
| 108 | :size - size of the file, may be nil on incoming DCCs") | 108 | :size - size of the file, may be nil on incoming DCCs") |
| @@ -163,11 +163,11 @@ All values of the list must be uppercase strings.") | |||
| 163 | 163 | ||
| 164 | (defun erc-dcc-member (&rest args) | 164 | (defun erc-dcc-member (&rest args) |
| 165 | "Return the first matching entry in `erc-dcc-list' which satisfies the | 165 | "Return the first matching entry in `erc-dcc-list' which satisfies the |
| 166 | constraints given as a plist in ARGS. Returns nil on no match. | 166 | constraints given as a plist in ARGS. Returns nil on no match. |
| 167 | 167 | ||
| 168 | The property :nick is treated specially, if it contains a `!' character, | 168 | The property :nick is treated specially, if it contains a `!' character, |
| 169 | it is treated as a nick!user@host string, and compared with the :nick property | 169 | it is treated as a nick!user@host string, and compared with the :nick property |
| 170 | value of the individual elements using string-equal. Otherwise it is | 170 | value of the individual elements using string-equal. Otherwise it is |
| 171 | compared with `erc-nick-equal-p' which is IRC case-insensitive." | 171 | compared with `erc-nick-equal-p' which is IRC case-insensitive." |
| 172 | (let ((list erc-dcc-list) | 172 | (let ((list erc-dcc-list) |
| 173 | result test) | 173 | result test) |
| @@ -338,8 +338,8 @@ string \".*!.*@.*\" to this list." | |||
| 338 | :type '(repeat regexp)) | 338 | :type '(repeat regexp)) |
| 339 | 339 | ||
| 340 | (defun erc-dcc-server (name filter sentinel) | 340 | (defun erc-dcc-server (name filter sentinel) |
| 341 | "Start listening on a port for an incoming DCC connection. Returns the newly | 341 | "Start listening on a port for an incoming DCC connection. |
| 342 | created subprocess, or nil." | 342 | Returns the newly created subprocess, or nil." |
| 343 | (let ((port (or (and erc-dcc-port-range (car erc-dcc-port-range)) t)) | 343 | (let ((port (or (and erc-dcc-port-range (car erc-dcc-port-range)) t)) |
| 344 | (upper (and erc-dcc-port-range (cdr erc-dcc-port-range))) | 344 | (upper (and erc-dcc-port-range (cdr erc-dcc-port-range))) |
| 345 | process) | 345 | process) |
| @@ -686,7 +686,7 @@ It extracts the information about the dcc request and adds it to | |||
| 686 | 686 | ||
| 687 | (defun erc-dcc-auto-mask-p (spec) | 687 | (defun erc-dcc-auto-mask-p (spec) |
| 688 | "Takes a full SPEC of a user in the form \"nick!login@host\" and | 688 | "Takes a full SPEC of a user in the form \"nick!login@host\" and |
| 689 | matches against all the regexp's in `erc-dcc-auto-masks'. If any | 689 | matches against all the regexp's in `erc-dcc-auto-masks'. If any |
| 690 | match, returns that regexp and nil otherwise." | 690 | match, returns that regexp and nil otherwise." |
| 691 | (let ((lst erc-dcc-auto-masks)) | 691 | (let ((lst erc-dcc-auto-masks)) |
| 692 | (while (and lst | 692 | (while (and lst |
| @@ -908,7 +908,7 @@ other client." | |||
| 908 | 908 | ||
| 909 | (defun erc-dcc-get-file (entry file parent-proc) | 909 | (defun erc-dcc-get-file (entry file parent-proc) |
| 910 | "This function does the work of setting up a transfer from the remote client | 910 | "This function does the work of setting up a transfer from the remote client |
| 911 | to the local one over a tcp connection. This involves setting up a process | 911 | to the local one over a tcp connection. This involves setting up a process |
| 912 | filter and a process sentinel, and making the connection." | 912 | filter and a process sentinel, and making the connection." |
| 913 | (let* ((buffer (generate-new-buffer (file-name-nondirectory file))) | 913 | (let* ((buffer (generate-new-buffer (file-name-nondirectory file))) |
| 914 | proc) | 914 | proc) |
| @@ -1156,7 +1156,7 @@ other client." | |||
| 1156 | buffer)) | 1156 | buffer)) |
| 1157 | 1157 | ||
| 1158 | (defun erc-dcc-chat-accept (entry parent-proc) | 1158 | (defun erc-dcc-chat-accept (entry parent-proc) |
| 1159 | "Accept an incoming DCC connection and open a DCC window" | 1159 | "Accept an incoming DCC connection and open a DCC window." |
| 1160 | (let* ((nick (erc-extract-nick (plist-get entry :nick))) | 1160 | (let* ((nick (erc-extract-nick (plist-get entry :nick))) |
| 1161 | buffer proc) | 1161 | buffer proc) |
| 1162 | (setq proc | 1162 | (setq proc |
diff --git a/lisp/eshell/em-pred.el b/lisp/eshell/em-pred.el index cfef59f962e..ca5e2fafa96 100644 --- a/lisp/eshell/em-pred.el +++ b/lisp/eshell/em-pred.el | |||
| @@ -461,7 +461,7 @@ resultant list of strings." | |||
| 461 | (defun eshell-pred-file-type (type) | 461 | (defun eshell-pred-file-type (type) |
| 462 | "Return a test which tests that the file is of a certain TYPE. | 462 | "Return a test which tests that the file is of a certain TYPE. |
| 463 | TYPE must be a character, and should be one of the possible options | 463 | TYPE must be a character, and should be one of the possible options |
| 464 | that `ls -l' will show in the first column of its display. " | 464 | that `ls -l' will show in the first column of its display." |
| 465 | (when (eq type ?%) | 465 | (when (eq type ?%) |
| 466 | (setq type (char-after)) | 466 | (setq type (char-after)) |
| 467 | (if (memq type '(?b ?c)) | 467 | (if (memq type '(?b ?c)) |
diff --git a/lisp/faces.el b/lisp/faces.el index 5193c216d0a..efae101cd88 100644 --- a/lisp/faces.el +++ b/lisp/faces.el | |||
| @@ -1850,7 +1850,7 @@ If FRAME is nil, that stands for the selected frame." | |||
| 1850 | (defun defined-colors-with-face-attributes (&optional frame) | 1850 | (defun defined-colors-with-face-attributes (&optional frame) |
| 1851 | "Return a list of colors supported for a particular frame. | 1851 | "Return a list of colors supported for a particular frame. |
| 1852 | See `defined-colors' for arguments and return value. In contrast | 1852 | See `defined-colors' for arguments and return value. In contrast |
| 1853 | to `define-colors' the elements of the returned list are color | 1853 | to `define-colorss' the elements of the returned list are color |
| 1854 | strings with text properties, that make the color names render | 1854 | strings with text properties, that make the color names render |
| 1855 | with the color they represent as background color." | 1855 | with the color they represent as background color." |
| 1856 | (mapcar | 1856 | (mapcar |
diff --git a/lisp/font-core.el b/lisp/font-core.el index 6b26f0cb92e..e424506795d 100644 --- a/lisp/font-core.el +++ b/lisp/font-core.el | |||
| @@ -126,7 +126,7 @@ buffer local value for `font-lock-defaults', via its mode hook. | |||
| 126 | 126 | ||
| 127 | The above is the default behavior of `font-lock-mode'; you may | 127 | The above is the default behavior of `font-lock-mode'; you may |
| 128 | specify your own function which is called when `font-lock-mode' | 128 | specify your own function which is called when `font-lock-mode' |
| 129 | is toggled via `font-lock-function'. " | 129 | is toggled via `font-lock-function'." |
| 130 | nil nil nil | 130 | nil nil nil |
| 131 | :after-hook (font-lock-initial-fontify) | 131 | :after-hook (font-lock-initial-fontify) |
| 132 | ;; Don't turn on Font Lock mode if we don't have a display (we're running a | 132 | ;; Don't turn on Font Lock mode if we don't have a display (we're running a |
diff --git a/lisp/frame.el b/lisp/frame.el index fd7e872fb6d..e9d4b2ebe4c 100644 --- a/lisp/frame.el +++ b/lisp/frame.el | |||
| @@ -1817,7 +1817,7 @@ below (above if ABOVE is true) that of FRAME2. Hence the | |||
| 1817 | position of FRAME2 in its display's Z (stacking) order relative | 1817 | position of FRAME2 in its display's Z (stacking) order relative |
| 1818 | to all other frames excluding FRAME1 remains unaltered. | 1818 | to all other frames excluding FRAME1 remains unaltered. |
| 1819 | 1819 | ||
| 1820 | Some window managers may refuse to restack windows. " | 1820 | Some window managers may refuse to restack windows." |
| 1821 | (if (and (frame-live-p frame1) | 1821 | (if (and (frame-live-p frame1) |
| 1822 | (frame-live-p frame2) | 1822 | (frame-live-p frame2) |
| 1823 | (equal (frame-parameter frame1 'display) | 1823 | (equal (frame-parameter frame1 'display) |
diff --git a/lisp/international/kkc.el b/lisp/international/kkc.el index 6691ee9eb9b..437971742dc 100644 --- a/lisp/international/kkc.el +++ b/lisp/international/kkc.el | |||
| @@ -613,7 +613,7 @@ and change the current conversion to the last one in the group." | |||
| 613 | (message "%s" msg)))) | 613 | (message "%s" msg)))) |
| 614 | 614 | ||
| 615 | ;; Update the conversion area with the latest conversion selected. | 615 | ;; Update the conversion area with the latest conversion selected. |
| 616 | ;; ALL if non nil means to update the whole area, else update only | 616 | ;; ALL if non-nil means to update the whole area, else update only |
| 617 | ;; inside quail-overlay-head. | 617 | ;; inside quail-overlay-head. |
| 618 | 618 | ||
| 619 | (defun kkc-update-conversion (&optional all) | 619 | (defun kkc-update-conversion (&optional all) |
diff --git a/lisp/net/shr.el b/lisp/net/shr.el index 1dff129b9dc..e73c7cdee1b 100644 --- a/lisp/net/shr.el +++ b/lisp/net/shr.el | |||
| @@ -115,7 +115,7 @@ Alternative suggestions are: | |||
| 115 | 'browse-url-secondary-browser-function "27.1") | 115 | 'browse-url-secondary-browser-function "27.1") |
| 116 | 116 | ||
| 117 | (defcustom shr-image-animate t | 117 | (defcustom shr-image-animate t |
| 118 | "Non nil means that images that can be animated will be." | 118 | "Non-nil means that images that can be animated will be." |
| 119 | :version "24.4" | 119 | :version "24.4" |
| 120 | :type 'boolean) | 120 | :type 'boolean) |
| 121 | 121 | ||
diff --git a/lisp/org/org-agenda.el b/lisp/org/org-agenda.el index a6195cfb2a5..e50ec3cf08f 100644 --- a/lisp/org/org-agenda.el +++ b/lisp/org/org-agenda.el | |||
| @@ -8908,7 +8908,7 @@ The new content of the line will be NEWHEAD (as modified by | |||
| 8908 | If FIXFACE is non-nil, the face of each item is modified according to | 8908 | If FIXFACE is non-nil, the face of each item is modified according to |
| 8909 | the new TODO state. | 8909 | the new TODO state. |
| 8910 | If JUST-THIS is non-nil, change just the current line, not all. | 8910 | If JUST-THIS is non-nil, change just the current line, not all. |
| 8911 | If FORCE-TAGS is non nil, the car of it returns the new tags." | 8911 | If FORCE-TAGS is non-nil, the car of it returns the new tags." |
| 8912 | (let* ((inhibit-read-only t) | 8912 | (let* ((inhibit-read-only t) |
| 8913 | (line (org-current-line)) | 8913 | (line (org-current-line)) |
| 8914 | (org-agenda-buffer (current-buffer)) | 8914 | (org-agenda-buffer (current-buffer)) |
| @@ -10205,7 +10205,7 @@ to override `appt-message-warning-time'." | |||
| 10205 | (message "Added %d event%s for today" cnt (if (> cnt 1) "s" ""))))) | 10205 | (message "Added %d event%s for today" cnt (if (> cnt 1) "s" ""))))) |
| 10206 | 10206 | ||
| 10207 | (defun org-agenda-today-p (date) | 10207 | (defun org-agenda-today-p (date) |
| 10208 | "Non nil when DATE means today. | 10208 | "Non-nil when DATE means today. |
| 10209 | DATE is either a list of the form (month day year) or a number of | 10209 | DATE is either a list of the form (month day year) or a number of |
| 10210 | days as returned by `calendar-absolute-from-gregorian' or | 10210 | days as returned by `calendar-absolute-from-gregorian' or |
| 10211 | `org-today'. This function considers `org-extend-today-until' | 10211 | `org-today'. This function considers `org-extend-today-until' |
diff --git a/lisp/org/org-id.el b/lisp/org/org-id.el index 34084bfa109..7f7faaae8e8 100644 --- a/lisp/org/org-id.el +++ b/lisp/org/org-id.el | |||
| @@ -241,7 +241,7 @@ Create an ID if necessary." | |||
| 241 | "Get the ID property of the entry at point-or-marker POM. | 241 | "Get the ID property of the entry at point-or-marker POM. |
| 242 | If POM is nil, refer to the entry at point. | 242 | If POM is nil, refer to the entry at point. |
| 243 | If the entry does not have an ID, the function returns nil. | 243 | If the entry does not have an ID, the function returns nil. |
| 244 | However, when CREATE is non nil, create an ID if none is present already. | 244 | However, when CREATE is non-nil, create an ID if none is present already. |
| 245 | PREFIX will be passed through to `org-id-new'. | 245 | PREFIX will be passed through to `org-id-new'. |
| 246 | In any case, the ID of the entry is returned." | 246 | In any case, the ID of the entry is returned." |
| 247 | (org-with-point-at pom | 247 | (org-with-point-at pom |
diff --git a/lisp/org/org.el b/lisp/org/org.el index ab29353ae89..1bb46e49c74 100644 --- a/lisp/org/org.el +++ b/lisp/org/org.el | |||
| @@ -4280,7 +4280,7 @@ org-level-* faces." | |||
| 4280 | 4280 | ||
| 4281 | (defcustom org-highlight-latex-and-related nil | 4281 | (defcustom org-highlight-latex-and-related nil |
| 4282 | "Non-nil means highlight LaTeX related syntax in the buffer. | 4282 | "Non-nil means highlight LaTeX related syntax in the buffer. |
| 4283 | When non nil, the value should be a list containing any of the | 4283 | When non-nil, the value should be a list containing any of the |
| 4284 | following symbols: | 4284 | following symbols: |
| 4285 | `latex' Highlight LaTeX snippets and environments. | 4285 | `latex' Highlight LaTeX snippets and environments. |
| 4286 | `script' Highlight subscript and superscript. | 4286 | `script' Highlight subscript and superscript. |
| @@ -15434,7 +15434,7 @@ but in some other way.") | |||
| 15434 | Being in this list makes sure that they are offered for completion.") | 15434 | Being in this list makes sure that they are offered for completion.") |
| 15435 | 15435 | ||
| 15436 | (defun org--valid-property-p (property) | 15436 | (defun org--valid-property-p (property) |
| 15437 | "Non nil when string PROPERTY is a valid property name." | 15437 | "Non-nil when string PROPERTY is a valid property name." |
| 15438 | (not | 15438 | (not |
| 15439 | (or (equal property "") | 15439 | (or (equal property "") |
| 15440 | (string-match-p "\\s-" property)))) | 15440 | (string-match-p "\\s-" property)))) |
diff --git a/lisp/org/ox-beamer.el b/lisp/org/ox-beamer.el index 11574a97162..77c1b33c5d9 100644 --- a/lisp/org/ox-beamer.el +++ b/lisp/org/ox-beamer.el | |||
| @@ -326,7 +326,7 @@ INFO is a plist used as a communication channel. | |||
| 326 | 326 | ||
| 327 | The value is either the label specified in \"BEAMER_opt\" | 327 | The value is either the label specified in \"BEAMER_opt\" |
| 328 | property, the custom ID, if there is one and | 328 | property, the custom ID, if there is one and |
| 329 | `:latex-prefer-user-labels' property has a non nil value, or | 329 | `:latex-prefer-user-labels' property has a non-nil value, or |
| 330 | a unique internal label. This function assumes HEADLINE will be | 330 | a unique internal label. This function assumes HEADLINE will be |
| 331 | treated as a frame." | 331 | treated as a frame." |
| 332 | (cond | 332 | (cond |
diff --git a/lisp/org/ox-latex.el b/lisp/org/ox-latex.el index d711530bf71..b029f828e4f 100644 --- a/lisp/org/ox-latex.el +++ b/lisp/org/ox-latex.el | |||
| @@ -1236,7 +1236,7 @@ calling `org-latex-compile'." | |||
| 1236 | ;;; Internal Functions | 1236 | ;;; Internal Functions |
| 1237 | 1237 | ||
| 1238 | (defun org-latex--caption-above-p (element info) | 1238 | (defun org-latex--caption-above-p (element info) |
| 1239 | "Non nil when caption is expected to be located above ELEMENT. | 1239 | "Non-nil when caption is expected to be located above ELEMENT. |
| 1240 | INFO is a plist holding contextual information." | 1240 | INFO is a plist holding contextual information." |
| 1241 | (let ((above (plist-get info :latex-caption-above))) | 1241 | (let ((above (plist-get info :latex-caption-above))) |
| 1242 | (if (symbolp above) above | 1242 | (if (symbolp above) above |
diff --git a/lisp/org/ox-odt.el b/lisp/org/ox-odt.el index 8deb6bd51ab..999a2b7f5cf 100644 --- a/lisp/org/ox-odt.el +++ b/lisp/org/ox-odt.el | |||
| @@ -2174,7 +2174,7 @@ SHORT-CAPTION are strings." | |||
| 2174 | ;;;; Links :: Inline Images | 2174 | ;;;; Links :: Inline Images |
| 2175 | 2175 | ||
| 2176 | (defun org-odt--copy-image-file (path) | 2176 | (defun org-odt--copy-image-file (path) |
| 2177 | "Returns the internal name of the file" | 2177 | "Return the internal name of the file" |
| 2178 | (let* ((image-type (file-name-extension path)) | 2178 | (let* ((image-type (file-name-extension path)) |
| 2179 | (media-type (format "image/%s" image-type)) | 2179 | (media-type (format "image/%s" image-type)) |
| 2180 | (target-dir "Images/") | 2180 | (target-dir "Images/") |
| @@ -2379,7 +2379,7 @@ used as a communication channel." | |||
| 2379 | (concat equation "<text:tab/>" label)))))) | 2379 | (concat equation "<text:tab/>" label)))))) |
| 2380 | 2380 | ||
| 2381 | (defun org-odt--copy-formula-file (src-file) | 2381 | (defun org-odt--copy-formula-file (src-file) |
| 2382 | "Returns the internal name of the file" | 2382 | "Return the internal name of the file" |
| 2383 | (let* ((target-dir (format "Formula-%04d/" | 2383 | (let* ((target-dir (format "Formula-%04d/" |
| 2384 | (cl-incf org-odt-embedded-formulas-count))) | 2384 | (cl-incf org-odt-embedded-formulas-count))) |
| 2385 | (target-file (concat target-dir "content.xml"))) | 2385 | (target-file (concat target-dir "content.xml"))) |
diff --git a/lisp/org/ox.el b/lisp/org/ox.el index 58bc9b0ffb0..aa04676db8d 100644 --- a/lisp/org/ox.el +++ b/lisp/org/ox.el | |||
| @@ -804,7 +804,7 @@ also be set with the OPTIONS keyword, e.g. \"timestamp:nil\"." | |||
| 804 | :safe #'booleanp) | 804 | :safe #'booleanp) |
| 805 | 805 | ||
| 806 | (defcustom org-export-with-timestamps t | 806 | (defcustom org-export-with-timestamps t |
| 807 | "Non nil means allow timestamps in export. | 807 | "Non-nil means allow timestamps in export. |
| 808 | 808 | ||
| 809 | It can be set to any of the following values: | 809 | It can be set to any of the following values: |
| 810 | t export all timestamps. | 810 | t export all timestamps. |
diff --git a/lisp/progmodes/cc-mode.el b/lisp/progmodes/cc-mode.el index 76f5de212f2..631787d73f1 100644 --- a/lisp/progmodes/cc-mode.el +++ b/lisp/progmodes/cc-mode.el | |||
| @@ -1966,7 +1966,7 @@ Note that this is a strict tail, so won't match, e.g. \"0x....\".") | |||
| 1966 | ;; these caches from inside them, and we must thus be sure that this | 1966 | ;; these caches from inside them, and we must thus be sure that this |
| 1967 | ;; has already been executed. | 1967 | ;; has already been executed. |
| 1968 | ;; | 1968 | ;; |
| 1969 | ;; This calls the language variable c-before-font-lock-functions, if non nil. | 1969 | ;; This calls the language variable c-before-font-lock-functions, if non-nil. |
| 1970 | ;; This typically sets `syntax-table' properties. | 1970 | ;; This typically sets `syntax-table' properties. |
| 1971 | 1971 | ||
| 1972 | ;; We can sometimes get two consecutive calls to `after-change-functions' | 1972 | ;; We can sometimes get two consecutive calls to `after-change-functions' |
diff --git a/lisp/progmodes/etags.el b/lisp/progmodes/etags.el index 78f27295f0c..a0351610008 100644 --- a/lisp/progmodes/etags.el +++ b/lisp/progmodes/etags.el | |||
| @@ -1313,7 +1313,7 @@ buffer-local values of tags table format variables." | |||
| 1313 | ;; Find the end of the tag and record the whole tag text. | 1313 | ;; Find the end of the tag and record the whole tag text. |
| 1314 | (search-forward "\177") | 1314 | (search-forward "\177") |
| 1315 | (setq tag-text (buffer-substring (1- (point)) (point-at-bol))) | 1315 | (setq tag-text (buffer-substring (1- (point)) (point-at-bol))) |
| 1316 | ;; If use-explicit is non nil and explicit tag is present, use it as part of | 1316 | ;; If use-explicit is non-nil and explicit tag is present, use it as part of |
| 1317 | ;; return value. Else just skip it. | 1317 | ;; return value. Else just skip it. |
| 1318 | (setq explicit-start (point)) | 1318 | (setq explicit-start (point)) |
| 1319 | (when (and (search-forward "\001" (point-at-bol 2) t) | 1319 | (when (and (search-forward "\001" (point-at-bol 2) t) |
diff --git a/lisp/progmodes/verilog-mode.el b/lisp/progmodes/verilog-mode.el index 2939108d47b..293d0b2450b 100644 --- a/lisp/progmodes/verilog-mode.el +++ b/lisp/progmodes/verilog-mode.el | |||
| @@ -626,7 +626,7 @@ If nil, indent as: | |||
| 626 | input [31:0] a; | 626 | input [31:0] a; |
| 627 | input \\=`CP; | 627 | input \\=`CP; |
| 628 | output c; | 628 | output c; |
| 629 | If non nil, treat as: | 629 | If non-nil, treat as: |
| 630 | input [31:0] a; | 630 | input [31:0] a; |
| 631 | input \\=`CP ; | 631 | input \\=`CP ; |
| 632 | output c;" | 632 | output c;" |
diff --git a/lisp/ses.el b/lisp/ses.el index 37d0d615033..36c966432c9 100644 --- a/lisp/ses.el +++ b/lisp/ses.el | |||
| @@ -1435,7 +1435,7 @@ ses--default-printer, ses--numrows, or ses--numcols." | |||
| 1435 | "Extend the global parameters list when file format is updated | 1435 | "Extend the global parameters list when file format is updated |
| 1436 | from 2 to 3. This happens when local printer function are added | 1436 | from 2 to 3. This happens when local printer function are added |
| 1437 | to a sheet that was created with SES version 2. This is not | 1437 | to a sheet that was created with SES version 2. This is not |
| 1438 | undoable. Return nil when there was no change, and non nil otherwise." | 1438 | undoable. Return nil when there was no change, and non-nil otherwise." |
| 1439 | (save-excursion | 1439 | (save-excursion |
| 1440 | (cond | 1440 | (cond |
| 1441 | ((and (= ses--file-format 2) (= 3 new-file-format)) | 1441 | ((and (= ses--file-format 2) (= 3 new-file-format)) |
diff --git a/lisp/term.el b/lisp/term.el index 77fbb1d0915..66ae470239a 100644 --- a/lisp/term.el +++ b/lisp/term.el | |||
| @@ -4209,7 +4209,7 @@ the process. Any more args are arguments to PROGRAM." | |||
| 4209 | (defun ansi-term (program &optional new-buffer-name) | 4209 | (defun ansi-term (program &optional new-buffer-name) |
| 4210 | "Start a terminal-emulator in a new buffer. | 4210 | "Start a terminal-emulator in a new buffer. |
| 4211 | This is almost the same as `term' apart from always creating a new buffer, | 4211 | This is almost the same as `term' apart from always creating a new buffer, |
| 4212 | and `C-x' being marked as a `term-escape-char'. " | 4212 | and `C-x' being marked as a `term-escape-char'." |
| 4213 | (interactive (list (read-from-minibuffer "Run program: " | 4213 | (interactive (list (read-from-minibuffer "Run program: " |
| 4214 | (or explicit-shell-file-name | 4214 | (or explicit-shell-file-name |
| 4215 | (getenv "ESHELL") | 4215 | (getenv "ESHELL") |
diff --git a/lisp/textmodes/bibtex.el b/lisp/textmodes/bibtex.el index a560c2b097f..5ae8097891a 100644 --- a/lisp/textmodes/bibtex.el +++ b/lisp/textmodes/bibtex.el | |||
| @@ -862,7 +862,7 @@ To interactively change the dialect use the command `bibtex-set-dialect'." | |||
| 862 | 862 | ||
| 863 | (defcustom bibtex-no-opt-remove-re "\\`option" | 863 | (defcustom bibtex-no-opt-remove-re "\\`option" |
| 864 | "If a field name matches this regexp, the prefix OPT is not removed. | 864 | "If a field name matches this regexp, the prefix OPT is not removed. |
| 865 | If nil prefix OPT is always removed" | 865 | If nil prefix OPT is always removed." |
| 866 | :group 'bibtex | 866 | :group 'bibtex |
| 867 | :version "24.1" | 867 | :version "24.1" |
| 868 | :type '(choice (regexp) (const nil))) | 868 | :type '(choice (regexp) (const nil))) |
| @@ -2188,7 +2188,7 @@ If FLAG is nil, a message is echoed if point was incremented at least | |||
| 2188 | (defun bibtex-beginning-of-first-entry () | 2188 | (defun bibtex-beginning-of-first-entry () |
| 2189 | "Go to beginning of line of first BibTeX entry in buffer. | 2189 | "Go to beginning of line of first BibTeX entry in buffer. |
| 2190 | If `bibtex-sort-ignore-string-entries' is non-nil, @String entries | 2190 | If `bibtex-sort-ignore-string-entries' is non-nil, @String entries |
| 2191 | are ignored. Return point" | 2191 | are ignored. Return point." |
| 2192 | (goto-char (point-min)) | 2192 | (goto-char (point-min)) |
| 2193 | (bibtex-skip-to-valid-entry) | 2193 | (bibtex-skip-to-valid-entry) |
| 2194 | (point)) | 2194 | (point)) |
| @@ -2714,7 +2714,7 @@ and `bibtex-autokey-names-stretch'." | |||
| 2714 | 2714 | ||
| 2715 | (defun bibtex-autokey-get-title () | 2715 | (defun bibtex-autokey-get-title () |
| 2716 | "Get title field contents up to a terminator. | 2716 | "Get title field contents up to a terminator. |
| 2717 | Return the result as a string" | 2717 | Return the result as a string." |
| 2718 | (let ((case-fold-search t) | 2718 | (let ((case-fold-search t) |
| 2719 | (titlestring | 2719 | (titlestring |
| 2720 | (bibtex-autokey-get-field "title" | 2720 | (bibtex-autokey-get-field "title" |
| @@ -2866,7 +2866,7 @@ Concatenate the key: | |||
| 2866 | (defun bibtex-read-key (prompt &optional key global) | 2866 | (defun bibtex-read-key (prompt &optional key global) |
| 2867 | "Read BibTeX key from minibuffer using PROMPT and default KEY. | 2867 | "Read BibTeX key from minibuffer using PROMPT and default KEY. |
| 2868 | If optional arg GLOBAL is non-nil, completion is based on the keys in | 2868 | If optional arg GLOBAL is non-nil, completion is based on the keys in |
| 2869 | `bibtex-reference-keys' of `bibtex-files'," | 2869 | `bibtex-reference-keys' of `bibtex-files'." |
| 2870 | (let (completion-ignore-case) | 2870 | (let (completion-ignore-case) |
| 2871 | (completing-read prompt (if global (bibtex-global-key-alist) | 2871 | (completing-read prompt (if global (bibtex-global-key-alist) |
| 2872 | bibtex-reference-keys) | 2872 | bibtex-reference-keys) |
| @@ -3054,7 +3054,7 @@ already set. If SELECT is non-nil interactively select a BibTeX buffer. | |||
| 3054 | 3054 | ||
| 3055 | When called interactively, FORCE is t, CURRENT is t if current buffer | 3055 | When called interactively, FORCE is t, CURRENT is t if current buffer |
| 3056 | visits a file using `bibtex-mode', and SELECT is t if current buffer | 3056 | visits a file using `bibtex-mode', and SELECT is t if current buffer |
| 3057 | does not use `bibtex-mode'," | 3057 | does not use `bibtex-mode'." |
| 3058 | (interactive (list (eq major-mode 'bibtex-mode) t | 3058 | (interactive (list (eq major-mode 'bibtex-mode) t |
| 3059 | (not (eq major-mode 'bibtex-mode)))) | 3059 | (not (eq major-mode 'bibtex-mode)))) |
| 3060 | (let ((file-path (split-string (or bibtex-file-path default-directory) ":+")) | 3060 | (let ((file-path (split-string (or bibtex-file-path default-directory) ":+")) |
diff --git a/lisp/textmodes/flyspell.el b/lisp/textmodes/flyspell.el index bfe912308e9..bae0283497e 100644 --- a/lisp/textmodes/flyspell.el +++ b/lisp/textmodes/flyspell.el | |||
| @@ -1116,7 +1116,7 @@ Mostly we check word delimiters." | |||
| 1116 | If the optional argument FOLLOWING, or, when called interactively | 1116 | If the optional argument FOLLOWING, or, when called interactively |
| 1117 | `ispell-following-word', is non-nil, checks the following (rather | 1117 | `ispell-following-word', is non-nil, checks the following (rather |
| 1118 | than preceding) word when the cursor is not over a word. If | 1118 | than preceding) word when the cursor is not over a word. If |
| 1119 | optional argument KNOWN-MISSPELLING is non nil considers word a | 1119 | optional argument KNOWN-MISSPELLING is non-nil considers word a |
| 1120 | misspelling and skips redundant spell-checking step. | 1120 | misspelling and skips redundant spell-checking step. |
| 1121 | 1121 | ||
| 1122 | See `flyspell-get-word' for details of how this finds the word to | 1122 | See `flyspell-get-word' for details of how this finds the word to |
diff --git a/lisp/view.el b/lisp/view.el index deda061cd39..f9aa86617a4 100644 --- a/lisp/view.el +++ b/lisp/view.el | |||
| @@ -581,7 +581,7 @@ the associations of any windows with the current buffer. | |||
| 581 | EXIT-ACTION, if non-nil, must specify a function that is called | 581 | EXIT-ACTION, if non-nil, must specify a function that is called |
| 582 | with the current buffer as argument and is called after disabling | 582 | with the current buffer as argument and is called after disabling |
| 583 | `view-mode' and removing any associations of windows with the | 583 | `view-mode' and removing any associations of windows with the |
| 584 | current buffer. " | 584 | current buffer." |
| 585 | (when view-mode | 585 | (when view-mode |
| 586 | (let ((buffer (window-buffer))) | 586 | (let ((buffer (window-buffer))) |
| 587 | (unless view-no-disable-on-exit | 587 | (unless view-no-disable-on-exit |
diff --git a/src/composite.c b/src/composite.c index efbd055cef2..2725ab3b99c 100644 --- a/src/composite.c +++ b/src/composite.c | |||
| @@ -77,7 +77,7 @@ along with GNU Emacs. If not, see <https://www.gnu.org/licenses/>. */ | |||
| 77 | composition, the elements are characters or encoded | 77 | composition, the elements are characters or encoded |
| 78 | composition rules. | 78 | composition rules. |
| 79 | 79 | ||
| 80 | MODIFICATION-FUNC -- If non nil, it is a function to call when the | 80 | MODIFICATION-FUNC -- If non-nil, it is a function to call when the |
| 81 | composition gets invalid after a modification in a buffer. If | 81 | composition gets invalid after a modification in a buffer. If |
| 82 | it is nil, a function in `composition-function-table' of the | 82 | it is nil, a function in `composition-function-table' of the |
| 83 | first character in the sequence is called. | 83 | first character in the sequence is called. |
diff --git a/src/floatfns.c b/src/floatfns.c index 9049185307c..3199d572138 100644 --- a/src/floatfns.c +++ b/src/floatfns.c | |||
| @@ -141,7 +141,7 @@ DEFUN ("tan", Ftan, Stan, 1, 1, 0, | |||
| 141 | } | 141 | } |
| 142 | 142 | ||
| 143 | DEFUN ("isnan", Fisnan, Sisnan, 1, 1, 0, | 143 | DEFUN ("isnan", Fisnan, Sisnan, 1, 1, 0, |
| 144 | doc: /* Return non nil if argument X is a NaN. */) | 144 | doc: /* Return non-nil if argument X is a NaN. */) |
| 145 | (Lisp_Object x) | 145 | (Lisp_Object x) |
| 146 | { | 146 | { |
| 147 | CHECK_FLOAT (x); | 147 | CHECK_FLOAT (x); |