diff options
| -rw-r--r-- | lisp/ffap.el | 9 |
1 files changed, 7 insertions, 2 deletions
diff --git a/lisp/ffap.el b/lisp/ffap.el index 1b6665d16d5..8e30b44739f 100644 --- a/lisp/ffap.el +++ b/lisp/ffap.el | |||
| @@ -1321,6 +1321,12 @@ which may actually result in an url rather than a filename." | |||
| 1321 | (defvar ffap-highlight t | 1321 | (defvar ffap-highlight t |
| 1322 | "If non-nil, ffap highlights the current buffer substring.") | 1322 | "If non-nil, ffap highlights the current buffer substring.") |
| 1323 | 1323 | ||
| 1324 | (defface ffap | ||
| 1325 | '((t :inherit highlight)) | ||
| 1326 | "Face used to highlight the current buffer substring." | ||
| 1327 | :group 'ffap | ||
| 1328 | :version "22.1") | ||
| 1329 | |||
| 1324 | (defvar ffap-highlight-overlay nil | 1330 | (defvar ffap-highlight-overlay nil |
| 1325 | "Overlay used by `ffap-highlight'.") | 1331 | "Overlay used by `ffap-highlight'.") |
| 1326 | 1332 | ||
| @@ -1344,8 +1350,7 @@ Uses the face `ffap' if it is defined, or else `highlight'." | |||
| 1344 | (t | 1350 | (t |
| 1345 | (setq ffap-highlight-overlay | 1351 | (setq ffap-highlight-overlay |
| 1346 | (apply 'make-overlay ffap-string-at-point-region)) | 1352 | (apply 'make-overlay ffap-string-at-point-region)) |
| 1347 | (overlay-put ffap-highlight-overlay 'face | 1353 | (overlay-put ffap-highlight-overlay 'face 'ffap)))) |
| 1348 | (if (facep 'ffap) 'ffap 'highlight))))) | ||
| 1349 | 1354 | ||
| 1350 | 1355 | ||
| 1351 | ;;; Main Entrance (`find-file-at-point' == `ffap'): | 1356 | ;;; Main Entrance (`find-file-at-point' == `ffap'): |