[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
scratch/project-switching 9dd2cf0: Rename 'project-switch-menu' to 'proj
From: |
Simen Heggestøyl |
Subject: |
scratch/project-switching 9dd2cf0: Rename 'project-switch-menu' to 'project-switch-commands' |
Date: |
Sun, 17 May 2020 07:56:55 -0400 (EDT) |
branch: scratch/project-switching
commit 9dd2cf040c4f43e086b62e57ae24629a8691627b
Author: Simen Heggestøyl <address@hidden>
Commit: Simen Heggestøyl <address@hidden>
Rename 'project-switch-menu' to 'project-switch-commands'
* lisp/progmodes/project.el (project-switch-commands): Rename from
'project-switch-menu'.
(project--keymap-prompt, project-switch-project): Update after the
renaming.
---
lisp/progmodes/project.el | 12 ++++++------
1 file changed, 6 insertions(+), 6 deletions(-)
diff --git a/lisp/progmodes/project.el b/lisp/progmodes/project.el
index 04bd8b4..06e2730 100644
--- a/lisp/progmodes/project.el
+++ b/lisp/progmodes/project.el
@@ -727,7 +727,7 @@ It's also possible to enter an arbitrary directory."
;;; Project switching
;;;###autoload
-(defvar project-switch-menu
+(defvar project-switch-commands
'(("f" "Find file" project-find-file)
("s" "Find regexp" project-find-regexp)
("d" "Dired" project-dired)
@@ -747,26 +747,26 @@ the choice in the dispatch menu.")
(format "[%s] %s"
(propertize (key-description `(,key)) 'face 'bold)
label))
- project-switch-menu
+ project-switch-commands
" "))
;;;###autoload
(defun project-switch-project ()
"\"Switch\" to another project by running a chosen command.
-The available commands are picked from `project-switch-menu' and
-presented in a dispatch menu."
+The available commands are picked from `project-switch-commands'
+and presented in a dispatch menu."
(interactive)
(let ((dir (project-prompt-project-dir))
(choice nil))
(while (not (and choice
(or (equal choice (kbd "C-g"))
- (assoc choice project-switch-menu))))
+ (assoc choice project-switch-commands))))
(setq choice (read-key-sequence (project--keymap-prompt))))
(if (equal choice (kbd "C-g"))
(message "Quit")
(let ((default-directory dir))
(call-interactively
- (nth 2 (assoc choice project-switch-menu)))))))
+ (nth 2 (assoc choice project-switch-commands)))))))
(provide 'project)
;;; project.el ends here
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- scratch/project-switching 9dd2cf0: Rename 'project-switch-menu' to 'project-switch-commands',
Simen Heggestøyl <=