comparison lisp/imenu.el @ 7350:542ab48d0f18

(imenu-default-create-index-function): Temporarily build in handling of a few major modes. (imenu--completion-buffer): Set completion-reference-buffer properly.

7349:c1a962cf4e7a

  "*Wrapper for index searching functions.

Moves point to end of buffer and then repeatedly calls
`imenu-prev-index-position-function' and `imenu-extract-index-name-function'.
Their results are gathered into an index alist."

  (or (and (fboundp imenu-prev-index-position-function)
	   (fboundp imenu-extract-index-name-function))
      (error "The mode \"%s\" does not take full advantage of imenu.el yet."
	     mode-name))      
  (let ((index-alist '())
	name)
    (goto-char (point-max))
    (imenu-progress-message 0 t)
    ;; Search for the function
    (while (funcall imenu-prev-index-position-function) 
      (imenu-progress-message nil t)
      (save-excursion
	(setq name (funcall imenu-extract-index-name-function)))
      (and (stringp name)
	   (push (cons name (point)) index-alist)))
    (imenu-progress-message 100 t)
    index-alist))

(defun imenu--replace-spaces (name replacement)
  ;; Replace all spaces in NAME with REPLACEMENT.
  ;; That second argument should be a string.
  (mapconcat

    (save-window-excursion
      ;; Display the completion buffer
      (with-output-to-temp-buffer "*Completions*"
	(display-completion-list
	 (all-completions "" prepared-index-alist )))
      ;; Make a completion question
      (setq name (completing-read (or prompt "Index item: ")
				    prepared-index-alist
				    nil t nil 'imenu--history-list)))
    (cond
     ((not (stringp name))
      nil)
     ((string= name (car imenu--rescan-item))
      t)
     (t
      (setq choice (assoc name prepared-index-alist))
      (cond
       ((listp (cdr choice))
	(imenu--completion-buffer (cdr choice) prompt))
       (t
	choice))))))

(defun imenu--mouse-menu (index-alist event &optional title)
  "Let the user select from a buffer index from a mouse menu.

INDEX-ALIST is the buffer index and EVENT is a mouse event.

   "\\([a-zA-Z0-9_:*]+\\)[ \t]*("	; name
   ))
(defun imenu-example--create-c++-index ()
  (imenu-example--create-c-index imenu-example--function-name-regexp-c++))


;;;
;;; Example of hooks for the examples above
;;; Put this in your .emacs.
;;;
;; (add-hook 'emacs-lisp-mode-hook
;; 	  (function
;; 	   (lambda ()
;; 	     (setq imenu-create-index-function
;; 		   (function imenu-example--create-lisp-index)))))

;; (add-hook 'lisp-mode-hook
;; 	  (function
;; 	   (lambda ()
;; 	     (setq imenu-create-index-function
;; 		   (function imenu-example--create-lisp-index)))))

;; (add-hook 'c++-mode-hook
;; 	  (function
;; 	   (lambda ()
;; 	     (setq imenu-create-index-function
;; 		   (function imenu-example--create-c++-index)))))

;; (add-hook 'c-mode-hook
;; 	  (function
;; 	   (lambda ()
;; 	     (setq imenu-create-index-function
;; 		   (function imenu-example--create-c-index)))))

(provide 'imenu)

;;; imenu.el ends here

7350:542ab48d0f18

  "*Wrapper for index searching functions.

Moves point to end of buffer and then repeatedly calls
`imenu-prev-index-position-function' and `imenu-extract-index-name-function'.
Their results are gathered into an index alist."
  ;; These should really be done by setting imenu-create-index-function
  ;; in these major modes.  But save that change for later.
  (cond ((eq major-mode 'emacs-lisp-mode)
	 (imenu-example--create-lisp-index))
	((eq major-mode 'lisp-mode)
	 (imenu-example--create-lisp-index))
	((eq major-mode 'c++-mode)
	 (imenu-example--create-c++-index))
	((eq major-mode 'c-mode)
	 (imenu-example--create-c-index))
	(t
	 (or (and (fboundp imenu-prev-index-position-function)
		  (fboundp imenu-extract-index-name-function))
	     (error "The mode \"%s\" does not take full advantage of imenu.el yet."
		    mode-name))      
	 (let ((index-alist '())
	       name)
	   (goto-char (point-max))
	   (imenu-progress-message 0 t)
	   ;; Search for the function
	   (while (funcall imenu-prev-index-position-function) 
	     (imenu-progress-message nil t)
	     (save-excursion
	       (setq name (funcall imenu-extract-index-name-function)))
	     (and (stringp name)
		  (push (cons name (point)) index-alist)))
	   (imenu-progress-message 100 t)
	   index-alist))))

(defun imenu--replace-spaces (name replacement)
  ;; Replace all spaces in NAME with REPLACEMENT.
  ;; That second argument should be a string.
  (mapconcat

    (save-window-excursion
      ;; Display the completion buffer
      (with-output-to-temp-buffer "*Completions*"
	(display-completion-list
	 (all-completions "" prepared-index-alist )))
      (let ((minibuffer-setup-hook
	     (function (lambda ()
			 (let ((buffer (current-buffer)))
			   (save-excursion
			     (set-buffer "*Completions*")
			     (setq completion-reference-buffer buffer)))))))
	;; Make a completion question
	(setq name (completing-read (or prompt "Index item: ")
				    prepared-index-alist
				    nil t nil 'imenu--history-list))))
    (cond ((not (stringp name))
	   nil)
	  ((string= name (car imenu--rescan-item))
	   t)
	  (t
	   (setq choice (assoc name prepared-index-alist))
	   (if (listp (cdr choice))
	       (imenu--completion-buffer (cdr choice) prompt)
	     choice)))))

(defun imenu--mouse-menu (index-alist event &optional title)
  "Let the user select from a buffer index from a mouse menu.

INDEX-ALIST is the buffer index and EVENT is a mouse event.

   "\\([a-zA-Z0-9_:*]+\\)[ \t]*("	; name
   ))
(defun imenu-example--create-c++-index ()
  (imenu-example--create-c-index imenu-example--function-name-regexp-c++))

(provide 'imenu)

;;; imenu.el ends here