aboutsummaryrefslogtreecommitdiffstats
path: root/lisp
diff options
context:
space:
mode:
authorKarl Fogel2010-07-04 15:57:02 -0400
committerKarl Fogel2010-07-04 15:57:02 -0400
commit5b98e31f69e0889cf83603785c297333720143ca (patch)
treee09b6294e1134b82e3ac4c201a512c829810562a /lisp
parentb9503078536af127ced1d0e52ed09224cb575ab6 (diff)
downloademacs-5b98e31f69e0889cf83603785c297333720143ca.tar.gz
emacs-5b98e31f69e0889cf83603785c297333720143ca.zip
* lisp/bookmark.el (bookmark-bmenu-switch-other-window,
bookmark-bmenu-other-window, bookmark-bmenu-2-window): Don't override ambient binding of `bookmark-automatically-show-annotations'. (Bug #6515)
Diffstat (limited to 'lisp')
-rw-r--r--lisp/bookmark.el9
1 files changed, 3 insertions, 6 deletions
diff --git a/lisp/bookmark.el b/lisp/bookmark.el
index cfc7d7af5c8..d91c3ca46ee 100644
--- a/lisp/bookmark.el
+++ b/lisp/bookmark.el
@@ -1860,8 +1860,7 @@ With a prefix arg, prompts for a file to save them in."
1860 (pop-up-windows t)) 1860 (pop-up-windows t))
1861 (delete-other-windows) 1861 (delete-other-windows)
1862 (switch-to-buffer (other-buffer)) 1862 (switch-to-buffer (other-buffer))
1863 (let ((bookmark-automatically-show-annotations nil)) ;FIXME: needed? 1863 (bookmark--jump-via bmrk 'pop-to-buffer)
1864 (bookmark--jump-via bmrk 'pop-to-buffer))
1865 (bury-buffer menu))) 1864 (bury-buffer menu)))
1866 1865
1867 1866
@@ -1875,8 +1874,7 @@ With a prefix arg, prompts for a file to save them in."
1875 "Select this line's bookmark in other window, leaving bookmark menu visible." 1874 "Select this line's bookmark in other window, leaving bookmark menu visible."
1876 (interactive) 1875 (interactive)
1877 (let ((bookmark (bookmark-bmenu-bookmark))) 1876 (let ((bookmark (bookmark-bmenu-bookmark)))
1878 (let ((bookmark-automatically-show-annotations t)) ;FIXME: needed? 1877 (bookmark--jump-via bookmark 'switch-to-buffer-other-window)))
1879 (bookmark--jump-via bookmark 'switch-to-buffer-other-window))))
1880 1878
1881 1879
1882(defun bookmark-bmenu-switch-other-window () 1880(defun bookmark-bmenu-switch-other-window ()
@@ -1887,8 +1885,7 @@ The current window remains selected."
1887 (pop-up-windows t) 1885 (pop-up-windows t)
1888 same-window-buffer-names 1886 same-window-buffer-names
1889 same-window-regexps) 1887 same-window-regexps)
1890 (let ((bookmark-automatically-show-annotations t)) ;FIXME: needed? 1888 (bookmark--jump-via bookmark 'display-buffer)))
1891 (bookmark--jump-via bookmark 'display-buffer))))
1892 1889
1893(defun bookmark-bmenu-other-window-with-mouse (event) 1890(defun bookmark-bmenu-other-window-with-mouse (event)
1894 "Select bookmark at the mouse pointer in other window, leaving bookmark menu visible." 1891 "Select bookmark at the mouse pointer in other window, leaving bookmark menu visible."