301 |
(finder-summary))) |
(finder-summary))) |
302 |
|
|
303 |
(defun finder-current-item () |
(defun finder-current-item () |
304 |
(if (and finder-headmark (< (point) finder-headmark)) |
(let ((key (save-excursion |
305 |
(error "No keyword or filename on this line") |
(beginning-of-line) |
306 |
(save-excursion |
(current-word)))) |
307 |
(beginning-of-line) |
(if (or (and finder-headmark (< (point) finder-headmark)) |
308 |
(current-word)))) |
(= (length key) 0)) |
309 |
|
(error "No keyword or filename on this line") |
310 |
|
key))) |
311 |
|
|
312 |
(defun finder-select () |
(defun finder-select () |
313 |
"Select item on current line in a finder buffer." |
"Select item on current line in a finder buffer." |