diff options
| author | Dmitry Gutov | 2020-07-25 03:17:47 +0300 |
|---|---|---|
| committer | Dmitry Gutov | 2020-07-25 03:17:47 +0300 |
| commit | 19064761ad2b17b13bdf3c8bd35e9ff58fe2e4fc (patch) | |
| tree | fa1a68f9b8e3fc7620413bb943ea5269f17d3cd9 | |
| parent | bca8686f552a93010b130e392ecd92d179260e24 (diff) | |
| download | emacs-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.el | 5 |
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. |
| 992 | Save the result in `project-list-file' if the list of projects has changed." | 993 | Save 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) |