[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
master 1a8f61a9f65: project--switch-project-command: Retouch
From: |
Dmitry Gutov |
Subject: |
master 1a8f61a9f65: project--switch-project-command: Retouch |
Date: |
Fri, 20 Oct 2023 15:04:15 -0400 (EDT) |
branch: master
commit 1a8f61a9f6515901bccf69271daed0158d946dda
Author: Dmitry Gutov <dmitry@gutov.dev>
Commit: Dmitry Gutov <dmitry@gutov.dev>
project--switch-project-command: Retouch
* lisp/progmodes/project.el (project--switch-project-command):
Remove outdated comment and clear the echo area at the end.
---
lisp/progmodes/project.el | 3 +--
1 file changed, 1 insertion(+), 2 deletions(-)
diff --git a/lisp/progmodes/project.el b/lisp/progmodes/project.el
index 0d6539113cc..fda1081eb62 100644
--- a/lisp/progmodes/project.el
+++ b/lisp/progmodes/project.el
@@ -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
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- master 1a8f61a9f65: project--switch-project-command: Retouch,
Dmitry Gutov <=