[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Emacs-diffs] Changes to emacs/lisp/ffap.el
From: |
Juri Linkov |
Subject: |
[Emacs-diffs] Changes to emacs/lisp/ffap.el |
Date: |
Fri, 17 Feb 2006 21:54:17 +0000 |
Index: emacs/lisp/ffap.el
diff -u emacs/lisp/ffap.el:1.55 emacs/lisp/ffap.el:1.56
--- emacs/lisp/ffap.el:1.55 Sun Feb 12 20:30:49 2006
+++ emacs/lisp/ffap.el Fri Feb 17 21:54:17 2006
@@ -1321,6 +1321,12 @@
(defvar ffap-highlight t
"If non-nil, ffap highlights the current buffer substring.")
+(defface ffap
+ '((t :inherit highlight))
+ "Face used to highlight the current buffer substring."
+ :group 'ffap
+ :version "22.1")
+
(defvar ffap-highlight-overlay nil
"Overlay used by `ffap-highlight'.")
@@ -1344,8 +1350,7 @@
(t
(setq ffap-highlight-overlay
(apply 'make-overlay ffap-string-at-point-region))
- (overlay-put ffap-highlight-overlay 'face
- (if (facep 'ffap) 'ffap 'highlight)))))
+ (overlay-put ffap-highlight-overlay 'face 'ffap))))
;;; Main Entrance (`find-file-at-point' == `ffap'):