procyberian/emacs
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Revert "info-lookup-symbol: Fix the suggested default value in Custom buffers"

Browse source 
This reverts commit ccae4ea699.

We can't use a string with a display string here, anyway, because
it's used in other contexts.
This commit is contained in:
Lars Ingebrigtsen 2020-09-05 17:23:31 +02:00
parent ccae4ea699
commit f303b64f0e
1 changed files with 2 additions and 5 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

7
lisp/info-look.el
View file

@ -298,8 +298,7 @@ If optional argument QUERY is non-nil, query for the help mode."
(enable-recursive-minibuffers t)
(value (completing-read
(if default
(format "Describe %s (default %s): " topic
(substring-no-properties default))
(format "Describe %s (default %s): " topic default)
(format "Describe %s: " topic))
completions nil nil nil 'info-lookup-history default)))
(list (if (equal value "") default value) mode)))
@ -649,9 +648,6 @@ Return nil if there is nothing appropriate in the buffer near point."
(> end beg)))
(buffer-substring-no-properties beg end)))))
(error nil)))
;; We don't need this anymore, because now Custom inserts the unlispified name
;; in the buffer. (Bug#41905)
(make-obsolete 'info-lookup-guess-custom-symbol nil "28.1")
(defun info-lookup-guess-gdb-script-symbol ()
"Get symbol at point in GDB script buffers."
@ -1069,6 +1065,7 @@ Return nil if there is nothing appropriate in the buffer near point."
:mode 'Custom-mode
:ignore-case t
:regexp "[^][()`'‘’,:\" \t\n]+"
:parse-rule 'info-lookup-guess-custom-symbol
:other-modes '(emacs-lisp-mode))
(info-lookup-maybe-add-help