home *** CD-ROM | disk | FTP | other *** search
/ NetNews Usenet Archive 1992 #18 / NN_1992_18.iso / spool / alt / lucidem / help / 270 < prev    next >
Encoding:
Text File  |  1992-08-14  |  1.0 KB  |  37 lines
  1. Newsgroups: alt.lucid-emacs.help
  2. Path: sparky!uunet!boulder!news!grunwald
  3. From: grunwald@eclipse.cs.colorado.edu (Dirk Grunwald)
  4. Subject: x-find-selected-file
  5. Message-ID: <GRUNWALD.92Aug14115550@eclipse.cs.colorado.edu>
  6. Sender: news@colorado.edu (The Daily Planet)
  7. Nntp-Posting-Host: eclipse.cs.colorado.edu
  8. Reply-To: grunwald@foobar.cs.colorado.edu
  9. Organization: University of Colorado at Boulder
  10. Distribution: alt
  11. Date: 14 Aug 92 11:55:50
  12. Lines: 23
  13.  
  14.  
  15. Something like this might be a better choice for the ``open file''
  16. menubar item.
  17.  
  18. (defun x-find-selected-file ()
  19.   (interactive)
  20.   (setq last-command nil)
  21.   (let
  22.       ((filename nil))
  23.     (if (and (x-selection-owner-p) primary-selection-extent)
  24.     (save-excursion
  25.       (set-buffer (extent-buffer primary-selection-extent))
  26.       (setq filename
  27.         (buffer-substring
  28.          (extent-start-position primary-selection-extent)
  29.          (extent-end-position primary-selection-extent))))
  30.       )
  31.     (if (and filename (file-exists-p filename))
  32.     (find-file filename)
  33.       (call-interactively 'find-file)
  34.       )
  35.     )
  36.   )
  37.