Github/emacs
2
0
Fork 1
mirror of git://git.sv.gnu.org/emacs.git synced 2026-02-16 17:24:23 +00:00
Code Issues Projects Releases Packages Wiki Activity

Fix last-modified meaning in bookmark.el

Browse source 
* 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.
This commit is contained in:
Manuel Giraud 2022-06-08 13:51:41 +02:00 committed by Lars Ingebrigtsen
parent c8532a0acf
commit 496e191fc7
1 changed files with 11 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

12
lisp/bookmark.el
View file

@ -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