1 files changed, 1 insertions, 1 deletions
diff --git a/lisp/progmodes/cperl-mode.el b/lisp/progmodes/cperl-mode.el
index 24a18592792..831917f1197 100644
--- a/lisp/progmodes/cperl-mode.el
+++ b/lisp/progmodes/cperl-mode.el
@@ -4180,7 +4180,7 @@ conditional/loop constructs."
      (let ((indent-info (if cperl-emacs-can-parse
                             (list nil nil nil) ; Cannot use '(), since will modify
                           nil))
-            (pm 0) (imenu-scanning-message "Indenting... (%3d%%)")
+            (pm 0)
            after-change-functions      ; Speed it up!
            st comm old-comm-indent new-comm-indent p pp i empty)
        (if h-a-c (add-hook 'after-change-functions 'cperl-delay-update-hook))

diff --git a/lisp/progmodes/cperl-mode.el b/lisp/progmodes/cperl-mode.el index 24a18592792..831917f1197 100644 --- a/lisp/progmodes/cperl-mode.el +++ b/lisp/progmodes/cperl-mode.el
@@ -4180,7 +4180,7 @@ conditional/loop constructs."
4180	(let ((indent-info (if cperl-emacs-can-parse	4180	(let ((indent-info (if cperl-emacs-can-parse
4181	(list nil nil nil) ; Cannot use '(), since will modify	4181	(list nil nil nil) ; Cannot use '(), since will modify
4182	nil))	4182	nil))
4183	(pm 0) (imenu-scanning-message "Indenting... (%3d%%)")	4183	(pm 0)
4184	after-change-functions ; Speed it up!	4184	after-change-functions ; Speed it up!
4185	st comm old-comm-indent new-comm-indent p pp i empty)	4185	st comm old-comm-indent new-comm-indent p pp i empty)
4186	(if h-a-c (add-hook 'after-change-functions 'cperl-delay-update-hook))	4186	(if h-a-c (add-hook 'after-change-functions 'cperl-delay-update-hook))