;ELC   
;;; compiled by cthomp@willow on Mon Aug  9 12:14:30 1993
;;; from file /era/era-0.80/editor/lisp/dired/dired-link.el
;;; emacs version 19.8 (beta6) Lucid.
;;; bytecomp version 2.15; 14-jul-93.
;;; optimization is on.
;;; this file uses opcodes which do not exist in Emacs 18.

(if (and (boundp 'emacs-version)
	 (or (and (boundp 'epoch::version) epoch::version)
	     (string-lessp emacs-version "19")))
    (error "This file was compiled for Emacs 19."))

(require 'dired)
(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 "\
Like M-x dired but returns the dired buffer as value, does not select it."])
(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 "\
Like `dired' but returns the dired buffer as value, does not select it."])
(byte-code "АБВ!«ѓГЄЃДM‡" [dired-noselect fboundp dired-internal-noselect dired-link-noselect-tree dired-link-noselect-classic] 3)
(fset 'dired-link-referent #[(linkname) ";??­™БГ!‰«‰Д\nЕ!\"Єp)ДЕ!\"‡" [linkname nil referent file-symlink-p dired-link-expand file-name-directory] 4 "\
Returns expanded file or directory referent of LINKNAME.
LINKNAME should not end with a directory delimiter.
If LINKNAME is not a string, returns nil.
If LINKNAME is not a link, it is simply expanded and returned."])
(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 "\
Expands REFERENT relative to DIRNAME and returns."])
(byte-code "АБ!€АВ!‡" [provide dir-links dired-link] 2)