comparison lisp/progmodes/which-func.el @ 58774:212ad195d26f

(which-function): Use `run-hook-with-args-until-success' instead of a custom loop. Fixes bug with local hooks.

58773:12756b0ec526

(defun which-function ()
  "Return current function name based on point.
Uses `which-function-functions', `imenu--index-alist'
or `add-log-current-defun-function'.
If no function name is found, return nil."
  (let (name)
    ;; Try the which-function-functions functions first.
    (let ((hooks which-func-functions))
      (while hooks
	(let ((value (funcall (car hooks))))
	  (when value
	    (setq name value
		  hooks nil)))
	(setq hooks (cdr hooks))))

    ;; If Imenu is loaded, try to make an index alist with it.
    (when (and (null name)
	       (boundp 'imenu--index-alist) (null imenu--index-alist)
	       (null which-function-imenu-failed))

58774:212ad195d26f

(defun which-function ()
  "Return current function name based on point.
Uses `which-function-functions', `imenu--index-alist'
or `add-log-current-defun-function'.
If no function name is found, return nil."
  (let ((name
	 ;; Try the `which-function-functions' functions first.
	 (run-hook-with-args-until-success 'which-func-functions)))

    ;; If Imenu is loaded, try to make an index alist with it.
    (when (and (null name)
	       (boundp 'imenu--index-alist) (null imenu--index-alist)
	       (null which-function-imenu-failed))