# HG changeset patch
# User Juanma Barranquero <lekktu@gmail.com>
# Date 1234949008 0
# Node ID f4d8e2387c069041e1ee8b2bb448a15cacfbb89c
# Parent  9460415e0ed461509345c2d5f3c70ce9623f9dc9
* 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)

diff -r 9460415e0ed4 -r f4d8e2387c06 lisp/ChangeLog
--- a/lisp/ChangeLog	Wed Feb 18 08:31:09 2009 +0000
+++ b/lisp/ChangeLog	Wed Feb 18 09:23:28 2009 +0000
@@ -1,3 +1,10 @@
+2009-02-18  Juanma Barranquero  <lekktu@gmail.com>
+
+	* 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  <rgm@gnu.org>
 
 	* mail/rmail.el (rmail-get-new-mail-filter-spam):
diff -r 9460415e0ed4 -r f4d8e2387c06 lisp/progmodes/cc-menus.el
--- a/lisp/progmodes/cc-menus.el	Wed Feb 18 08:31:09 2009 +0000
+++ b/lisp/progmodes/cc-menus.el	Wed Feb 18 09:23:28 2009 +0000
@@ -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)))