Ailin> Hi there, I notice that when I open a file with tramp, Ailin> e.g. /[ssh/somewhere]file.pl, it is marked as modified. The Ailin> fix seems simple by moving Ailin> (when visit Ailin> (set-buffer-modified-p nil)) Ailin> to the end of tramp-handle-insert-file-contents. Wonder if Ailin> that is some problem with my config or someone else noticed Ailin> it? I've noticed that too. It's a bit annoying. My vague memory says it didn't used to do this, but I don't use tramp very often. Ray _______________________________________________ XEmacs-Beta mailing list XEmacs-Beta(a)xemacs.org http://lists.xemacs.org/mailman/listinfo/xemacs-beta

Ailin Nemui <ailin.nemui(a)gmail.com&gt; writes: Hi, Which Tramp version are you using? Consult "C-h v tramp-version". Best regards, Michael. _______________________________________________ XEmacs-Beta mailing list XEmacs-Beta(a)xemacs.org http://lists.xemacs.org/mailman/listinfo/xemacs-beta

"Stephen J. Turnbull" <stephen(a)xemacs.org&gt; writes: Upstream Tramp has fixed this. There is an unwind-protect form in tramp-handle-insert-file-contents, and set-buffer-modified-p is called in the unwindforms handler, besides other things. This reminds me that there's on my todo list the merge of Tramp 2.2 into the XEmacs packages repository. I shall really do it soon. Best regards, Michael. _______________________________________________ XEmacs-Beta mailing list XEmacs-Beta(a)xemacs.org http://lists.xemacs.org/mailman/listinfo/xemacs-beta

