Dired 7.3 bug: dired-create-directory signals error in 19.26 pretest

John Interrante (interran@uluru.Stanford.EDU)
Sun, 21 Aug 94 12:08:32 PDT


Emacs  : GNU Emacs 19.25.94.1 (sparc-sun-sunos4shr) of Wed Aug 17 1994 on uluru
Package: Dired

I typed

	+ f o o RET

in a /tmp dired buffer to create a subdirectory called /tmp/foo.  Emacs
signalled the following error:

Signalling: (wrong-number-of-arguments #<subr make-directory-internal> 2)
  make-directory-internal("/tmp/foo" nil)
  apply(make-directory-internal ("/tmp/foo" nil))
  dired-handler-fn(make-directory-internal "/tmp/foo" nil)
  make-directory-internal("/tmp/foo")
  make-directory("/tmp/foo" nil)
  apply(make-directory ("/tmp/foo" nil))
  dired-handler-fn(make-directory "/tmp/foo" nil)
  make-directory("/tmp/foo")
  dired-create-directory("/tmp/foo")
  apply(dired-create-directory "/tmp/foo")
  dired-handler-fn(dired-create-directory "/tmp/foo")
  dired-create-directory("/tmp/foo")
  call-interactively(dired-create-directory)

C-h f make-directory-internal RET says:

  make-directory-internal: a built-in function.

  Create a directory.  One argument, a file name string.

  (make-directory-internal DIRNAME)

Best regards,

		John

P.S.  How helpful is the automatically generated listing below going
to be if it doesn't include any dired variables except for
dired-version?  It doesn't list the variables that I *did* customize
in my .emacs,

 dired-compression-method	'gzip
 dired-copy-preserve-time	nil
 dired-dwim-target		t
 dired-keep-marker-copy		nil
 dired-keep-marker-hardlink	nil
 dired-keep-marker-rename	nil
 dired-keep-marker-symlink	nil
 dired-listing-switches		"-alg"
 dired-use-file-transformers	t
 diff-switches			"-u2"

current state:
==============
(setq
 dired-version "7.3"
 efs-36-bit-binary-file-name-regexp nil
 efs-anonymous-umask nil
 efs-auto-save 0
 efs-auto-save-remotely nil
 efs-backup-by-copying nil
 efs-binary-file-host-regexp nil
 efs-binary-file-name-regexp "\\.\\([zZ]\\|t?gz\\|lzh\\|arc\\|zip\\|zoo\\|ta[rz]\\|dvi\\|sit\\|ps\\|elc\\|gif\\|Z-part-..\\|tpz\\|exe\\|[jm]pg\\|TZ[a-z]?\\|lib\\)\\(~\\|~[0-9]+~\\)?$\\|\\.\\(ARC\\|ELC\\|TAGS\\|EXE\\|ZIP\\|DVI|ZOO\\|GIF\\|T?GZ\\|[JM]PG\\)\\([.#;][0-9]+\\)?$"
 efs-buffer-name-case nil
 efs-compute-remote-buffer-file-truename nil
 efs-debug-ftp-connection nil
 efs-default-account nil
 efs-default-password nil
 efs-default-user "anonymous"
 efs-ding-on-chmod-failure t
 efs-ding-on-umask-failure t
 efs-disable-netrc-security-check nil
 efs-expire-ftp-buffers t
 efs-ftp-buffer-expire-time nil
 efs-ftp-program-args '("-i" "-n" "-g" "-v")
 efs-ftp-prompt-regexp "^\\(ftp\\|Ftp\\|FTP\\)> *"
 efs-gateway-ftp-prompt-regexp "^\\(ftp\\|Ftp\\|FTP\\)> *"
 efs-gateway-hash-mark-size nil
 efs-gateway-incoming-binary-hm-size nil
 efs-generate-anonymous-password t
 efs-hash-mark-size 8192
 efs-high-security-hosts nil
 efs-incoming-binary-hm-size nil
 efs-local-apollo-unix nil
 efs-ls-cache-max 5
 efs-make-backup-files '(unix
			 sysV-unix
			 bsd-unix
			 next-unix
			 apollo-unix
			 dumb-unix
			 super-dumb-unix
			 )
 efs-max-ftp-buffer-size 3000
 efs-maximize-idle nil
 efs-message-interval 0
 efs-netrc-filename "~/.netrc"
 efs-nlist-cmd "ls"
 efs-nslookup-on-connect nil
 efs-nslookup-program "nslookup"
 efs-prompt-for-transfer-type nil
 efs-pty-check-retry-time 5
 efs-pty-check-threshold 1000
 efs-retry-time 5
 efs-root-umask nil
 efs-send-hash t
 efs-short-circuit-to-remote-root nil
 efs-suppress-abort-recursive-edit-and-then nil
 efs-text-file-name-regexp ".*"
 efs-treat-crlf-as-nl nil
 efs-umask nil
 efs-verbose t
 efs-verify-anonymous-modtime nil
 efs-verify-modtime-host-regexp ".*"
 )