diff options
| author | Stefan Monnier <monnier@iro.umontreal.ca> | 2011-06-01 11:19:45 -0300 |
|---|---|---|
| committer | Stefan Monnier <monnier@iro.umontreal.ca> | 2011-06-01 11:19:45 -0300 |
| commit | 2462470b9ec3876a54f1ce4c70561c478ceaf714 (patch) | |
| tree | 1a2f4e03d44dca8c018b85005dbbbdc09a2584f8 /lisp/help-fns.el | |
| parent | 18613c7e90dbb95c077dfaee632ad4910c512db5 (diff) | |
| download | emacs-2462470b9ec3876a54f1ce4c70561c478ceaf714.tar.gz | |
Miscellaneous tweaks.
* lisp/emacs-lisp/cl-macs.el (dolist, dotimes): Use the same strategy for
lexical scoping as in subr.el's dolist and dotimes.
* lisp/emacs-lisp/bytecomp.el (byte-compile-unfold-bcf):
Silence compiler warning.
* lisp/thingatpt.el (forward-whitespace): Trivial coding style fix.
* lisp/subr.el (with-output-to-temp-buffer): Provide an edebug spec.
* lisp/international/ccl.el (ccl-compile): Trivial simplification.
* lisp/help-fns.el (help-do-arg-highlight): Silence compiler warning.
* lisp/emacs-lisp/testcover.el (testcover-end): Remove spurious
`printflag' argument.
* lisp/emacs-lisp/byte-run.el (make-obsolete, make-obsolete-variable):
Purecopy the whole obsolescence data.
Diffstat (limited to 'lisp/help-fns.el')
| -rw-r--r-- | lisp/help-fns.el | 5 |
1 files changed, 3 insertions, 2 deletions
diff --git a/lisp/help-fns.el b/lisp/help-fns.el index ed1bd836fbf..50e60f94c88 100644 --- a/lisp/help-fns.el +++ b/lisp/help-fns.el @@ -222,7 +222,7 @@ if the variable `help-downcase-arguments' is non-nil." (defun help-do-arg-highlight (doc args) (with-syntax-table (make-syntax-table emacs-lisp-mode-syntax-table) (modify-syntax-entry ?\- "w") - (dolist (arg args doc) + (dolist (arg args) (setq doc (replace-regexp-in-string ;; This is heuristic, but covers all common cases ;; except ARG1-ARG2 @@ -236,7 +236,8 @@ if the variable `help-downcase-arguments' is non-nil." "\\(?:-[{([<`\"].*?\\)?"; for ARG-{x}, (x), <x>, [x], `x' "\\>") ; end of word (help-highlight-arg arg) - doc t t 1))))) + doc t t 1))) + doc)) (defun help-highlight-arguments (usage doc &rest args) (when (and usage (string-match "^(" usage)) |