[Emacs-diffs] Changes to emacs/lisp/ffap.el

[Juri Linkov]

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