diff options
| author | Basil L. Contovounesios | 2018-06-03 19:34:37 +0100 |
|---|---|---|
| committer | Eli Zaretskii | 2018-06-09 09:52:54 +0300 |
| commit | c8dd1bc0fb9f9485eaf3766303b36f8e5243ab57 (patch) | |
| tree | b1f61a69b93ce05dfc8e3891db6a77f7328ac078 | |
| parent | c67befd662571a822f3183c114ce3b1ad02e0ed9 (diff) | |
| download | emacs-c8dd1bc0fb9f9485eaf3766303b36f8e5243ab57.tar.gz emacs-c8dd1bc0fb9f9485eaf3766303b36f8e5243ab57.zip | |
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)
| -rw-r--r-- | lisp/emacs-lisp/find-func.el | 1 |
1 files changed, 1 insertions, 0 deletions
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', | |||
| 466 | otherwise uses `variable-at-point'." | 466 | otherwise uses `variable-at-point'." |
| 467 | (let* ((symb1 (cond ((null type) (function-called-at-point)) | 467 | (let* ((symb1 (cond ((null type) (function-called-at-point)) |
| 468 | ((eq type 'defvar) (variable-at-point)) | 468 | ((eq type 'defvar) (variable-at-point)) |
| 469 | ((eq type 'defface) (face-at-point t)) | ||
| 469 | (t (variable-at-point t)))) | 470 | (t (variable-at-point t)))) |
| 470 | (symb (unless (eq symb1 0) symb1)) | 471 | (symb (unless (eq symb1 0) symb1)) |
| 471 | (predicate (cdr (assq type '((nil . fboundp) | 472 | (predicate (cdr (assq type '((nil . fboundp) |