aboutsummaryrefslogtreecommitdiffstats
path: root/lisp
diff options
context:
space:
mode:
authorLars Magne Ingebrigtsen2011-07-15 15:55:00 +0200
committerLars Magne Ingebrigtsen2011-07-15 15:55:00 +0200
commit1b5eaeb36cb630692e7a9c523f49ad7e9c9e2263 (patch)
tree1e8e92fc9a067b17f85ec2839c0dbc067e531ca5 /lisp
parent4bf0979f4c5b87f53a1da435569ba5646e1d93e5 (diff)
downloademacs-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.el7
-rw-r--r--lisp/emacs-lisp/syntax.el4
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" "\
544Declare something about SPECS while compiling.
545For instance
544 546
547 (declare (warn 0))
548
549will 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"