Re: tramp (2.0.25); saving remote buffer fails

[clemens fischer]

address@hidden (Kai Großjohann):

> "Clemens Fischer" <address@hidden> writes:
>
>> Debugger entered--Lisp error: (wrong-type-argument number-or-marker-p nil)
>>   logand(nil 3072)
>>   byte-code("
>
> Could you produce another backtrace with more Lisp and less
> bytecode?  The solution is to look below the bytecode to find the
> function that was called, then to find the *.el file containing this
> function, and to load that with M-x load-library RET.  Repeat if the
> new backtrace still has bytecode.

here we go:

Debugger entered--Lisp error: (wrong-type-argument number-or-marker-p nil)
  logand(nil 3072)
  (< 0 (logand modes 3072))
  (or file-precious-flag backup-by-copying (< 0 (logand modes 3072)) (and 
backup-by-copying-when-linked (> ... 1)) (and (or 
backup-by-copying-when-mismatch ...) (let ... ...)))
  (if (or file-precious-flag backup-by-copying (< 0 ...) (and 
backup-by-copying-when-linked ...) (and ... ...)) (backup-buffer-copy 
real-file-name backupname modes) (rename-file real-file-name backupname t) 
(setq setmodes (cons modes backupname)))
  (condition-case nil (if (or file-precious-flag backup-by-copying ... ... ...) 
(backup-buffer-copy real-file-name backupname modes) (rename-file 
real-file-name backupname t) (setq setmodes ...)) (file-error (setq backupname 
...) (message "Cannot write backup file; backing up in %s" ...) (sleep-for 1) 
(backup-buffer-copy real-file-name backupname modes)))
  (let ((delete-old-versions ...) (modes ...)) (condition-case nil (if ... ... 
... ...) (file-error ... ... ... ...)) (setq buffer-backed-up t) (if 
delete-old-versions (while targets ... ...)) setmodes)
  (condition-case nil (let (... ...) (condition-case nil ... ...) (setq 
buffer-backed-up t) (if delete-old-versions ...) setmodes) (file-error nil))
  (if backup-info (condition-case nil (let ... ... ... ... setmodes) 
(file-error nil)))
  (let ((real-file-name buffer-file-name) backup-info backupname targets 
setmodes) (setq real-file-name (file-chase-links real-file-name)) (setq 
backup-info (find-backup-file-name real-file-name) backupname (car backup-info) 
targets (cdr backup-info)) (if backup-info (condition-case nil ... ...)))
  (if (and make-backup-files (not backup-inhibited) (not buffer-backed-up) 
(file-exists-p buffer-file-name) (memq ... ...)) (let (... backup-info 
backupname targets setmodes) (setq real-file-name ...) (setq backup-info ... 
backupname ... targets ...) (if backup-info ...)))
  backup-buffer()
  (setq setmodes (backup-buffer))
  (or buffer-backed-up (setq setmodes (backup-buffer)))
  (let (tempsetmodes setmodes) (if (not ...) (let ... ...)) (or 
buffer-backed-up (setq setmodes ...)) (let (...) (if ... ... ... ...)) setmodes)
  basic-save-buffer-2()
  (if save-buffer-coding-system (let (...) (basic-save-buffer-2)) 
(basic-save-buffer-2))
  basic-save-buffer-1()
  (setq setmodes (basic-save-buffer-1))
  (or (run-hook-with-args-until-success (quote write-contents-functions)) 
(run-hook-with-args-until-success (quote local-write-file-hooks)) 
(run-hook-with-args-until-success (quote write-file-functions)) (setq setmodes 
(basic-save-buffer-1)))
  (save-restriction (widen) (save-excursion (and ... ... ... ... ... ...)) 
(vc-before-save) (or (run-hook-with-args-until-success ...) 
(run-hook-with-args-until-success ...) (run-hook-with-args-until-success ...) 
(setq setmodes ...)) (if save-buffer-coding-system (setq 
save-buffer-coding-system last-coding-system-used) (setq 
buffer-file-coding-system last-coding-system-used)) (setq buffer-file-number 
(nthcdr 10 ...)) (if setmodes (condition-case nil ... ...)))
  (let ((recent-save ...) setmodes tempsetmodes) (if (and ... ...) (let ... ... 
... ...)) (or buffer-file-name (let ... ... ...)) (or 
(verify-visited-file-modtime ...) (not ...) (yes-or-no-p ...) (error "Save not 
confirmed")) (save-restriction (widen) (save-excursion ...) (vc-before-save) 
(or ... ... ... ...) (if save-buffer-coding-system ... ...) (setq 
buffer-file-number ...) (if setmodes ...)) (delete-auto-save-file-if-necessary 
recent-save) (vc-after-save) (run-hooks (quote after-save-hook)))
  (if (buffer-modified-p) (let (... setmodes tempsetmodes) (if ... ...) (or 
buffer-file-name ...) (or ... ... ... ...) (save-restriction ... ... ... ... 
... ... ...) (delete-auto-save-file-if-necessary recent-save) (vc-after-save) 
(run-hooks ...)) (message "(No changes need to be saved)"))
  (save-current-buffer (if (buffer-base-buffer) (set-buffer ...)) (if 
(buffer-modified-p) (let ... ... ... ... ... ... ... ...) (message "(No changes 
need to be saved)")))
  basic-save-buffer()
  (let ((modp ...) (large ...) (make-backup-files ...)) (and modp (memq args 
...) (setq buffer-backed-up nil)) (if (and modp large ...) (message "Saving 
file %s..." ...)) (basic-save-buffer) (and modp (memq args ...) (setq 
buffer-backed-up nil)))
  save-buffer(1)
  call-interactively(save-buffer)

this is with the default-method explicitly changed to ftp.  it was
set to ssh before i had any tramp specifics in my ~/.emacs.  there's
no other tramp installation shadowed, i verified that.

  clemens