/[emacs]/emacs/lisp/finder.el
ViewVC logotype

Diff of /emacs/lisp/finder.el

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.59 by monnier, Fri Mar 26 14:54:17 2004 UTC revision 1.60 by eliz, Sat Mar 19 14:35:59 2005 UTC
# Line 301  FILE should be in a form suitable for pa Line 301  FILE should be in a form suitable for pa
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."

Legend:
Removed from v.1.59  
changed lines
  Added in v.1.60

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26