(describe-categories): "?\ " -> "?\s".

(help-do-arg-highlight): Recognize also ARG-n, as in `move-to-left-margin'
(ARG+n is already recognized).  Simplify.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index dffbcdecabff3a5ade5f5a86413fddeff3b3df8b..31b7bb49bf19e8ff10292ab3fa6a8821f8301c0e 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,5 +1,9 @@
 2005-09-13  Juanma Barranquero  <lekktu@gmail.com>
 
+       * help-fns.el (describe-categories): "?\ " -> "?\s".
+       (help-do-arg-highlight): Recognize also ARG-n, as in
+       `move-to-left-margin' (ARG+n is already recognized).  Simplify.
+
        * international/codepage.el (dos-unsupported-char-glyph):
        * net/newsticker.el (tool-bar-map, w3-mode-map)
        (w3m-minor-mode-map):

diff --git a/lisp/help-fns.el b/lisp/help-fns.el
index 2974e65bf888022c629db9344734b80e3c7e8c5f..b7820b778d2e9e754e27255940aaee27919a3e28 100644 (file)
--- a/lisp/help-fns.el
+++ b/lisp/help-fns.el
@@ -269,22 +269,20 @@ face (according to `face-differs-from-default-p')."
 (defun help-do-arg-highlight (doc args)
   (with-syntax-table (make-syntax-table emacs-lisp-mode-syntax-table)
     (modify-syntax-entry ?\- "w")
-    (while args
-      (let ((arg (prog1 (car args) (setq args (cdr args)))))
-        (setq doc (replace-regexp-in-string
-                   ;; This is heuristic, but covers all common cases
-                   ;; except ARG1-ARG2
-                   (concat "\\<"                   ; beginning of word
-                           "\\(?:[a-z-]*-\\)?"     ; for xxx-ARG
-                           "\\("
-                           (regexp-quote arg)
-                           "\\)"
-                           "\\(?:es\\|s\\|th\\)?"  ; for ARGth, ARGs
-                           "\\(?:-[a-z-]+\\)?"     ; for ARG-xxx
-                           "\\>")                  ; end of word
-                   (help-default-arg-highlight arg)
-                   doc t t 1))))
-    doc))
+    (dolist (arg args doc)
+      (setq doc (replace-regexp-in-string
+                 ;; This is heuristic, but covers all common cases
+                 ;; except ARG1-ARG2
+                 (concat "\\<"                   ; beginning of word
+                         "\\(?:[a-z-]*-\\)?"     ; for xxx-ARG
+                         "\\("
+                         (regexp-quote arg)
+                         "\\)"
+                         "\\(?:es\\|s\\|th\\)?"  ; for ARGth, ARGs
+                         "\\(?:-[a-z0-9-]+\\)?"  ; for ARG-xxx, ARG-n
+                         "\\>")                  ; end of word
+                 (help-default-arg-highlight arg)
+                 doc t t 1)))))
 
 (defun help-highlight-arguments (usage doc &rest args)
   (when usage
@@ -712,7 +710,7 @@ BUFFER should be a buffer or a buffer name."
            (dotimes (i 95)
              (let ((elt (aref docs i)))
                (when elt
-                 (insert (+ i ?\ ) ": " elt "\n"))))
+                 (insert (+ i ?\s) ": " elt "\n"))))
            (while (setq table (char-table-parent table))
              (insert "\nThe parent category table is:")
              (describe-vector table 'help-describe-category-set))))))))