home *** CD-ROM | disk | FTP | other *** search
/ InfoMagic Source Code 1993 July / THE_SOURCE_CODE_CD_ROM.iso / msdos / winemacs / lisp / dired / dired-li.elc < prev    next >
Encoding:
Text File  |  1993-06-08  |  2.3 KB  |  27 lines
  1. ;;; compiled by jwz@thalidomide on Thu Jul  2 14:40:34 1992
  2. ;;; from file /u/jwz/emacs19/lisp/dired/dired-link.el
  3. ;;; emacs version 19.2.1 Lucid.
  4. ;;; bytecomp version 2.07; 17-jun-92.
  5. ;;; optimization is on.
  6. ;;; this file uses opcodes which do not exist in Emacs18.
  7.  
  8. (if (and (boundp 'emacs-version)
  9.      (or (and (boundp 'epoch::version) epoch::version)
  10.          (string-lessp emacs-version "19")))
  11.     (error "This file was compiled for Emacs19."))
  12.  
  13. (require 'dired)
  14. (fset 'dired-link-noselect-classic #[(dirname) "¼é    ┬├!!ë─Ü?¡¼┼H╞U½ä╟!╚!½ä╔!╩!ë qê╠ \"ê═ ê╬!ê )ç" [dirname default-directory dired-link-referent directory-file-name "" 0 126 expand-file-name file-directory-p file-name-as-directory dired-find-buffer buffer dired-readin dired-move-to-filename dired-mode] 4 "\
  15. Like M-x dired but returns the dired buffer as value, does not select it."])
  16. (fset 'dired-link-noselect-tree #[(dirname &optional switches) "¼é    ┬├─!!!┼!½ä╞!╟\"ç" [dirname default-directory expand-file-name dired-link-referent directory-file-name file-directory-p file-name-as-directory dired-internal-noselect switches] 4 "\
  17. Like `dired' but returns the dired buffer as value, does not select it."])
  18. (byte-code "└┴┬!½â├¬ü─Mç" [dired-noselect fboundp dired-internal-noselect dired-link-noselect-tree dired-link-noselect-classic] 3)
  19. (fset 'dired-link-referent #[(linkname) ";??¡Ö┴├!ë½ë─\n┼!\"¬p)─┼!\"ç" [linkname nil referent file-symlink-p dired-link-expand file-name-directory] 4 "\
  20. Returns expanded file or directory referent of LINKNAME.
  21. LINKNAME should not end with a directory delimiter.
  22. If LINKNAME is not a string, returns nil.
  23. If LINKNAME is not a link, it is simply expanded and returned."])
  24. (fset 'dired-link-expand #[(referent dirname) "└    ─┼\"½£╟╚ö╚òO!╔ëöO ╔ò└OQ¬]─╩\"ë ½Ü ╔U½ö─╠    \"¡à    ╔ëòO═╚└OQ)─╬\"½┬─╧\"½è╚ò└O¬o─╨\"½Æ╤╥\n!!ë╔ò└OP¬g─╙\"½H╔ëöO╔ò└OP¬h╔H╘U¼Ä╔H╒U¼å    P*ç" [nil dirname dir var-link string-match "\\$(\\([^)]*\\))" referent getenv 1 0 "`node_data" nd-abbrev "^//[^/]+" "/sys/" "\\.\\." "^\\(//\\.\\.\\|/\\.\\.\\)\\(/\\|$\\)" "^\\.\\.\\(/\\|$\\)" file-name-directory directory-file-name "[^/]+/\\.\\./" 126 47] 6 "\
  25. Expands REFERENT relative to DIRNAME and returns."])
  26. (byte-code "└┴!ê└┬!ç" [provide dir-links dired-link] 2)
  27.