[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Emacs-diffs] Changes to emacs/lisp/bookmark.el
From: |
Karl Fogel |
Subject: |
[Emacs-diffs] Changes to emacs/lisp/bookmark.el |
Date: |
Sat, 12 Jun 2004 22:09:17 -0400 |
Index: emacs/lisp/bookmark.el
diff -c emacs/lisp/bookmark.el:1.68 emacs/lisp/bookmark.el:1.69
*** emacs/lisp/bookmark.el:1.68 Thu Apr 15 23:12:21 2004
--- emacs/lisp/bookmark.el Sun Jun 13 01:59:21 2004
***************
*** 376,382 ****
(if cell
(setcdr cell filename)
(nconc (bookmark-get-bookmark-record bookmark)
! (list (cons 'filename filename))))))
(defun bookmark-get-position (bookmark)
--- 376,386 ----
(if cell
(setcdr cell filename)
(nconc (bookmark-get-bookmark-record bookmark)
! (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,1496 ****
--- 1495,1501 ----
(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,1594 ****
--- 1594,1600 ----
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,2046 ****
--- 2047,2061 ----
(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".
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- [Emacs-diffs] Changes to emacs/lisp/bookmark.el,
Karl Fogel <=