]> git.eshelyaron.com Git - emacs.git/commitdiff
(bookmark-bmenu-2-window): go to correct position as well as
authorKarl Fogel <kfogel@red-bean.com>
Wed, 15 Mar 1995 14:47:09 +0000 (14:47 +0000)
committerKarl Fogel <kfogel@red-bean.com>
Wed, 15 Mar 1995 14:47:09 +0000 (14:47 +0000)
correct buffer.
(bookmark-bmenu-other-window): same.
(bookmark-bmenu-switch-other-window): same.

lisp/bookmark.el

index c17d6db4c4242008ac5d3c6c4ddc2a19f99c64d4..79b2904898ad526289483a88d6124f37e8cfd79f 100644 (file)
@@ -5,7 +5,7 @@
 ;; Author: Karl Fogel <kfogel@cyclic.com>
 ;; Maintainer: Karl Fogel <kfogel@cyclic.com>
 ;; Created: July, 1993
-;; Author's Update Number: 2.6.8
+;; Author's Update Number: 2.6.9
 ;; Keywords: bookmarks, placeholders, annotations
 
 ;;; Summary:
@@ -1706,8 +1706,11 @@ With a prefix arg, prompts for a file to save them in."
             (pop-up-windows t))
         (delete-other-windows)
         (switch-to-buffer (other-buffer))
-        (let ((buff (car (bookmark-jump-noselect bmrk))))
-          (pop-to-buffer buff))
+       (let* ((pair (bookmark-jump-noselect bmrk))
+               (buff (car pair))
+               (pos  (cdr pair)))
+          (pop-to-buffer buff)
+          (goto-char pos))
         (bury-buffer menu))))
 
 
@@ -1723,8 +1726,31 @@ With a prefix arg, prompts for a file to save them in."
   (interactive)
   (let ((bookmark (bookmark-bmenu-bookmark)))
     (if (bookmark-bmenu-check-position)
-       (let ((buff (car (bookmark-jump-noselect bookmark))))
+       (let* ((pair (bookmark-jump-noselect bookmark))
+               (buff (car pair))
+               (pos  (cdr pair)))
          (switch-to-buffer-other-window buff)
+          (goto-char pos)
+          (set-window-point (get-buffer-window buff) pos)
+         (bookmark-show-annotation bookmark)))))
+
+
+(defun bookmark-bmenu-switch-other-window ()
+  "Make the other window select this line's bookmark.
+The current window remains selected."
+  (interactive)
+  (let ((bookmark (bookmark-bmenu-bookmark)))
+    (if (bookmark-bmenu-check-position)
+       (let* ((pair (bookmark-jump-noselect bookmark))
+               (buff (car pair))
+               (pos  (cdr pair)))
+         (display-buffer buff)
+          (let ((o-buffer (current-buffer)))
+            ;; save-excursion won't do
+            (set-buffer buff)
+            (goto-char pos)
+            (set-window-point (get-buffer-window buff) pos)
+            (set-buffer o-buffer))
          (bookmark-show-annotation bookmark)))))
 
 
@@ -1750,17 +1776,6 @@ With a prefix arg, prompts for a file to save them in."
        (bookmark-edit-annotation bookmark))))
 
 
-(defun bookmark-bmenu-switch-other-window ()
-  "Make the other window select this line's bookmark.
-The current window remains selected."
-  (interactive)
-  (let ((bookmark (bookmark-bmenu-bookmark)))
-    (if (bookmark-bmenu-check-position)
-       (let ((buff (car (bookmark-jump-noselect bookmark))))
-         (display-buffer buff)
-         (bookmark-show-annotation bookmark)))))
-
-
 (defun bookmark-bmenu-quit ()
   "Quit the bookmark menu."
   (interactive)