From 70824683fd996a78d417e2d12b9f6bf162c364d6 Mon Sep 17 00:00:00 2001 From: =?utf8?q?Simen=20Heggest=C3=B8yl?= Date: Sun, 17 May 2020 13:54:32 +0200 Subject: [PATCH] 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 7f765e628eb..956a4b8a345 100644 --- a/lisp/progmodes/project.el +++ b/lisp/progmodes/project.el @@ -792,7 +792,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) @@ -812,26 +812,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 -- 2.39.5