bookmark+.el - extensions to GNU `bookmark.el'

[Drew Adams]

;;; bookmark+.el --- Extensions to `bookmark.el'.
;; 
;; Emacs Lisp Archive Entry
;; Filename: bookmark+.el
;; Description: Extensions to `bookmark.el'.
;; Author: Drew Adams
;; Maintainer: Drew Adams
;; Copyright (C) 2000, 2001, Drew Adams, all rights reserved.
;; Created: Fri Sep 15 07:58:41 2000
;; Version: $Id: bookmark+.el,v 1.3 2001/01/08 22:21:50 dadams Exp $
;; Last-Updated: Mon Jan  8 14:21:48 2001
;;           By: dadams
;;     Update #: 44
;; Keywords: bookmarks, placeholders, annotations, search
;; Compatibility: GNU Emacs 20.x
;; 
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;; 
;;; Commentary: 
;; 
;; Extensions to `bookmark.el'.
;;
;; New function defined here: `bookmark-jump-other-window'.
;; 
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;; 
;;; Change log:
;; 
;; RCS $Log: bookmark+.el,v $
;; RCS Revision 1.3  2001/01/08 22:21:50  dadams
;; RCS Adapted file header for Emacs Lisp Archive.
;; RCS
;; RCS Revision 1.2  2001/01/03 00:32:39  dadams
;; RCS *** empty log message ***
;; RCS
;; RCS Revision 1.1  2000/09/27 21:32:36  dadams
;; RCS Initial revision
;; RCS
;; 
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;; 
;;; Code:


(require 'bookmark)


(provide 'bookmark+)

;;;;;;;;;;;;;;;;;;;;;;

;;;###autoload 
(define-key bookmark-map "q" 'bookmark-jump-other-window)
;;;###autoload 
(define-key ctl-x-map "p" bookmark-map)
;;;###autoload 
(define-key ctl-x-map "pj" 'bookmark-jump-other-window)

;;;###autoload
(define-key-after menu-bar-bookmark-map [jump-other] 
  '("Jump to Bookmark (Other Window)" . bookmark-menu-jump-other-window)
  'jump)


;;;###autoload
(defun bookmark-jump-other-window (bookmark)
  "Jump to BOOKMARK (a point in some file) in another window.
See `bookmark-jump'."
  (interactive
   (bookmark-completing-read "Jump to bookmark (in another window)"
                             bookmark-current-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)))))

;;;###autoload
(defun bookmark-menu-jump-other-window (event)
  "Jump to BOOKMARK (a point in some file) in another window.
See `bookmark-jump'."
  (interactive "e")
  (bookmark-popup-menu-and-apply-function
   'bookmark-jump-other-window "Jump to Bookmark (in another window)"
   event))

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;; `bookmark+.el' ends here