Mercurial > emacs
diff lisp/progmodes/cc-menus.el @ 20507:07a8c7f7cfe8
(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 | ac6d8d01e311 |
children | 704b7ccba694 |
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 ;;