From: Stefan Monnier <monnier@iro.umontreal.ca>
Date: Wed, 19 Aug 2009 17:16:26 +0000 (+0000)
Subject: (imenu-example--name-and-position, imenu-example--lisp-extract-index-name)
X-Git-Tag: emacs-pretest-23.1.90~1784
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=1b700bca57a1d593b05a44534b927df8293ec73d;p=emacs.git

(imenu-example--name-and-position, imenu-example--lisp-extract-index-name)
(imenu-example--create-lisp-index, imenu-example--create-c-index):
Mark as obsolete.
---

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index d7fc48c0e22..b62b7b0fbf7 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,5 +1,10 @@
 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.
diff --git a/lisp/imenu.el b/lisp/imenu.el
index 555aceb0bab..01bb422cedd 100644
--- a/lisp/imenu.el
+++ b/lisp/imenu.el
@@ -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")
 
 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
 ;;;