mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2024-11-28 07:45:00 +00:00
Code Issues Releases Activity

Upcase parameters in things like "&optional (arg 3)"

Browse Source 
* lisp/help.el (help--make-usage): Upcase cl-defgeneric (etc)
parameter names (bug#23517).
This commit is contained in:
Lars Ingebrigtsen 2019-10-09 09:06:33 +02:00
parent 4fef6e68f7
commit 2497a31646
1 changed files with 11 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

13
lisp/help.el
View File

@ -1469,13 +1469,22 @@ the same names as used in the original source code, when possible."
(defun help--make-usage (function arglist)
(cons (if (symbolp function) function 'anonymous)
(mapcar (lambda (arg)
(if (not (symbolp arg)) arg
(cond
;; Parameter name.
((symbolp arg)
(let ((name (symbol-name arg)))
(cond
((string-match "\\`&" name) arg)
((string-match "\\`_." name)
(intern (upcase (substring name 1))))
(t (intern (upcase name)))))))
(t (intern (upcase name))))))
;; Parameter with a default value (from
;; cl-defgeneric etc).
((and (consp arg)
(symbolp (car arg)))
(cons (intern (upcase (symbol-name (car arg)))) (cdr arg)))
;; Something else.
(t arg)))
arglist)))
(define-obsolete-function-alias 'help-make-usage 'help--make-usage "25.1")