aboutsummaryrefslogtreecommitdiffstats
path: root/lisp/ffap.el
diff options
context:
space:
mode:
authorEli Zaretskii <[email protected]>2000-05-25 16:56:34 +0000
committerEli Zaretskii <[email protected]>2000-05-25 16:56:34 +0000
commit3351481016877a05a9db156d4dde17f6b5c82063 (patch)
treee132f65df1b104d5da234fd240318fd5128244fc /lisp/ffap.el
parentbc46628f73ac43974d8c1817048621aff563bf9f (diff)
(ffap-menu-text-plist): Use display-mouse-p, not window-system.
(ffap-highlight): Always default to t.
Diffstat (limited to 'lisp/ffap.el')
-rw-r--r--lisp/ffap.el6
1 files changed, 3 insertions, 3 deletions
diff --git a/lisp/ffap.el b/lisp/ffap.el
index bc934ed351..37ce667945 100644
--- a/lisp/ffap.el
+++ b/lisp/ffap.el
@@ -1257,7 +1257,7 @@ which may actually result in an url rather than a filename."
;;
;; Based on overlay highlighting in Emacs 19.28 isearch.el.
-(defvar ffap-highlight (and window-system t)
+(defvar ffap-highlight t
"If non-nil, ffap highlights the current buffer substring.")
(defvar ffap-highlight-overlay nil
@@ -1365,8 +1365,8 @@ For example, try \":/\" for URL (and some ftp) references.")
(defvar ffap-menu-text-plist
(cond
- ((not window-system) nil)
- (t '(face bold mouse-face highlight))) ; keymap <mousy-map>
+ ((display-mouse-p) '(face bold mouse-face highlight)) ; keymap <mousy-map>
+ (t nil))
"Text properties applied to strings found by `ffap-menu-rescan'.
These properties may be used to fontify the menu references.")