diff options
| author | Eli Zaretskii | 2005-03-19 14:35:59 +0000 |
|---|---|---|
| committer | Eli Zaretskii | 2005-03-19 14:35:59 +0000 |
| commit | 62832105d79435a93a4a402f321f4401933184a9 (patch) | |
| tree | d11e88a1a7df5d67d02ea27fafe72d4729dd2bfa | |
| parent | 09ad1a5b6438acd1606a9e943a51b26f8e28f945 (diff) | |
| download | emacs-62832105d79435a93a4a402f321f4401933184a9.tar.gz emacs-62832105d79435a93a4a402f321f4401933184a9.zip | |
(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'." | |||
| 301 | (finder-summary))) | 301 | (finder-summary))) |
| 302 | 302 | ||
| 303 | (defun finder-current-item () | 303 | (defun finder-current-item () |
| 304 | (if (and finder-headmark (< (point) finder-headmark)) | 304 | (let ((key (save-excursion |
| 305 | (error "No keyword or filename on this line") | 305 | (beginning-of-line) |
| 306 | (save-excursion | 306 | (current-word)))) |
| 307 | (beginning-of-line) | 307 | (if (or (and finder-headmark (< (point) finder-headmark)) |
| 308 | (current-word)))) | 308 | (= (length key) 0)) |
| 309 | (error "No keyword or filename on this line") | ||
| 310 | key))) | ||
| 309 | 311 | ||
| 310 | (defun finder-select () | 312 | (defun finder-select () |
| 311 | "Select item on current line in a finder buffer." | 313 | "Select item on current line in a finder buffer." |