Dired 7.4 bug: void args for find-file-read-only?
Mark Borges (mdb@noaacdc.Colorado.EDU)
Fri, 9 Sep 1994 00:45:13 +0700
No doubt you've found this already, but just to be sure...
My default-dir.el has an extra (spurious?) argument, args, to
`default-dir-real-find-file-read-only'. I removed it (context diff below),
and it seems to work OK now. Otherwise, I could not get \C-x\C-r to work
Also, (while I'm here ;-), dired-diff.elc is not built nor installed by the
Makefile -- should it be? At least, `grep dired-diff Makefile' came up
empty.
Thanks,
--mark
diff -c /cray2/mdb/elisp/packages/efs-1.11/default-dir.el.orig /cray2/mdb/elisp/packages/efs-1.11/default-dir.el
*** /cray2/mdb/elisp/packages/efs-1.11/default-dir.el.orig Fri Sep 9 00:35:25 1994
--- /cray2/mdb/elisp/packages/efs-1.11/default-dir.el Fri Sep 9 00:35:25 1994
***************
*** 132,138 ****
(list
(expand-file-name
(read-file-name "Find file read-only: " (default-directory) nil t))))
! (default-dir-real-find-file-read-only file args))
(if (fboundp 'find-file-read-only-other-window)
(progn
--- 132,138 ----
(list
(expand-file-name
(read-file-name "Find file read-only: " (default-directory) nil t))))
! (default-dir-real-find-file-read-only file))
(if (fboundp 'find-file-read-only-other-window)
(progn
Emacs : GNU Emacs 19.26.1 (sparc-sun-solaris2.3) of Thu Sep 8 1994 on bjerknes
Package: Dired
current state:
==============
(setq
dired-version "7.4"
dired-after-readin-hook '(mode-line-abbreviate-buffer-identification)
dired-backup-if-overwrite nil
dired-before-readin-hook '(efs-dired-before-readin)
dired-bibtex-unclean-extensions '(".blg" ".bbl")
dired-chown-program "chown"
dired-cleanup-alist '(("tex" ".cp" ".cps" ".fn" ".fns" ".ky"
".kys" ".pg" ".pgs" ".tp" ".tps" ".vr" ".vrs" ".toc" ".log" ".aux"
".idx" ".lof" ".lot" ".glo" ".blg" ".bbl")
("patch" ".rej" ".orig")
)
dired-compression-method 'gzip
dired-compression-method-alist '((gzip ".gz" ("gzip") ("gzip" "-d") "-f")
(compress ".Z" ("compress" "-f")
("compress" "-d") "-f")
(pack ".z" ("pack" "-f") ("unpack"))
(compact ".C" ("compact") ("uncompact"))
)
dired-copy-preserve-time t
dired-dwim-target t
dired-failed-marker-shell 33
dired-filename-re-ext "\\..+$"
dired-find-subdir nil
dired-gnutar-program nil
dired-grep-load-hook '(#[nil "ÀÁÂÃ#‡"
[efs-overwrite-fn "efs" dired-grep-delete-local-temp-file
efs-diff/grep-del-temp-file] 4]
)
dired-keep-marker-compress t
dired-keep-marker-copy 67
dired-keep-marker-hardlink 72
dired-keep-marker-kill 75
dired-keep-marker-rename t
dired-keep-marker-symlink 89
dired-keep-marker-uucode 85
dired-kept-versions 2
dired-latex-unclean-extensions '(".idx" ".lof" ".lot" ".glo")
dired-listing-switches "-al"
dired-load-hook '(#[nil "ÀÁ!‡" [require efs-dired] 2]
(lambda nil (setq dired-dwim-target t) (define-key dired-mode-map "Q"
(quote efs-kill-ftp-process)))
)
dired-local-variables-file ".dired"
dired-ls-F-marks-symlinks nil
dired-ls-program "/cray2/mdb/gnu/bin/ls"
dired-mail-reader 'rmail
dired-mode-hook nil
dired-mode-line-modified "-%s-"
dired-no-confirm nil
dired-omit-extensions '(".o"
".elc"
"~"
".bin"
".lbin"
".fasl"
".dvi"
".toc"
".log"
".aux"
".a"
".ln"
".lof"
".blg"
".bbl"
".glo"
".idx"
".lot"
".fmt"
".cp"
".cps"
".fn"
".fns"
".ky"
".kys"
".pg"
".pgs"
".tp"
".tps"
".vr"
".vrs"
".toc"
".log"
".aux"
".idx"
".lof"
".lot"
".glo"
".blg"
".bbl"
".rej"
".orig"
)
dired-omit-files nil
dired-omit-files-regexp "^[#.]"
dired-patch-unclean-extensions '(".rej" ".orig")
dired-shell-load-hook nil
dired-show-ls-switches nil
dired-tex-unclean-extensions '(".toc" ".log" ".aux")
dired-texinfo-unclean-extensions '(".cp"
".cps"
".fn"
".fns"
".ky"
".kys"
".pg"
".pgs"
".tp"
".tps"
".vr"
".vrs"
)
dired-trivial-filenames "^\\.\\.?$\\|^#"
dired-unshar-program nil
dired-use-file-transformers nil
dired-verify-modtimes t
reporter-version "2.12"
)