[Emacs-diffs] emacs/lisp ChangeLog progmodes/cc-menus.el

[Juanma Barranquero]

CVSROOT:        /sources/emacs
Module name:    emacs
Changes by:     Juanma Barranquero <lektu>      09/02/18 09:23:33

Modified files:
        lisp           : ChangeLog 
        lisp/progmodes : cc-menus.el 

Log message:
        * progmodes/cc-menus.el (imenu-progress-message):
          Remove bogus cc-bytecomp-defun.
          (cc-imenu-objc-function): Don't call `imenu-progress-message'.
          Don't let-bind variable `stupid'.  (Bug#1638)

CVSWeb URLs:
http://cvs.savannah.gnu.org/viewcvs/emacs/lisp/ChangeLog?cvsroot=emacs&r1=1.15349&r2=1.15350
http://cvs.savannah.gnu.org/viewcvs/emacs/lisp/progmodes/cc-menus.el?cvsroot=emacs&r1=1.42&r2=1.43

Patches:
Index: ChangeLog
===================================================================
RCS file: /sources/emacs/emacs/lisp/ChangeLog,v
retrieving revision 1.15349
retrieving revision 1.15350
diff -u -b -r1.15349 -r1.15350
--- ChangeLog   18 Feb 2009 08:02:56 -0000      1.15349
+++ ChangeLog   18 Feb 2009 09:23:28 -0000      1.15350
@@ -1,3 +1,10 @@
+2009-02-18  Juanma Barranquero  <address@hidden>
+
+       * progmodes/cc-menus.el (imenu-progress-message):
+       Remove bogus cc-bytecomp-defun.
+       (cc-imenu-objc-function): Don't call `imenu-progress-message'.
+       Don't let-bind variable `stupid'.  (Bug#1638)
+
 2009-02-18  Glenn Morris  <address@hidden>
 
        * mail/rmail.el (rmail-get-new-mail-filter-spam):

Index: progmodes/cc-menus.el
===================================================================
RCS file: /sources/emacs/emacs/lisp/progmodes/cc-menus.el,v
retrieving revision 1.42
retrieving revision 1.43
diff -u -b -r1.42 -r1.43
--- progmodes/cc-menus.el       17 Feb 2009 10:59:14 -0000      1.42
+++ progmodes/cc-menus.el       18 Feb 2009 09:23:32 -0000      1.43
@@ -47,7 +47,6 @@
 (cc-bytecomp-defvar imenu-case-fold-search)
 (cc-bytecomp-defvar imenu-generic-expression)
 (cc-bytecomp-defvar imenu-create-index-function)
-(cc-bytecomp-defun imenu-progress-message)
 
 
 ;; imenu integration
@@ -316,7 +315,6 @@
        ;;
        (classcount 0)
        toplist
-       stupid
        str
        str2
        (intflen (length "@interface"))
@@ -330,10 +328,8 @@
             'buffer-substring-no-properties
           'buffer-substring)))
     (goto-char (point-max))
-    (imenu-progress-message stupid 0)
     ;;
     (while (re-search-backward cc-imenu-objc-generic-expression nil t)
-      (imenu-progress-message stupid)
       (setq langnum (if (match-beginning OBJC)
                        OBJC
                      (cond
@@ -385,7 +381,6 @@
                                          methodlist) toplist))
              methodlist nil))))
     ;;
-    (imenu-progress-message stupid 100)
     (if (eq (car toplist) nil)
        (setq toplist (cdr toplist)))