Mercurial > emacs

changeset 8408:109166e311ce

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(imenu, imenu--flatten-index-alist): Add marker support. (imenu--cleanup): New function. (imenu-example--name-and-position): Now uses markers. (imenu-add-to-menubar): New function to add an entry to the menubar for the buffer's current local keymap.
author Richard M. Stallman <rms@gnu.org>
date Mon, 01 Aug 1994 07:11:43 +0000
parents fed86303cb07
children 4a27ca4bcdf4
files lisp/imenu.el
diffstat 1 files changed, 52 insertions(+), 7 deletions(-) [+]
line wrap: on
line diff
--- a/lisp/imenu.el	Mon Aug 01 04:43:38 1994 +0000
+++ b/lisp/imenu.el	Mon Aug 01 07:11:43 1994 +0000
@@ -5,7 +5,7 @@
 ;; Author: Ake Stenhoff <etxaksf@aom.ericsson.se>
 ;;         Lars Lindberg <lli@sypro.cap.se>
 ;; Created: 8 Feb 1994
-;; Version: 1.7
+;; Version: 1.11
 ;; Keywords: tools
 ;;
 ;; This program is free software; you can redistribute it and/or modify
@@ -43,6 +43,15 @@
 ;;   supplied.
 
 ;;; Change Log:
+;;    v1.11 Jul 26 1994 Ake Stenhoff
+;;      Fixed bugs in 'imenu-add-to-menubar'.
+;;    v1.10 Jul 21 1994 Ake Stenhoff
+;;      Added support for markers.
+;;      Changed the examples to use
+;;      markers.
+;;      Thanks [alon].
+;;    v1.9 Jun 14 1994 Ake Stenhoff
+;;      Added 'imenu-add-to-menubar'.
 ;;    v1.7 Apr 12 1994 Ake Stenhoff
 ;;	Changed doc strings refering to symbols.
 ;;      Require 'cl' when compiling only.
@@ -77,7 +86,7 @@
 ;;; Thanks goes to
 ;;  [simon] - Simon Leinen simon@lia.di.epfl.ch
 ;;  [dean] - Dean Andrews ada@unison.com
-;;  
+;;  [alon] - Alon Albert al@mercury.co.il 
 
 ;;; Code
 (eval-when-compile (require 'cl))
@@ -287,7 +296,25 @@
       (error "No items suitable for an index found in this buffer."))
   ;; Add a rescan option to the index.
   (cons imenu--rescan-item imenu--index-alist))
-
+;;;
+;;; Find all markers in alist and makes
+;;; them point nowhere.
+;;;
+(defun imenu--cleanup (&optional alist)
+  ;; Sets the markers in imenu--index-alist 
+  ;; point nowhere.
+  ;; if alist is provided use that list.
+  (and imenu--index-alist
+       (mapc 
+	(function
+	 (lambda (item)
+	   (cond
+	    ((markerp (cdr item))
+	     (set-marker (cdr item) nil))
+	    ((listp (cdr item))
+	     (imenu--cleanup (cdr item))))))
+	 (if alist alist imenu--index-alist))
+	t))
 (defun imenu-default-create-index-function ()
   "*Wrapper for index searching functions.
 
@@ -350,7 +377,7 @@
 				  (concat prefix imenu-level-separator name)
 				name))))
 	(cond
-	 ((numberp pos)
+	 ((or (markerp pos) (numberp pos))
 	  (list (cons new-prefix pos)))
 	 (t
 	  (imenu--flatten-index-alist pos new-prefix))))))
@@ -468,9 +495,20 @@
 		(imenu--mouse-menu index-alist last-nonmenu-event)
 	      (imenu--completion-buffer index-alist prompt)))
       (and (eq result t)
+	   (imenu--cleanup)
 	   (setq imenu--index-alist nil)))
     result))
 
+(defun imenu-add-to-menubar (name)
+  "Adds an \"imenu\" entry to the menubar for the 
+current local keymap.
+NAME is the string naming the menu to be added.
+See 'imenu' for more information."
+  (interactive "sMenu name: ")
+  (and window-system
+       (define-key (current-local-map) [menu-bar index]
+	 (cons name 'imenu))))
+
 ;;;###autoload
 (defun imenu ()
   "Jump to a place in the buffer chosen using a buffer menu or mouse menu.
@@ -480,7 +518,12 @@
     (and index-item
 	 (progn
 	   (push-mark)
-	   (goto-char (cdr index-item))))))
+	   (cond
+	    ((markerp (cdr index-item))
+	     (goto-char (marker-position (cdr index-item))))
+	    (t
+	     (goto-char (cdr index-item))))))))
+
 
 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
 ;;;;
@@ -495,9 +538,11 @@
   (save-excursion
     (forward-sexp -1)
     (let ((beg (point))
-	  (end (progn (forward-sexp) (point))))
+	  (end (progn (forward-sexp) (point)))
+	  (marker (make-marker)))
+      (set-marker marker beg)
       (cons (buffer-substring beg end)
-	    beg))))
+	    marker))))
   
 ;;;
 ;;; Lisp