[Emacs-diffs] emacs/lisp ChangeLog imenu.el

[Stefan Monnier]

CVSROOT:        /sources/emacs
Module name:    emacs
Changes by:     Stefan Monnier <monnier>        09/08/19 17:16:30

Modified files:
        lisp           : ChangeLog imenu.el 

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

CVSWeb URLs:
http://cvs.savannah.gnu.org/viewcvs/emacs/lisp/ChangeLog?cvsroot=emacs&r1=1.15971&r2=1.15972
http://cvs.savannah.gnu.org/viewcvs/emacs/lisp/imenu.el?cvsroot=emacs&r1=1.128&r2=1.129

Patches:
Index: ChangeLog
===================================================================
RCS file: /sources/emacs/emacs/lisp/ChangeLog,v
retrieving revision 1.15971
retrieving revision 1.15972
diff -u -b -r1.15971 -r1.15972
--- ChangeLog   19 Aug 2009 17:15:30 -0000      1.15971
+++ ChangeLog   19 Aug 2009 17:16:26 -0000      1.15972
@@ -1,5 +1,10 @@
 2009-08-19  Stefan Monnier  <address@hidden>
 
+       * 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.

Index: imenu.el
===================================================================
RCS file: /sources/emacs/emacs/lisp/imenu.el,v
retrieving revision 1.128
retrieving revision 1.129
diff -u -b -r1.128 -r1.129
--- imenu.el    5 Jan 2009 03:19:24 -0000       1.128
+++ imenu.el    19 Aug 2009 17:16:30 -0000      1.129
@@ -310,6 +310,7 @@
          (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 @@
                     (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 @@
         (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 @@
            (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")
 
 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
 ;;;