Michael - On Sun, Jan 20, 2013 at 11:47 AM, Michael Albinus <michael.albinus(a)gmx.de&gt; wrote: Thanks for the update. Unfortunately, as you suspected, there's an issue building the package repo. I'm using latest 21.4 from hg, and I'm getting a failure in ediff-vers.el. This compiled fine before your changes; I'm guessing it has something to do with autoloads. The actual error is: byte-compile-report-error((file-error "Cannot open load file" "executable")) which seems kinda weird. I'm investigating now, but in case someone has some ideas, I'd be happy for any pointers. xemacs -no-autoloads -vanilla -batch -eval '(setq stack-trace-on-error t load-always-display-messages t load-ignore-out-of-date-elc-files t load-show-full-path-in-messages t)' -eval '(setq load-path (list lisp-directory))' -l /opt/build/xemacs-packages-2013-01-20/package-compile.el -- pcl-cvs elib dired xemacs-base edebug prog-modes gnus tramp vc -- -f batch-byte-compile ediff-vers.el Loading /opt/xemacs/lib/xemacs-21.4.22/lisp/auto-autoloads... Loading /opt/build/xemacs-packages-2013-01-20/xemacs-packages/vc/auto-autoloads... Loading /opt/build/xemacs-packages-2013-01-20/xemacs-packages/tramp/lisp/auto-autoloads... Loading /opt/build/xemacs-packages-2013-01-20/xemacs-packages/gnus/lisp/auto-autoloads... Loading /opt/build/xemacs-packages-2013-01-20/xemacs-packages/prog-modes/auto-autoloads... Loading /opt/build/xemacs-packages-2013-01-20/xemacs-packages/edebug/auto-autoloads... Loading /opt/build/xemacs-packages-2013-01-20/xemacs-packages/xemacs-base/auto-autoloads... Loading /opt/build/xemacs-packages-2013-01-20/xemacs-packages/dired/auto-autoloads... Loading /opt/build/xemacs-packages-2013-01-20/xemacs-packages/elib/auto-autoloads... Loading /opt/build/xemacs-packages-2013-01-20/xemacs-packages/pcl-cvs/auto-autoloads... Compiling /opt/build/xemacs-packages-2013-01-20/xemacs-packages/ediff/ediff-vers.el... Ignoring `eval:' in file's local variables Ignoring `eval:' in file's local variables Ignoring `eval:' in file's local variables Loading customization dependencies... Loading customization dependencies...done While compiling toplevel forms in file /opt/build/xemacs-packages-2013-01-20/xemacs-packages/ediff/ediff-vers.el: !! File error (("Cannot open load file" "executable")) backtrace(nil t) # bind (error-info) byte-compile-report-error((file-error "Cannot open load file" "executable")) # bind (error-info) #<compiled-function (error-info) "...(4)" [error-info byte-compile-report-error] 2>((file-error "Cannot open load file" "executable")) signal(file-error ("Cannot open load file" "executable")) # bind (path handler filename nosuffix nomessage noerror file) load("executable" nil t nil) # (unwind-protect ...) require(executable) (progn (require (quote cus-edit)) (require (quote env)) (require (quote executable)) (require (quote outline)) (require (quote passwd)) (require (quote pp)) (require (quote regexp-opt))) (if (featurep (quote xemacs)) (progn (require ...) (require ...) (require ...) (require ...) (require ...) (require ...) (require ...))) (when (featurep (quote xemacs)) (require (quote cus-edit)) (require (quote env)) (require (quote executable)) (require (quote outline)) (require (quote passwd)) (require (quote pp)) (require (quote regexp-opt))) (progn (when (featurep ...) (require ...) (require ...) (require ...) (require ...) (require ...) (require ...) (require ...)) (require (quote advice)) (require (quote custom)) (require (quote format-spec)) (require (quote shell)) (require (quote tramp-loaddefs)) (if (featurep ...) (load "password" ...) (or ... ...)) (if (featurep ...) (load "auth-source" ...) (require ... nil ...)) (if (featurep ...) (require ...) (require ...)) (when (featurep ...) (unless ... ...) (delq ... byte-compile-default-warnings)) (unless (boundp ...) (defvar last-coding-system-used nil)) (when (boundp ...) (defvar byte-compile-not-obsolete-var nil) (setq byte-compile-not-obsolete-var ...) (defvar byte-compile-not-obsolete-vars nil) (setq byte-compile-not-obsolete-vars ...)) (defvar remote-file-name-inhibit-cache nil) (defmacro tramp-compat-funcall (function &rest arguments) (if ... ... ...)) (unless (fboundp ...) (defalias ... ...)) (unless (fboundp ...) (defalias ... ...)) (unless (fboundp ...) (defalias ... ...)) (unless (fboundp ...) (defalias ... ...)) (unless (fboundp ...) (defalias ... ...)) (unless (or ... ...) (defadvice file-expand-wildcards ... ...) (add-hook ... ...))) eval((progn (when (featurep ...) (require ...) (require ...) (require ...) (require ...) (require ...) (require ...) (require ...)) (require (quote advice)) (require (quote custom)) (require (quote format-spec)) (require (quote shell)) (require (quote tramp-loaddefs)) (if (featurep ...) (load "password" ...) (or ... ...)) (if (featurep ...) (load "auth-source" ...) (require ... nil ...)) (if (featurep ...) (require ...) (require ...)) (when (featurep ...) (unless ... ...) (delq ... byte-compile-default-warnings)) (unless (boundp ...) (defvar last-coding-system-used nil)) (when (boundp ...) (defvar byte-compile-not-obsolete-var nil) (setq byte-compile-not-obsolete-var ...) (defvar byte-compile-not-obsolete-vars nil) (setq byte-compile-not-obsolete-vars ...)) (defvar remote-file-name-inhibit-cache nil) (defmacro tramp-compat-funcall (function &rest arguments) (if ... ... ...)) (unless (fboundp ...) (defalias ... ...)) (unless (fboundp ...) (defalias ... ...)) (unless (fboundp ...) (defalias ... ...)) (unless (fboundp ...) (defalias ... ...)) (unless (fboundp ...) (defalias ... ...)) (unless (or ... ...) (defadvice file-expand-wildcards ... ...) (add-hook ... ...)))) # bind (sym def G102768) # (unwind-protect ...) # bind (save-macro-environment form) byte-compile-eval((progn (when (featurep ...) (require ...) (require ...) (require ...) (require ...) (require ...) (require ...) (require ...)) (require (quote advice)) (require (quote custom)) (require (quote format-spec)) (require (quote shell)) (require (quote tramp-loaddefs)) (if (featurep ...) (load "password" ...) (or ... ...)) (if (featurep ...) (load "auth-source" ...) (require ... nil ...)) (if (featurep ...) (require ...) (require ...)) (when (featurep ...) (unless ... ...) (delq ... byte-compile-default-warnings)) (unless (boundp ...) (defvar last-coding-system-used nil)) (when (boundp ...) (defvar byte-compile-not-obsolete-var nil) (setq byte-compile-not-obsolete-var ...) (defvar byte-compile-not-obsolete-vars nil) (setq byte-compile-not-obsolete-vars ...)) (defvar remote-file-name-inhibit-cache nil) (defmacro tramp-compat-funcall (function &rest arguments) (if ... ... ...)) (unless (fboundp ...) (defalias ... ...)) (unless (fboundp ...) (defalias ... ...)) (unless (fboundp ...) (defalias ... ...)) (unless (fboundp ...) (defalias ... ...)) (unless (fboundp ...) (defalias ... ...)) (unless (or ... ...) (defadvice file-expand-wildcards ... ...) (add-hook ... ...)))) # bind (body) (lambda (&rest body) (byte-compile-eval (cons ... body)) (cons (quote progn) body))((when (featurep (quote xemacs)) (require (quote cus-edit)) (require (quote env)) (require (quote executable)) (require (quote outline)) (require (quote passwd)) (require (quote pp)) (require (quote regexp-opt))) (require (quote advice)) (require (quote custom)) (require (quote format-spec)) (require (quote shell)) (require (quote tramp-loaddefs)) (if (featurep (quote xemacs)) (load "password" (quote noerror)) (or (require ... nil ...) (require ... nil ...))) (if (featurep (quote xemacs)) (load "auth-source" (quote noerror)) (require (quote auth-source) nil (quote noerror))) (if (featurep (quote xemacs)) (require (quote timer-funcs)) (require (quote timer))) (when (featurep (quote xemacs)) (unless (boundp ...) (defvar byte-compile-default-warnings nil)) (delq (quote unused-vars) byte-compile-default-warnings)) (unless (boundp (quote last-coding-system-used)) (defvar last-coding-system-used nil)) (when (boundp (quote directory-sep-char)) (defvar byte-compile-not-obsolete-var nil) (setq byte-compile-not-obsolete-var (quote directory-sep-char)) (defvar byte-compile-not-obsolete-vars nil) (setq byte-compile-not-obsolete-vars (quote ...))) (defvar remote-file-name-inhibit-cache nil) (defmacro tramp-compat-funcall (function &rest arguments) (if (featurep ...) (backquote ...) (backquote ...))) (unless (fboundp (quote set-buffer-multibyte)) (defalias (quote set-buffer-multibyte) (quote ignore))) (unless (fboundp (quote file-remote-p)) (defalias (quote file-remote-p) (lambda ... ...))) (unless (fboundp (quote process-file)) (defalias (quote process-file) (lambda ... ...))) (unless (fboundp (quote start-file-process)) (defalias (quote start-file-process) (lambda ... ...))) (unless (fboundp (quote set-file-times)) (defalias (quote set-file-times) (lambda ... ...))) (unless (or (featurep ...) (funcall ... ... ...)) (defadvice file-expand-wildcards (around tramp-advice-file-expand-wildcards activate) (let ... ...)) (add-hook (quote tramp-unload-hook) (lambda nil ... ...)))) (eval-and-compile (when (featurep ...) (require ...) (require ...) (require ...) (require ...) (require ...) (require ...) (require ...)) (require (quote advice)) (require (quote custom)) (require (quote format-spec)) (require (quote shell)) (require (quote tramp-loaddefs)) (if (featurep ...) (load "password" ...) (or ... ...)) (if (featurep ...) (load "auth-source" ...) (require ... nil ...)) (if (featurep ...) (require ...) (require ...)) (when (featurep ...) (unless ... ...) (delq ... byte-compile-default-warnings)) (unless (boundp ...) (defvar last-coding-system-used nil)) (when (boundp ...) (defvar byte-compile-not-obsolete-var nil) (setq byte-compile-not-obsolete-var ...) (defvar byte-compile-not-obsolete-vars nil) (setq byte-compile-not-obsolete-vars ...)) (defvar remote-file-name-inhibit-cache nil) (defmacro tramp-compat-funcall (function &rest arguments) (if ... ... ...)) (unless (fboundp ...) (defalias ... ...)) (unless (fboundp ...) (defalias ... ...)) (unless (fboundp ...) (defalias ... ...)) (unless (fboundp ...) (defalias ... ...)) (unless (fboundp ...) (defalias ... ...)) (unless (or ... ...) (defadvice file-expand-wildcards ... ...) (add-hook ... ...))) # bind (current-load-list) # (unwind-protect ...) # bind (load-file-name) # (unwind-protect ...) # (unwind-protect ...) # (unwind-protect ...) # (unwind-protect ...) # (unwind-protect ...) load-internal("tramp-compat" nil t nil undecided) # bind (path handler filename nosuffix nomessage noerror file) load("tramp-compat" nil t nil) # (unwind-protect ...) require(tramp-compat) # bind (current-load-list) # (unwind-protect ...) # bind (load-file-name) # (unwind-protect ...) # (unwind-protect ...) # (unwind-protect ...) # (unwind-protect ...) # (unwind-protect ...) load-internal("tramp" nil t nil undecided) # bind (path handler filename nosuffix nomessage noerror file) load("tramp" nil t nil) # (unwind-protect ...) require(tramp) (progn (require (quote tramp))) eval((progn (require (quote tramp)))) # bind (sym def G102768) # (unwind-protect ...) # bind (save-macro-environment form) byte-compile-eval((progn (require (quote tramp)))) (list (quote quote) (byte-compile-eval (cons ... body))) # bind (body) (lambda (&rest body) (list (quote quote) (byte-compile-eval ...)))((require (quote tramp))) (eval-when-compile (require (quote tramp))) # bind (current-load-list) # (unwind-protect ...) # bind (load-file-name) # (unwind-protect ...) # (unwind-protect ...) # (unwind-protect ...) # (unwind-protect ...) # (unwind-protect ...) load-internal("vc-hooks" nil t nil undecided) # bind (path handler filename nosuffix nomessage noerror file) load("vc-hooks" nil t nil) # (unwind-protect ...) require(vc-hooks) (progn (require (quote vc-hooks))) eval((progn (require (quote vc-hooks)))) # bind (sym def G102768) # (unwind-protect ...) # bind (save-macro-environment form) byte-compile-eval((progn (require (quote vc-hooks)))) (list (quote quote) (byte-compile-eval (cons ... body))) # bind (body) (lambda (&rest body) (list (quote quote) (byte-compile-eval ...)))((require (quote vc-hooks))) #<subr macroexpand-internal>((eval-when-compile (require (quote vc-hooks))) ((byte-compiler-options lambda (&rest forms) (apply ... forms)) (eval-when-compile lambda (&rest body) (list ... ...)) (eval-and-compile lambda (&rest body) (byte-compile-eval ...) (cons ... body)))) # bind (cl-macro-environment cl-env cl-macro) macroexpand((eval-when-compile (require (quote vc-hooks))) ((byte-compiler-options lambda (&rest forms) (apply ... forms)) (eval-when-compile lambda (&rest body) (list ... ...)) (eval-and-compile lambda (&rest body) (byte-compile-eval ...) (cons ... body)))) # bind (byte-compile-current-form handler form) byte-compile-file-form((eval-when-compile (require (quote vc-hooks)))) # (unwind-protect ...) #<compiled-function nil "...(43)" [byte-compile-unresolved-functions byte-compile-inbuffer 1 " \n " nil looking-at ";" byte-compile-file-form read byte-compile-flush-pending byte-compile-warn-about-unresolved-functions] 3>() # (unwind-protect ...) call-with-condition-handler(#<compiled-function (error-info) "...(4)" [error-info byte-compile-report-error] 2> #<compiled-function nil "...(43)" [byte-compile-unresolved-functions byte-compile-inbuffer 1 " \n " nil looking-at ";" byte-compile-file-form read byte-compile-flush-pending byte-compile-warn-about-unresolved-functions] 3>) # (unwind-protect ...) # bind (byte-compile-warnings-beginning byte-compile-point-max-prev byte-compile-log-buffer byte-compile-macro-environment byte-compile-function-environment byte-compile-autoload-environment byte-compile-unresolved-functions byte-compile-bound-variables byte-compile-free-references byte-compile-free-assignments byte-compile-verbose byte-optimize byte-compile-emacs19-compatibility byte-compile-dynamic byte-compile-dynamic-docstrings byte-compile-warnings byte-compile-file-domain byte-compile-outbuffer float-output-format case-fold-search print-length print-level byte-compile-constants byte-compile-variables byte-compile-tag-number byte-compile-depth byte-compile-maxdepth byte-compile-output eval filename byte-compile-inbuffer) byte-compile-from-buffer(#<buffer " *Compiler Input*"> "/opt/build/xemacs-packages-2013-01-20/xemacs-packages/ediff/ediff-vers.el") # bind (byte-compile-current-file target-file input-buffer output-buffer byte-compile-dest-file load filename) byte-compile-file("ediff-vers.el") byte-code("..." [file byte-compile-file t] 2) # (condition-case ... . ((error (byte-code "��!�!���!���!��� �\"���� ＠�N�� ＠!��� A\"���!�LJ" ... 3)))) # bind (file) batch-byte-compile-1("ediff-vers.el") # bind (error file-to-process) batch-byte-compile-one-file() # bind (error) batch-byte-compile() # bind (arg) command-line-do-funcall("-f") # bind (dir file-count line end-of-options file-p arg tem) command-line-1() # bind (command-line-args-left) command-line() # (condition-case ... . ((t (byte-code " " ... 1)))) # bind (error-data) normal-top-level() # (condition-case ... . error) # (catch top-level ...) Done make[2]: *** [ediff-vers.elc] Error 1 make[2]: Leaving directory `/opt/build/xemacs-packages-2013-01-20/xemacs-packages/ediff' make[1]: *** [ediff/bytecompile.target] Error 2 make[1]: Leaving directory `/opt/build/xemacs-packages-2013-01-20/xemacs-packages' make: *** [xemacs-packages/bytecompile.target] Error 2 Thanks, Vin _______________________________________________ XEmacs-Beta mailing list XEmacs-Beta(a)xemacs.org http://lists.xemacs.org/mailman/listinfo/xemacs-beta