From: Juanma Barranquero Date: Wed, 18 Feb 2009 09:23:28 +0000 (+0000) Subject: * progmodes/cc-menus.el (imenu-progress-message): X-Git-Tag: emacs-pretest-23.0.91~157 X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=0d3e93a66f621c5229c14df56a31c7f19ed52251;p=emacs.git * 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 --git a/lisp/ChangeLog b/lisp/ChangeLog index 06cadfecfae..ca9db4aa31f 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,3 +1,10 @@ +2009-02-18 Juanma Barranquero + + * 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 * mail/rmail.el (rmail-get-new-mail-filter-spam): diff --git a/lisp/progmodes/cc-menus.el b/lisp/progmodes/cc-menus.el index da3997a4603..b151bd0244f 100644 --- a/lisp/progmodes/cc-menus.el +++ b/lisp/progmodes/cc-menus.el @@ -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 @@ Example: ;; (classcount 0) toplist - stupid str str2 (intflen (length "@interface")) @@ -330,10 +328,8 @@ Example: '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 @@ Example: methodlist) toplist)) methodlist nil)))) ;; - (imenu-progress-message stupid 100) (if (eq (car toplist) nil) (setq toplist (cdr toplist)))