/[emacs]/emacs/lisp/bookmark.el
ViewVC logotype

Diff of /emacs/lisp/bookmark.el

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.61.2.4 by miles, Tue Apr 27 14:08:29 2004 UTC revision 1.61.2.5 by miles, Tue Jul 6 10:10:46 2004 UTC
# Line 376  That is, all information but the name." Line 376  That is, all information but the name."
376      (if cell      (if cell
377          (setcdr cell filename)          (setcdr cell filename)
378        (nconc (bookmark-get-bookmark-record bookmark)        (nconc (bookmark-get-bookmark-record bookmark)
379               (list (cons 'filename filename))))))               (list (cons 'filename filename))))
380        (setq bookmark-alist-modification-count
381              (1+ bookmark-alist-modification-count))
382        (if (bookmark-time-to-save-p)
383            (bookmark-save))))
384    
385    
386  (defun bookmark-get-position (bookmark)  (defun bookmark-get-position (bookmark)
# Line 1491  method buffers use to resolve name colli Line 1495  method buffers use to resolve name colli
1495    (define-key bookmark-bmenu-mode-map "m" 'bookmark-bmenu-mark)    (define-key bookmark-bmenu-mode-map "m" 'bookmark-bmenu-mark)
1496    (define-key bookmark-bmenu-mode-map "l" 'bookmark-bmenu-load)    (define-key bookmark-bmenu-mode-map "l" 'bookmark-bmenu-load)
1497    (define-key bookmark-bmenu-mode-map "r" 'bookmark-bmenu-rename)    (define-key bookmark-bmenu-mode-map "r" 'bookmark-bmenu-rename)
1498      (define-key bookmark-bmenu-mode-map "R" 'bookmark-bmenu-relocate)
1499    (define-key bookmark-bmenu-mode-map "t" 'bookmark-bmenu-toggle-filenames)    (define-key bookmark-bmenu-mode-map "t" 'bookmark-bmenu-toggle-filenames)
1500    (define-key bookmark-bmenu-mode-map "a" 'bookmark-bmenu-show-annotation)    (define-key bookmark-bmenu-mode-map "a" 'bookmark-bmenu-show-annotation)
1501    (define-key bookmark-bmenu-mode-map "A" 'bookmark-bmenu-show-all-annotations)    (define-key bookmark-bmenu-mode-map "A" 'bookmark-bmenu-show-all-annotations)
# Line 1589  Bookmark names preceded by a \"*\" have Line 1594  Bookmark names preceded by a \"*\" have
1594    so the bookmark menu bookmark remains visible in its window.    so the bookmark menu bookmark remains visible in its window.
1595  \\[bookmark-bmenu-switch-other-window] -- switch the other window to this bookmark.  \\[bookmark-bmenu-switch-other-window] -- switch the other window to this bookmark.
1596  \\[bookmark-bmenu-rename] -- rename this bookmark \(prompts for new name\).  \\[bookmark-bmenu-rename] -- rename this bookmark \(prompts for new name\).
1597    \\[bookmark-bmenu-relocate] -- relocate this bookmark's file \(prompts for new file\).
1598  \\[bookmark-bmenu-delete] -- mark this bookmark to be deleted, and move down.  \\[bookmark-bmenu-delete] -- mark this bookmark to be deleted, and move down.
1599  \\[bookmark-bmenu-delete-backwards] -- mark this bookmark to be deleted, and move up.  \\[bookmark-bmenu-delete-backwards] -- mark this bookmark to be deleted, and move up.
1600  \\[bookmark-bmenu-execute-deletions] -- delete bookmarks marked with `\\[bookmark-bmenu-delete]'.  \\[bookmark-bmenu-execute-deletions] -- delete bookmarks marked with `\\[bookmark-bmenu-delete]'.
# Line 2041  To carry out the deletions that you've m Line 2047  To carry out the deletions that you've m
2047        (let ((bmrk (bookmark-bmenu-bookmark)))        (let ((bmrk (bookmark-bmenu-bookmark)))
2048          (message (bookmark-location bmrk)))))          (message (bookmark-location bmrk)))))
2049    
2050    (defun bookmark-bmenu-relocate ()
2051      "Change the file path of the bookmark on the current line,
2052      prompting with completion for the new path."
2053      (interactive)
2054      (if (bookmark-bmenu-check-position)
2055          (let ((bmrk (bookmark-bmenu-bookmark))
2056                (thispoint (point)))
2057            (bookmark-relocate bmrk)
2058            (goto-char thispoint))))
2059    
2060    
2061  ;;; Menu bar stuff.  Prefix is "bookmark-menu".  ;;; Menu bar stuff.  Prefix is "bookmark-menu".

Legend:
Removed from v.1.61.2.4  
changed lines
  Added in v.1.61.2.5

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26