diff options
author | Manuel Giraud <manuel@ledu-giraud.fr> | 2022-06-08 13:51:41 +0200 |
---|---|---|
committer | Lars Ingebrigtsen <larsi@gnus.org> | 2022-06-08 13:51:41 +0200 |
commit | 496e191fc73441a0bee67c04010fed7c7965e25c (patch) | |
tree | 74122c78ee2b65f5472b67274d2236d569f37844 /lisp/bookmark.el | |
parent | c8532a0acf1fce4a84053c5c3ed6f114dff6bb69 (diff) | |
download | emacs-496e191fc73441a0bee67c04010fed7c7965e25c.tar.gz |
Fix last-modified meaning in bookmark.el
* lisp/bookmark.el (bookmark-update-last-modified): New function
to update the last-modified field.
(bookmark-send-edited-annotation, bookmark-relocate)
(bookmark-rename): Use `bookmark-update-last-modified' in
annotations editing, relocation and renaming.
Diffstat (limited to 'lisp/bookmark.el')
-rw-r--r-- | lisp/bookmark.el | 12 |
1 files changed, 11 insertions, 1 deletions
diff --git a/lisp/bookmark.el b/lisp/bookmark.el index 849303fac7e..b0b54e52d88 100644 --- a/lisp/bookmark.el +++ b/lisp/bookmark.el @@ -120,7 +120,7 @@ nil means they will be displayed in LIFO order (that is, most recently created ones come first, oldest ones come last). `last-modified' means that bookmarks will be displayed sorted -from most recently set to least recently set. +from most recently modified to least recently modified. Other values means that bookmarks will be displayed sorted by bookmark name." @@ -468,10 +468,17 @@ In other words, return all information but the name." "Return the handler function for BOOKMARK-NAME-OR-RECORD, or nil if none." (bookmark-prop-get bookmark-name-or-record 'handler)) + (defun bookmark-get-last-modified (bookmark-name-or-record) "Return the last-modified for BOOKMARK-NAME-OR-RECORD, or nil if none." (bookmark-prop-get bookmark-name-or-record 'last-modified)) + +(defun bookmark-update-last-modified (bookmark-name-or-record) + "Update the last-modified date of BOOKMARK-NAME-OR-RECORD to the current time." + (bookmark-prop-set bookmark-name-or-record 'last-modified (current-time))) + + (defvar bookmark-history nil "The history list for bookmark functions.") @@ -1069,6 +1076,7 @@ Lines beginning with `#' are ignored." (from-bookmark-list bookmark--annotation-from-bookmark-list) (old-buffer (current-buffer))) (bookmark-set-annotation bookmark-name annotation) + (bookmark-update-last-modified bookmark-name) (setq bookmark-alist-modification-count (1+ bookmark-alist-modification-count)) (message "Annotation updated for \"%s\"" bookmark-name) @@ -1355,6 +1363,7 @@ after a bookmark was set in it." (format "Relocate %s to: " bookmark-name) (file-name-directory bmrk-filename)))))) (bookmark-set-filename bookmark-name newloc) + (bookmark-update-last-modified bookmark-name) (setq bookmark-alist-modification-count (1+ bookmark-alist-modification-count)) (if (bookmark-time-to-save-p) @@ -1417,6 +1426,7 @@ name." nil 'bookmark-history)))) (bookmark-set-name old-name final-new-name) + (bookmark-update-last-modified final-new-name) (setq bookmark-current-bookmark final-new-name) (bookmark-bmenu-surreptitiously-rebuild-list) (setq bookmark-alist-modification-count |