home *** CD-ROM | disk | FTP | other *** search
/ NetNews Usenet Archive 1993 #1 / NN_1993_1.iso / spool / gnu / emacs / bug / 1616 < prev    next >
Encoding:
Text File  |  1993-01-08  |  1.4 KB  |  45 lines
  1. Newsgroups: gnu.emacs.bug
  2. Path: sparky!uunet!zaphod.mps.ohio-state.edu!cis.ohio-state.edu!cpr.CAnon.co.JP!shingu
  3. From: shingu@cpr.CAnon.co.JP (Toshiaki Shingu)
  4. Subject: dired on SunOS 4.1.3
  5. Message-ID: <SHINGU.93Jan8140817@casp12.cpr.canon.co.jp>
  6. Sender: gnulists@ai.mit.edu
  7. Organization: Canon Inc., Tokyo, Japan
  8. Distribution: gnu
  9. Date: Fri, 8 Jan 1993 05:08:17 GMT
  10. Approved: bug-gnu-emacs@prep.ai.mit.edu
  11. Lines: 32
  12.  
  13. VERSION:    18.58.1
  14. MACINE/OS:    SparcStation2 / SunOS 4.1.3
  15.  
  16. Dired cannot get contents of symbolic-linked directory.
  17. For example, "C-x C-f /bin" shows as follows.
  18.  
  19.   lrwxrwxrwx  1 root            7 Oct 14  1990 bin -> usr/bin
  20.  
  21. This is solved getting directory contents by "ls -al <directory>/."
  22. insted of "ls -al <directory>".
  23.  
  24. Here is patch.
  25.  
  26. --- dired.el~    Wed Apr 15 21:36:51 1992
  27. +++ dired.el    Fri Jan  8 14:05:17 1993
  28. @@ -37,11 +37,11 @@
  29.        (setq dirname (expand-file-name dirname))
  30.        (if (file-directory-p dirname)
  31.        (call-process "ls" nil buffer nil
  32. -            dired-listing-switches dirname)
  33. +            dired-listing-switches (concat dirname "/."))
  34.      (let ((default-directory (file-name-directory dirname)))
  35.        (call-process shell-file-name nil buffer nil
  36.              "-c" (concat "ls " dired-listing-switches " "
  37. -                     (file-name-nondirectory dirname)))))
  38. +                     (file-name-nondirectory dirname) "/."))))
  39.        (goto-char (point-min))
  40.        (while (not (eobp))
  41.      (insert "  ")
  42. --
  43. Toshiaki SHINGU
  44.  
  45.