[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Emacs-diffs] master c8dd1bc 1/2: Fix default candidate of find-face-def
From: |
Eli Zaretskii |
Subject: |
[Emacs-diffs] master c8dd1bc 1/2: Fix default candidate of find-face-definition |
Date: |
Sat, 9 Jun 2018 02:55:49 -0400 (EDT) |
branch: master
commit c8dd1bc0fb9f9485eaf3766303b36f8e5243ab57
Author: Basil L. Contovounesios <address@hidden>
Commit: Eli Zaretskii <address@hidden>
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 300bfab..c542469 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)
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- [Emacs-diffs] master c8dd1bc 1/2: Fix default candidate of find-face-definition,
Eli Zaretskii <=