From c8dd1bc0fb9f9485eaf3766303b36f8e5243ab57 Mon Sep 17 00:00:00 2001 From: "Basil L. Contovounesios" Date: Sun, 3 Jun 2018 19:34:37 +0100 Subject: [PATCH] Fix default candidate of find-face-definition * lisp/emacs-lisp/find-func.el (find-function-read): Use face-at-point instead of variable-at-point for faces. (bug#31699) --- lisp/emacs-lisp/find-func.el | 1 + 1 file changed, 1 insertion(+) diff --git a/lisp/emacs-lisp/find-func.el b/lisp/emacs-lisp/find-func.el index 300bfab3233..c5424693eca 100644 --- a/lisp/emacs-lisp/find-func.el +++ b/lisp/emacs-lisp/find-func.el @@ -466,6 +466,7 @@ If TYPE is nil, defaults using `function-called-at-point', otherwise uses `variable-at-point'." (let* ((symb1 (cond ((null type) (function-called-at-point)) ((eq type 'defvar) (variable-at-point)) + ((eq type 'defface) (face-at-point t)) (t (variable-at-point t)))) (symb (unless (eq symb1 0) symb1)) (predicate (cdr (assq type '((nil . fboundp) -- 2.39.2