From: Basil L. Contovounesios <contovob@tcd.ie>
Date: Sun, 3 Jun 2018 18:34:37 +0000 (+0100)
Subject: Fix default candidate of find-face-definition
X-Git-Tag: emacs-27.0.90~4904
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=c8dd1bc0fb9f9485eaf3766303b36f8e5243ab57;p=emacs.git

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)
---

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)