[Top][All Lists]

[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--keymap-prompt, project-switch-project): Update after the
 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
-(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)
-   project-switch-menu
+   project-switch-commands
    "  "))
 (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."
   (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))
-         (nth 2 (assoc choice project-switch-menu)))))))
+         (nth 2 (assoc choice project-switch-commands)))))))
 (provide 'project)
 ;;; project.el ends here

reply via email to

[Prev in Thread] Current Thread [Next in Thread]