diff options
| author | Karl Fogel | 2010-07-04 15:57:02 -0400 |
|---|---|---|
| committer | Karl Fogel | 2010-07-04 15:57:02 -0400 |
| commit | 5b98e31f69e0889cf83603785c297333720143ca (patch) | |
| tree | e09b6294e1134b82e3ac4c201a512c829810562a /lisp | |
| parent | b9503078536af127ced1d0e52ed09224cb575ab6 (diff) | |
| download | emacs-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.el | 9 |
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." |