aboutsummaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorDmitry Gutov2020-07-25 03:17:47 +0300
committerDmitry Gutov2020-07-25 03:17:47 +0300
commit19064761ad2b17b13bdf3c8bd35e9ff58fe2e4fc (patch)
treefa1a68f9b8e3fc7620413bb943ea5269f17d3cd9
parentbca8686f552a93010b130e392ecd92d179260e24 (diff)
downloademacs-19064761ad2b17b13bdf3c8bd35e9ff58fe2e4fc.tar.gz
emacs-19064761ad2b17b13bdf3c8bd35e9ff58fe2e4fc.zip
project-remember-project: New public function
* lisp/progmodes/project.el (project-remember-project): Rename from project--add-to-project-list-front (bug#42332). And autoload it.
-rw-r--r--lisp/progmodes/project.el5
1 files changed, 3 insertions, 2 deletions
diff --git a/lisp/progmodes/project.el b/lisp/progmodes/project.el
index a0930553bd7..5cfc6a20986 100644
--- a/lisp/progmodes/project.el
+++ b/lisp/progmodes/project.el
@@ -197,7 +197,7 @@ of the project instance object."
197 pr (project--find-in-directory directory)))) 197 pr (project--find-in-directory directory))))
198 (when maybe-prompt 198 (when maybe-prompt
199 (if pr 199 (if pr
200 (project--add-to-project-list-front pr) 200 (project-remember-project pr)
201 (project--remove-from-project-list directory) 201 (project--remove-from-project-list directory)
202 (setq pr (cons 'transient directory)))) 202 (setq pr (cons 'transient directory))))
203 pr)) 203 pr))
@@ -987,7 +987,8 @@ With some possible metadata (to be decided).")
987 (pp project--list (current-buffer)) 987 (pp project--list (current-buffer))
988 (write-region nil nil filename nil 'silent)))) 988 (write-region nil nil filename nil 'silent))))
989 989
990(defun project--add-to-project-list-front (pr) 990;;;###autoload
991(defun project-remember-project (pr)
991 "Add project PR to the front of the project list. 992 "Add project PR to the front of the project list.
992Save the result in `project-list-file' if the list of projects has changed." 993Save the result in `project-list-file' if the list of projects has changed."
993 (project--ensure-read-project-list) 994 (project--ensure-read-project-list)