;;; End:
;;; " (file-name-nondirectory generated-finder-keywords-file) " ends here\n")
(kill-buffer "*finder-scratch*")
- (eval-current-buffer) ;; So we get the new keyword list immediately
+ (eval-buffer) ;; So we get the new keyword list immediately
(basic-save-buffer))))
(defun finder-compile-keywords-make-dist ()
(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."