EFS 1.12 bug: Guardian dired prob

Adrian Phillips (adrian.phillips@dnmi.no)
Mon, 17 Oct 94 09:31:21 +0100 

Ciao bugsters!

Hi,

operations on a dired buffer don't work properly because the dired
thinks the filename begins at the second char in the file name:

  PGENH       101             1698 17-Oct-94  8:18: 9 255,254 "gggo"
  PGENMC      101             5430 17-Oct-94  8:18:14 255,254 "gggo"
  PRINTGMC    101             4468 17-Oct-94  8:18:18 255,254 "gggo"
  TOKENC      101            17690 17-Oct-94  8:18:33 255,254 "gggo"
  TOKENH      101             3088 17-Oct-94  8:18:36 255,254 "gggo"
  TTT         101                0 17-Oct-94  8:15:21 255,254 "gggo"

D on TTT prompts for deleting TT. Cursorring through dired list gives
cursor on second char of filename not first. I resumed this function
handles the placing to file name but can't figure what is wrong :-(.

(efs-defun efs-dired-manual-move-to-filename guardian
  (&optional raise-error bol eol)
  ;; In dired, move to first char of filename on this line.
  ;; Returns position (point) or nil if no filename on this line.
  ;; This is the guardian version.
  (or eol (setq eol (save-excursion (skip-chars-forward "^\n\r") (point))))
  (if bol
      (goto-char bol)
    (skip-chars-backward "^\n\r"))
  (if (save-excursion (re-search-forward efs-guardian-date-regexp eol t))
      (progn
	(forward-char 1) ; move over marker
	(skip-chars-forward " \t")
	(point))
    (and raise-error (error "No file on this line"))))

Thanks,

Adrian

Emacs  : GNU Emacs 19.27.1 (mips-sgi-irix5.2, X toolkit) of Mon Sep 19 1994 on freeze
Package: efs

efs believes that the host type of cool is guardian.

Contents of *ftp super.dev@cool*:
Please edit sensitive or irrelevant information.
================================================
ftp> delete $system.pyparser.TT
550 $system.pyparser.TT: error 11 (Code location 12).
ftp> delete $system.pyparser.TT
550 $system.pyparser.TT: error 11 (Code location 12).
ftp> 

current state:
==============
(setq
 efs-19.23-version "1.12/1.8"
 efs-cu-version "1.12/1.7"
 efs-defun-version "1.12/1.3"
 efs-dired-version "1.12/1.25"
 efs-fnh-version "1.12/1.1"
 efs-guardian-version "1.12/1.4"
 efs-netrc-version "1.12/1.7"
 efs-ovwrt-version "1.12/1.5"
 efs-report-version "1.12/1.7"
 efs-version "1.12/1.43"
 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-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 912
 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-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 ".*"
 efs-ftp-program-name "ftp"
 efs-ftp-program-args '("-i" "-n" "-g" "-v")
 efs-local-host-regexp ".*"
 efs-ftp-local-host-regexp ".*"
 efs-gateway-host nil
 efs-gateway-type nil
 reporter-version "2.12"
 features '(vm
	    reporter
	    efs-report
	    efs-guardian
	    telnet
	    shell
	    env
	    man
	    assoc
	    dired-shell
	    mail-utils
	    mailalias
	    emacsbug
	    sendmail
	    efs-dired
	    dired-fsf
	    dired
	    rsz-mini
	    jka-compr
	    view
	    default-dir
	    efs-19\.23
	    efs-fnh
	    passwd
	    efs-ovwrt
	    efs-cu
	    efs-netrc
	    efs-defun
	    comint
	    ring
	    backquote
	    efs
	    font-lock
	    server
	    disp-table
	    vc-hooks
	    lisp-float-type
	    lisp-mode
	    page
	    select
	    scroll-bar
	    menu-bar
	    faces
	    mouse
	    frame
	    x-toolkit
	    )
 )
-- 
-------------------------------------------------------------------------
= Adrian Phillips at            | BUT any thoughts in this are purely    =
= The Norwegian Meteorological  | my own and have nothing to do with     =
= Institute   	    	        | this establishment, thankfully.        =
= Net: adrian.phillips@dnmi.no  | Phone: 47 22 96 32 09 Fax: 47 22 96 30 50