comparison lisp/progmodes/cc-menus.el @ 20507:07a8c7f7cfe8

(cc-imenu-objc-function): Use bufsubst-fun as a variable, not as a function.

20506:c096aa581013

	(prtlen  (length "@protocol"))
	bufsubst-fun)
    ;;
    ;; 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)))
    (goto-char (point-max)) 
    (imenu-progress-message stupid 0)
    ;;
    (while (re-search-backward cc-imenu-objc-generic-expression nil t)
      (imenu-progress-message stupid)

			OBJC
		      (cond
		       ((match-beginning C3) C3)
		       ((match-beginning C2) C2)
		       ((match-beginning C1) C1))))
      (setq str (bufsubst-fun (match-beginning langnum) (match-end langnum)))
      ;;
      (cond 
       ;;
       ;; C
       ;;

20507:07a8c7f7cfe8

	(prtlen  (length "@protocol"))
	bufsubst-fun)
    ;;
    ;; Does this emacs has buffer-substring-no-properties? 
    ;;
    (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)
    ;;
    (while (re-search-backward cc-imenu-objc-generic-expression nil t)
      (imenu-progress-message stupid)

			OBJC
		      (cond
		       ((match-beginning C3) C3)
		       ((match-beginning C2) C2)
		       ((match-beginning C1) C1))))
      (setq str (funcall bufsubst-fun
			 (match-beginning langnum) (match-end langnum)))
      ;;
      (cond 
       ;;
       ;; C
       ;;