mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2024-12-04 08:47:11 +00:00
Code Issues Releases Activity

project--switch-project-command: Retouch

Browse Source 
* lisp/progmodes/project.el (project--switch-project-command):
Remove outdated comment and clear the echo area at the end.
This commit is contained in:
Dmitry Gutov 2023-10-20 22:04:03 +03:00
parent 377a3c4281
commit 1a8f61a9f6
1 changed files with 1 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
lisp/progmodes/project.el
View File

@ -2006,13 +2006,12 @@ Otherwise, use the face `help-key-binding' in the prompt."
(when (numberp command) (setq command nil))
(unless (or project-switch-use-entire-map
(assq command commands-menu))
;; TODO: Add some hint to the prompt, like "key not
;; recognized" or something.
(setq command nil)))
(let ((global-command (lookup-key (current-global-map) choice)))
(when (memq global-command
'(keyboard-quit keyboard-escape-quit))
(call-interactively global-command)))))
(message nil)
command))
;;;###autoload