Mercurial > emacs

changeset 20507:07a8c7f7cfe8

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(cc-imenu-objc-function): Use bufsubst-fun as a variable, not as a function.
author Richard M. Stallman <rms@gnu.org>
date Mon, 22 Dec 1997 07:10:19 +0000
parents c096aa581013
children 16f1fd128350
files lisp/progmodes/cc-menus.el
diffstat 1 files changed, 5 insertions(+), 4 deletions(-) [+]
line wrap: on
line diff
--- a/lisp/progmodes/cc-menus.el	Mon Dec 22 06:06:54 1997 +0000
+++ b/lisp/progmodes/cc-menus.el	Mon Dec 22 07:10:19 1997 +0000
@@ -279,9 +279,9 @@
     ;;
     ;; Does this emacs has buffer-substring-no-properties? 
     ;;
-    (fset 'bufsubst-fun (if (fboundp 'buffer-substring-no-properties)
-			    (symbol-function 'buffer-substring-no-properties)
-			  (symbol-function 'buffer-substring)))
+    (setq bufsubst-fun (if (fboundp 'buffer-substring-no-properties)
+			   (symbol-function 'buffer-substring-no-properties)
+			 (symbol-function 'buffer-substring)))
     (goto-char (point-max)) 
     (imenu-progress-message stupid 0)
     ;;
@@ -293,7 +293,8 @@
 		       ((match-beginning C3) C3)
 		       ((match-beginning C2) C2)
 		       ((match-beginning C1) C1))))
-      (setq str (bufsubst-fun (match-beginning langnum) (match-end langnum)))
+      (setq str (funcall bufsubst-fun
+			 (match-beginning langnum) (match-end langnum)))
       ;;
       (cond 
        ;;