Dired 7.9 bug: invalid function characterp when renaming file
Kevin Broadey (kevinb@ats.uk.eds.com)
Mon, 8 Mar 1999 13:07:32 GMT
I can't rename files with "R" using dired 7.9. It bombs out with the
following backtrace. But the strance thing is that I only get this
error with the local filesystem. If I dired /user@host:/somepath then
I can rename there quite happily.
I guess characterp is an XEmacs-only function. Ho hum.
Kevin
Signaling: (void-function characterp)
(characterp marker-char)
(cond ((characterp marker-char) marker-char) (marker-char (dired-file-marker from)) (t nil))
(let* ((overwrite ...) (dired-overwrite-confirmed ...) (actual-marker-char ...)) (if (and overwrite ...) (setq skipped ...) (condition-case err ... ...)))
(if (or (null query) (funcall query from to)) (let* (... ... ...) (if ... ... ...)) (setq skipped (cons ... skipped)))
(if (equal to from) (progn (dired-log ... "Cannot %s to same file: %s\n" ... from) (setq skipped ...)) (if (or ... ...) (let* ... ...) (setq skipped ...)))
(if to (if (equal to from) (progn ... ...) (if ... ... ...)) (setq skipped (cons ... skipped)))
(let ((to ...)) (if to (if ... ... ...) (setq skipped ...)))
(lambda (from) (let (...) (if to ... ...)))(#("/users/kevinb/smit.log" 0 14 nil 14 22 (mouse-face highlight dired-file-name t face font-lock-string-face lazy-lock t)))
mapcar((lambda (from) (let (...) (if to ... ...))) (#("/users/kevinb/smit.log" 0 14 nil 14 22 (mouse-face highlight dired-file-name t face font-lock-string-face lazy-lock t))))
(progn (setq dired-overwrite-backup-query nil dired-file-creator-query nil) (mapcar (function ...) fn-list) (cond (failures ...) (skipped ...) (t ...)))
(unwind-protect (progn (setq dired-overwrite-backup-query nil dired-file-creator-query nil) (mapcar ... fn-list) (cond ... ... ...)) (goto-char bolm) (and (not fnlp) (memq ... ...) (forward-line 1)) (skip-chars-forward "^\n
" (+ ... offset-bol)))
(let ((bolm ...) fnlp offset-bol) (let (...) (set-marker bolm bol) (setq offset-bol ... fnlp ...)) (unwind-protect (progn ... ... ...) (goto-char bolm) (and ... ... ...) (skip-chars-forward "^\n
" ...)))
(dired-save-excursion (setq dired-overwrite-backup-query nil dired-file-creator-query nil) (mapcar (function ...) fn-list) (cond (failures ...) (skipped ...) (t ...)))
(let ((success-count 0) (total ...) failures skipped overwrite-query) (dired-save-excursion (setq dired-overwrite-backup-query nil dired-file-creator-query nil) (mapcar ... fn-list) (cond ... ... ...)))
dired-create-files(dired-rename-file "Move" (#("/users/kevinb/smit.log" 0 14 nil 14 22 (mouse-face highlight dired-file-name t face font-lock-string-face lazy-lock t))) (lambda (from) "/users/kevinb/foo") t)
(let* ((fn-list ...) (fn-count ...) (cdir ...) (target ...) (into-dir ...)) (if (and ... ...) (error "Marked %s: target must be a directory: %s" operation target)) (or into-dir (setq target ...)) (dired-create-files file-creator operation fn-list (if into-dir ... ...) marker-char))
dired-do-create-files(move dired-rename-file "Move" nil t (lambda (list) (if (= ... 1) "Rename %s to: " "Move %s to: ")))
(if (not (zerop ...)) (dired-do-create-files (quote move) (function dired-rename-file) "Move" arg dired-keep-marker-rename (function ...)) (setq dired-dwim-target (not dired-dwim-target)) (message "dired-dwim-target is %s." (if dired-dwim-target "ON" "OFF")))
dired-do-rename(nil)
* call-interactively(dired-do-rename)
Emacs : GNU Emacs 20.3.1 (powerpc-ibm-aix4.2.1.0, Motif)
of Thu Sep 3 1998 on crabby
Package: Dired
current state:
==============
(setq
dired-version "7.9"
dired-backup-if-overwrite nil
dired-chown-program "/etc/chown"
dired-cleanup-alist '(("tex" ".toc" ".log" ".aux" ".dvi")
("latex" ".toc" ".log" ".aux" ".idx" ".lof" ".lot"
".glo" ".dvi")
("bibtex" ".blg" ".bbl")
("texinfo" ".cp" ".cps" ".fn" ".fns" ".ky" ".kys" ".pg"
".pgs" ".tp" ".tps" ".vr" ".vrs")
("patch" ".rej" ".orig") ("backups" "~")
("completion-ignored-extensions" ".o" "~" ".bin"
".lbin" ".fasl" ".a" ".ln" ".blg" ".bbl" ".elc" ".lof"
".glo" ".idx" ".lot" ".dvi" ".fmt" ".class" ".fas"
".lib" ".x86f" ".toc" ".log" ".aux" ".cp" ".fn" ".ky"
".pg" ".tp" ".vr" ".cps" ".fns" ".kys" ".pgs" ".tps"
".vrs")
)
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 t
dired-gnutar-program nil
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-listing-switches "-al"
dired-local-variables-file ".dired"
dired-ls-F-marks-symlinks nil
dired-ls-program "ls"
dired-mail-reader 'vm
dired-mode-line-modified "-%s%s%s-"
dired-no-confirm nil
dired-omit-extensions '(".x86f" ".lib" ".fas" ".class" ".fmt" ".elc" ".ln"
".a" ".fasl" ".lbin" ".bin" ".o" "~" ".orig" ".rej"
".vrs" ".vr" ".tps" ".tp" ".pgs" ".pg" ".kys" ".ky"
".fns" ".fn" ".cps" ".cp" ".bbl" ".blg" ".glo" ".lot"
".lof" ".idx" ".dvi" ".aux" ".log" ".toc")
dired-omit-files nil
dired-omit-regexps '("\\`#" "\\`\\.")
dired-refresh-automatically t
dired-show-ls-switches nil
dired-trivial-filenames "^\\.\\.?$\\|^#"
dired-unshar-program nil
dired-use-file-transformers t
dired-verify-modtimes t
reporter-version "2.20"
)
--
Kevin Broadey