mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2025-01-22 18:35:09 +00:00
Code Issues Releases Activity

* bookmark.el (bookmark-bmenu-relocate): New function, as

Browse Source 
suggested by David J. Biesack <David.Biesack@sas.com>.
  (bookmark-bmenu-mode-map): Bind `bookmark-bmenu-relocate' to "R".
  (bookmark-bmenu-mode): Describe binding in doc string.
  (bookmark-set-filename): Save the bookmark list if it's time.
This commit is contained in:
Karl Fogel 2004-06-13 01:59:21 +00:00
parent 6fb41b5b77
commit 037b0a8797
2 changed files with 24 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
lisp/ChangeLog
View File

@ -1,3 +1,11 @@
2004-06-12 Karl Fogel <kfogel@red-bean.com>
* bookmark.el (bookmark-bmenu-relocate): New function, as
suggested by David J. Biesack <David.Biesack@sas.com>.
(bookmark-bmenu-mode-map): Bind `bookmark-bmenu-relocate' to "R".
(bookmark-bmenu-mode): Describe binding in doc string.
(bookmark-set-filename): Save the bookmark list if it's time.
2004-06-13 Kenichi Handa <handa@m17n.org>
* international/utf-8.el (ccl-decode-mule-utf-8): Fix previous

17
lisp/bookmark.el
View File

@ -376,7 +376,11 @@ That is, all information but the name."
(if cell
(setcdr cell filename)
(nconc (bookmark-get-bookmark-record bookmark)
(list (cons 'filename filename))))))
(list (cons 'filename filename))))
(setq bookmark-alist-modification-count
(1+ bookmark-alist-modification-count))
(if (bookmark-time-to-save-p)
(bookmark-save))))
(defun bookmark-get-position (bookmark)
@ -1491,6 +1495,7 @@ method buffers use to resolve name collisions."
(define-key bookmark-bmenu-mode-map "m" 'bookmark-bmenu-mark)
(define-key bookmark-bmenu-mode-map "l" 'bookmark-bmenu-load)
(define-key bookmark-bmenu-mode-map "r" 'bookmark-bmenu-rename)
(define-key bookmark-bmenu-mode-map "R" 'bookmark-bmenu-relocate)
(define-key bookmark-bmenu-mode-map "t" 'bookmark-bmenu-toggle-filenames)
(define-key bookmark-bmenu-mode-map "a" 'bookmark-bmenu-show-annotation)
(define-key bookmark-bmenu-mode-map "A" 'bookmark-bmenu-show-all-annotations)
@ -1589,6 +1594,7 @@ Bookmark names preceded by a \"*\" have annotations.
so the bookmark menu bookmark remains visible in its window.
\\[bookmark-bmenu-switch-other-window] -- switch the other window to this bookmark.
\\[bookmark-bmenu-rename] -- rename this bookmark \(prompts for new name\).
\\[bookmark-bmenu-relocate] -- relocate this bookmark's file \(prompts for new file\).
\\[bookmark-bmenu-delete] -- mark this bookmark to be deleted, and move down.
\\[bookmark-bmenu-delete-backwards] -- mark this bookmark to be deleted, and move up.
\\[bookmark-bmenu-execute-deletions] -- delete bookmarks marked with `\\[bookmark-bmenu-delete]'.
@ -2041,6 +2047,15 @@ To carry out the deletions that you've marked, use \\<bookmark-bmenu-mode-map>\\
(let ((bmrk (bookmark-bmenu-bookmark)))
(message (bookmark-location bmrk)))))
(defun bookmark-bmenu-relocate ()
"Change the file path of the bookmark on the current line,
prompting with completion for the new path."
(interactive)
(if (bookmark-bmenu-check-position)
(let ((bmrk (bookmark-bmenu-bookmark))
(thispoint (point)))
(bookmark-relocate bmrk)
(goto-char thispoint))))
;;; Menu bar stuff. Prefix is "bookmark-menu".