Commit 1b700bca authored by Stefan Monnier's avatar Stefan Monnier
Browse files

(imenu-example--name-and-position, imenu-example--lisp-extract-index-name)

(imenu-example--create-lisp-index, imenu-example--create-c-index):
Mark as obsolete.
parent 28930e39
2009-08-19 Stefan Monnier <monnier@iro.umontreal.ca>
* imenu.el (imenu-example--name-and-position)
(imenu-example--lisp-extract-index-name)
(imenu-example--create-lisp-index, imenu-example--create-c-index):
Mark as obsolete.
* progmodes/prolog.el (inferior-prolog-error-regexp-alist): New var.
(inferior-prolog-mode): Use it.
(inferior-prolog-load-file): Reset list of errors.
......
......@@ -310,6 +310,7 @@ Don't move point."
(end (progn (forward-sexp) (point))))
(cons (buffer-substring beg end)
beg))))
(make-obsolete 'imenu-example--name-and-position "your own" "23.2")
;;;
;;; Lisp
......@@ -328,6 +329,7 @@ Don't move point."
(end (progn (forward-sexp -1) (point))))
(buffer-substring beg end)))
(error nil)))))
(make-obsolete 'imenu-example--lisp-extract-index-name "your own" "23.2")
(defun imenu-example--create-lisp-index ()
;; Example of a candidate for `imenu-create-index-function'.
......@@ -379,6 +381,7 @@ Don't move point."
(push (cons "Syntax-unknown" index-unknown-alist)
index-alist))
index-alist))
(make-obsolete 'imenu-example--create-lisp-index "your own" "23.2")
;; Regular expression to find C functions
(defvar imenu-example--function-name-regexp-c
......@@ -410,7 +413,7 @@ Don't move point."
(push (imenu-example--name-and-position) index-alist))))
(imenu-progress-message prev-pos 100)
(nreverse index-alist)))
(make-obsolete 'imenu-example--create-c-index "your own" "23.2")
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment