diff options
| -rw-r--r-- | lisp/ffap.el | 5 |
1 files changed, 2 insertions, 3 deletions
diff --git a/lisp/ffap.el b/lisp/ffap.el index 720142b2181..bc934ed351b 100644 --- a/lisp/ffap.el +++ b/lisp/ffap.el | |||
| @@ -1,6 +1,6 @@ | |||
| 1 | ;;; ffap.el --- find file (or url) at point | 1 | ;;; ffap.el --- find file (or url) at point |
| 2 | ;; | 2 | ;; |
| 3 | ;; Copyright (C) 1995, 1996, 1997 Free Software Foundation, Inc. | 3 | ;; Copyright (C) 1995, 96, 97, 2000 Free Software Foundation, Inc. |
| 4 | ;; | 4 | ;; |
| 5 | ;; Author: Michelangelo Grigni <mic@mathcs.emory.edu> | 5 | ;; Author: Michelangelo Grigni <mic@mathcs.emory.edu> |
| 6 | ;; Created: 29 Mar 1993 | 6 | ;; Created: 29 Mar 1993 |
| @@ -1284,8 +1284,7 @@ Uses the face `ffap' if it is defined, or else `highlight'." | |||
| 1284 | (setq ffap-highlight-overlay | 1284 | (setq ffap-highlight-overlay |
| 1285 | (apply 'make-overlay ffap-string-at-point-region)) | 1285 | (apply 'make-overlay ffap-string-at-point-region)) |
| 1286 | (overlay-put ffap-highlight-overlay 'face | 1286 | (overlay-put ffap-highlight-overlay 'face |
| 1287 | (if (internal-find-face 'ffap) | 1287 | (if (facep 'ffap) 'ffap 'highlight))))) |
| 1288 | 'ffap 'highlight))))) | ||
| 1289 | 1288 | ||
| 1290 | 1289 | ||
| 1291 | ;;; Main Entrance (`find-file-at-point' == `ffap'): | 1290 | ;;; Main Entrance (`find-file-at-point' == `ffap'): |