[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Emacs-diffs] Changes to emacs/lisp/bookmark.el,v
From: |
Karl Fogel |
Subject: |
[Emacs-diffs] Changes to emacs/lisp/bookmark.el,v |
Date: |
Fri, 13 Jul 2007 18:20:57 +0000 |
CVSROOT: /cvsroot/emacs
Module name: emacs
Changes by: Karl Fogel <kfogel> 07/07/13 18:20:56
Index: bookmark.el
===================================================================
RCS file: /cvsroot/emacs/emacs/lisp/bookmark.el,v
retrieving revision 1.91
retrieving revision 1.92
diff -u -b -r1.91 -r1.92
--- bookmark.el 13 Jul 2007 18:18:04 -0000 1.91
+++ bookmark.el 13 Jul 2007 18:20:55 -0000 1.92
@@ -241,6 +241,7 @@
;;;###autoload (define-key bookmark-map "m" 'bookmark-set) ;"m"ark
;;;###autoload (define-key bookmark-map "j" 'bookmark-jump)
;;;###autoload (define-key bookmark-map "g" 'bookmark-jump) ;"g"o
+;;;###autoload (define-key bookmark-map "o" 'bookmark-jump-other-window)
;;;###autoload (define-key bookmark-map "i" 'bookmark-insert)
;;;###autoload (define-key bookmark-map "e" 'edit-bookmarks)
;;;###autoload (define-key bookmark-map "f" 'bookmark-insert-location) ;"f"ind
@@ -1081,6 +1082,27 @@
(bookmark-show-annotation bookmark)))))
+;;;###autoload
+(defun bookmark-jump-other-window (bookmark)
+ "Jump to BOOKMARK (a point in some file) in another window.
+See `bookmark-jump'."
+ (interactive
+ (let ((bkm (bookmark-completing-read "Jump to bookmark (in another window)"
+ bookmark-current-bookmark)))
+ (if (> emacs-major-version 21)
+ (list bkm) bkm)))
+ (when bookmark
+ (bookmark-maybe-historicize-string bookmark)
+ (let ((cell (bookmark-jump-noselect bookmark)))
+ (and cell
+ (switch-to-buffer-other-window (car cell))
+ (goto-char (cdr cell))
+ (if bookmark-automatically-show-annotations
+ ;; if there is an annotation for this bookmark,
+ ;; show it in a buffer.
+ (bookmark-show-annotation bookmark))))))
+
+
(defun bookmark-file-or-variation-thereof (file)
"Return FILE (a string) if it exists, or return a reasonable
variation of FILE if that exists. Reasonable variations are checked
- [Emacs-diffs] Changes to emacs/lisp/bookmark.el,v, Karl Fogel, 2007/07/13
- [Emacs-diffs] Changes to emacs/lisp/bookmark.el,v, Karl Fogel, 2007/07/13
- [Emacs-diffs] Changes to emacs/lisp/bookmark.el,v,
Karl Fogel <=
- [Emacs-diffs] Changes to emacs/lisp/bookmark.el,v, Karl Fogel, 2007/07/14
- [Emacs-diffs] Changes to emacs/lisp/bookmark.el,v, Miles Bader, 2007/07/26