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) |
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) |
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]'. |
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". |