diff options
author | Eli Zaretskii <eliz@gnu.org> | 2005-03-19 14:35:59 +0000 |
---|---|---|
committer | Eli Zaretskii <eliz@gnu.org> | 2005-03-19 14:35:59 +0000 |
commit | 399a961f28976fe891a4fcdb8f86378366b828f5 (patch) | |
tree | a26f78ee3ddd00ed21e73510d55dbd5ec4a06250 | |
parent | db645e6199ddb3f5865c2d709b22e653a8ebb357 (diff) | |
download | emacs-399a961f28976fe891a4fcdb8f86378366b828f5.tar.gz |
(finder-current-item): Throw an error on an empty line.
-rw-r--r-- | lisp/finder.el | 12 |
1 files changed, 7 insertions, 5 deletions
diff --git a/lisp/finder.el b/lisp/finder.el index dc7343b9fb0..7a886e5480f 100644 --- a/lisp/finder.el +++ b/lisp/finder.el @@ -301,11 +301,13 @@ FILE should be in a form suitable for passing to `locate-library'." (finder-summary))) (defun finder-current-item () - (if (and finder-headmark (< (point) finder-headmark)) - (error "No keyword or filename on this line") - (save-excursion - (beginning-of-line) - (current-word)))) + (let ((key (save-excursion + (beginning-of-line) + (current-word)))) + (if (or (and finder-headmark (< (point) finder-headmark)) + (= (length key) 0)) + (error "No keyword or filename on this line") + key))) (defun finder-select () "Select item on current line in a finder buffer." |