diff options
| author | Lars Magne Ingebrigtsen | 2011-07-15 15:55:00 +0200 |
|---|---|---|
| committer | Lars Magne Ingebrigtsen | 2011-07-15 15:55:00 +0200 |
| commit | 1b5eaeb36cb630692e7a9c523f49ad7e9c9e2263 (patch) | |
| tree | 1e8e92fc9a067b17f85ec2839c0dbc067e531ca5 /lisp | |
| parent | 4bf0979f4c5b87f53a1da435569ba5646e1d93e5 (diff) | |
| download | emacs-1b5eaeb36cb630692e7a9c523f49ad7e9c9e2263.tar.gz emacs-1b5eaeb36cb630692e7a9c523f49ad7e9c9e2263.zip | |
Minor grammer fixes for syntax.el.
Fixes: debbugs:8690
Diffstat (limited to 'lisp')
| -rw-r--r-- | lisp/emacs-lisp/cl-loaddefs.el | 7 | ||||
| -rw-r--r-- | lisp/emacs-lisp/syntax.el | 4 |
2 files changed, 8 insertions, 3 deletions
diff --git a/lisp/emacs-lisp/cl-loaddefs.el b/lisp/emacs-lisp/cl-loaddefs.el index 48c7386bd43..1c766afc8db 100644 --- a/lisp/emacs-lisp/cl-loaddefs.el +++ b/lisp/emacs-lisp/cl-loaddefs.el | |||
| @@ -282,7 +282,7 @@ Not documented | |||
| 282 | ;;;;;; flet progv psetq do-all-symbols do-symbols dotimes dolist | 282 | ;;;;;; flet progv psetq do-all-symbols do-symbols dotimes dolist |
| 283 | ;;;;;; do* do loop return-from return block etypecase typecase ecase | 283 | ;;;;;; do* do loop return-from return block etypecase typecase ecase |
| 284 | ;;;;;; case load-time-value eval-when destructuring-bind function* | 284 | ;;;;;; case load-time-value eval-when destructuring-bind function* |
| 285 | ;;;;;; defmacro* defun* gentemp gensym) "cl-macs" "cl-macs.el" "9f551dc739a39b3c8b420fbd1ab71879") | 285 | ;;;;;; defmacro* defun* gentemp gensym) "cl-macs" "cl-macs.el" "dd99db1e96dff411cc5d484a639a1330") |
| 286 | ;;; Generated autoloads from cl-macs.el | 286 | ;;; Generated autoloads from cl-macs.el |
| 287 | 287 | ||
| 288 | (autoload 'gensym "cl-macs" "\ | 288 | (autoload 'gensym "cl-macs" "\ |
| @@ -541,7 +541,12 @@ values. For compatibility, (values A B C) is a synonym for (list A B C). | |||
| 541 | \(fn TYPE FORM)" nil (quote macro)) | 541 | \(fn TYPE FORM)" nil (quote macro)) |
| 542 | 542 | ||
| 543 | (autoload 'declare "cl-macs" "\ | 543 | (autoload 'declare "cl-macs" "\ |
| 544 | Declare something about SPECS while compiling. | ||
| 545 | For instance | ||
| 544 | 546 | ||
| 547 | (declare (warn 0)) | ||
| 548 | |||
| 549 | will turn off byte-compile warnings. | ||
| 545 | 550 | ||
| 546 | \(fn &rest SPECS)" nil (quote macro)) | 551 | \(fn &rest SPECS)" nil (quote macro)) |
| 547 | 552 | ||
diff --git a/lisp/emacs-lisp/syntax.el b/lisp/emacs-lisp/syntax.el index 200b3a6389b..c65cbc39eab 100644 --- a/lisp/emacs-lisp/syntax.el +++ b/lisp/emacs-lisp/syntax.el | |||
| @@ -100,7 +100,7 @@ Put first the functions more likely to cause a change and cheaper to compute.") | |||
| 100 | (cons beg end)) | 100 | (cons beg end)) |
| 101 | 101 | ||
| 102 | (defvar syntax-propertize--done -1 | 102 | (defvar syntax-propertize--done -1 |
| 103 | "Position upto which syntax-table properties have been set.") | 103 | "Position up to which syntax-table properties have been set.") |
| 104 | (make-variable-buffer-local 'syntax-propertize--done) | 104 | (make-variable-buffer-local 'syntax-propertize--done) |
| 105 | 105 | ||
| 106 | (defun syntax-propertize--shift-groups (re n) | 106 | (defun syntax-propertize--shift-groups (re n) |
| @@ -283,7 +283,7 @@ The return value is a function suitable for `syntax-propertize-function'." | |||
| 283 | (setq keywords font-lock-syntactic-keywords)))))) | 283 | (setq keywords font-lock-syntactic-keywords)))))) |
| 284 | 284 | ||
| 285 | (defun syntax-propertize (pos) | 285 | (defun syntax-propertize (pos) |
| 286 | "Ensure that syntax-table properties are set upto POS." | 286 | "Ensure that syntax-table properties are set until POS." |
| 287 | (when (and syntax-propertize-function | 287 | (when (and syntax-propertize-function |
| 288 | (< syntax-propertize--done pos)) | 288 | (< syntax-propertize--done pos)) |
| 289 | ;; (message "Needs to syntax-propertize from %s to %s" | 289 | ;; (message "Needs to syntax-propertize from %s to %s" |