Mercurial > emacs
comparison lisp/ffap.el @ 26725:7e3e0c11f5b6
Autoload the ffap alias directly.
author | Dave Love <fx@gnu.org> |
---|---|
date | Mon, 06 Dec 1999 16:26:36 +0000 |
parents | 24ffa91626d3 |
children | 4d1a63ff990f |
comparison
equal
deleted
inserted
replaced
26724:8dbcefccbde4 | 26725:7e3e0c11f5b6 |
---|---|
1349 ((signal 'file-error (list "Opening file buffer" | 1349 ((signal 'file-error (list "Opening file buffer" |
1350 "no such file or directory" | 1350 "no such file or directory" |
1351 filename)))))) | 1351 filename)))))) |
1352 | 1352 |
1353 ;; Shortcut: allow {M-x ffap} rather than {M-x find-file-at-point}. | 1353 ;; Shortcut: allow {M-x ffap} rather than {M-x find-file-at-point}. |
1354 ;; The defun is for autoload.el; the defalias takes over at load time. | 1354 ;;;###autoload(defalias 'ffap 'find-file-at-point) |
1355 ;;;###autoload | |
1356 (defun ffap (&optional filename) | |
1357 "A short alias for the find-file-at-point command.") | |
1358 (defalias 'ffap 'find-file-at-point) | |
1359 | |
1360 | 1355 |
1361 ;;; Menu support (`ffap-menu'): | 1356 ;;; Menu support (`ffap-menu'): |
1362 | 1357 |
1363 (defvar ffap-menu-regexp nil | 1358 (defvar ffap-menu-regexp nil |
1364 "*If non-nil, overrides `ffap-next-regexp' during `ffap-menu'. | 1359 "*If non-nil, overrides `ffap-next-regexp' during `ffap-menu'. |