]> code.delx.au - gnu-emacs/blobdiff - lisp/help-fns.el
Backslash cleanup in Elisp source files
[gnu-emacs] / lisp / help-fns.el
index 77ef21d4af1f653190dc9f17f85993fdf2dec233..945b4d523cc28a5a6012a7bbedc1016c3cf7b198 100644 (file)
@@ -178,7 +178,7 @@ if the variable `help-downcase-arguments' is non-nil."
         (skip-chars-forward "^ ")
         (while next
           (or opt (not (looking-at " &")) (setq opt t))
-          (if (not (re-search-forward " \\([\\[(]*\\)\\([^] &)\.]+\\)" nil t))
+          (if (not (re-search-forward " \\([\\[(]*\\)\\([^] &).]+\\)" nil t))
               (setq next nil)
             (setq args (cons (match-string 2) args))
             (when (and opt (string= (match-string 1) "("))