🚀 go-pugleaf

In article <199409240505.HAA02662@lysita> lenst@lysator.liu.se writes:
> In GNU Emacs 19.27.1 (sparc-sun-solaris2.3) of Sat Sep 17 1994 on lysita
> 
> Dired can still be consfused by a name ending in colon, if it is the
> name of a directory.

Also if it is another kind of non-regular file.

> To reproduce
> Unix commands (on sun4):
	mkdir foo
	mknod foo/bar: p
>  emacs -q  
> In emacs type: C-x d foo RET
> Dired reports 2 subdirectories, this is wrong.


The following patch fixes the problem:

Sat Sep 24 06:49:42 1994  Lennart Staflin  <lenst@lysator.liu.se>

	* dired.el (dired-re-perms): Accept all filetypes, not only plain files

*** dired.el.orig	Sat Sep 24 06:50:39 1994
--- dired.el	Sat Sep 24 06:49:39 1994
***************
*** 185,191 ****
  	       "-[-r][-w].[-r][-w][xs][-r][-w]."
  	       "-[-r][-w].[-r][-w].[-r][-w][xst]")
  	     "\\|"))
! (defvar dired-re-perms "-[-r][-w].[-r][-w].[-r][-w].")
  (defvar dired-re-dot "^.* \\.\\.?$")
  
  (defvar dired-subdir-alist nil
--- 185,192 ----
  	       "-[-r][-w].[-r][-w][xs][-r][-w]."
  	       "-[-r][-w].[-r][-w].[-r][-w][xst]")
  	     "\\|"))
! ;; Are there other filetypes?  Maybe just `a-z' is better than `bcdlps'.
! (defvar dired-re-perms "[-bcdlps][-r][-w].[-r][-w].[-r][-w].")
  (defvar dired-re-dot "^.* \\.\\.?$")
  
  (defvar dired-subdir-alist nil
--
Hallvard