* bug#13636: 24.3.50; tramp+ftp broken
@ 2013-02-06 13:35 Thierry Volpiatto
2013-02-06 14:26 ` Michael Albinus
0 siblings, 1 reply; 16+ messages in thread
From: Thierry Volpiatto @ 2013-02-06 13:35 UTC (permalink / raw)
To: 13636
Hi,
I start with emacs -Q
Here some basic setting:
--8<---------------cut here---------------start------------->8---
(setq ange-ftp-try-passive-mode t)
(setq ange-ftp-passive-host-alist '(("mafreebox.freebox.fr" . "on")))
--8<---------------cut here---------------end--------------->8---
C-x C-f /ftp:mafreebox.freebox.fr:/ RET
On emacs-24.2.92, no problems, all is working as expected.
On emacs-24.3.50.1:(cursor at "!")
C-x C-f /ftp:mafreebox.freebox.fr"!"
As soon as I enter the last ":", I have this error:
Debugger entered--Lisp error: (wrong-type-argument stringp nil)
(See complete backtrace below)
When I want to quit emacs with C-x C-c, Emacs offer to save .netrc which
is not modified!, if I press any key (y, n, q etc...) I am prompted again
and again forever until I kill Emacs.
--8<---------------cut here---------------start------------->8---
Debugger entered--Lisp error: (wrong-type-argument stringp nil)
signal(wrong-type-argument (stringp nil))
byte-code("\301\b@\bA\"\207" [err signal] 3)
ange-ftp-hook-function(file-remote-p "/ftp:mafreebox.freebox.fr:" nil nil)
apply(ange-ftp-hook-function file-remote-p ("/ftp:mafreebox.freebox.fr:" nil nil))
tramp-ftp-file-name-handler(file-remote-p "/ftp:mafreebox.freebox.fr:" nil nil)
apply(tramp-ftp-file-name-handler file-remote-p ("/ftp:mafreebox.freebox.fr:" nil nil))
byte-code("\300\301\215\207" [suppress (apply foreign operation args)] 2)
byte-code("\bK\306\211<\203\240\n@\307=\203\240\306\310\311!\203\"\312\311\313N@!\206\221\314\315!\2039\316\315!\2044\317\315!\205\221\315 \202\221\320\321!\211\205D\322\f!)\203P\323\320\321!!\202\221\320\324!\211\205[\322\f!)\203g\323\320\324!!\202\221\320\325!\211\205r\322\f!)\203~\323\320\325!!\202\221\326\327!\203\212\323\327!\202\221\330\331!\210\323\332!)\333\n\211*A@)\334\335#\210)\336\337\215\211\336=\203\315\x0e+\340\341\342,C-\"C-./0\306\343\344\217,\210\345,-\"\202\x01 \346=\203\377\3061+\347\350\342,C-\"C-./0\306\343\344\217,\210\351+!\210\345,-\")\202\x01 *\207" [foreign result sf file-name-handler-alist d default-directory nil autoload boundp temporary-file-directory eval standard-value fboundp temp-directory subrp functionp getenv "TEMP" file-directory-p file-name-as-directory "TMP" "TMPDIR" file-exists-p "c:/temp" message "Neither `temporary-file-directory' nor `temp-directory' is defined -- using /tmp." "/tmp" load noerror nomessage non-essential (byte-code "\300\301\215\207" [suppress (apply foreign operation args)] 2) 5 "Non-essential received in operation %s" append (byte-code "\b X\205}\306 \307\216\v\203;\b\310X\203;\311\312\b\313U\203!\314\2026\b\315U\203+\314\2026\b\316U\2035\317\2026\320\fP#\210 \321Y\205|\x0e\203d\322\x1a!\203d\323\324\x1a!!\203dr\324\x1a!q\210\325^[!\x1a)\x1a\205|\326\x1a!\205|\311\327\x1a\330\331\b\"\fP$*\207" [level tramp-verbose save-match-data-internal tramp-message-show-message fmt-string args match-data ((byte-code "\301\b\302\"\207" [save-match-data-internal set-match-data evaporate] 3)) 3 apply message 0 "" 1 2 "Warning: " "Tramp: " 4 processp buffer-name process-buffer tramp-dissect-file-name vectorp tramp-debug-message format "(%d) # " vec-or-proc default-directory] 6) ((error)) tramp-run-real-handler suppress 1 "Suppress received in operation %s" tramp-cleanup x v operation args fmt-string level vec-or-proc tramp-message-show-message] 7)
tramp-file-name-handler(file-remote-p "/ftp:mafreebox.freebox.fr:" nil nil)
file-remote-p("/ftp:mafreebox.freebox.fr:" nil nil)
apply(file-remote-p ("/ftp:mafreebox.freebox.fr:" nil nil))
tramp-completion-run-real-handler(file-remote-p ("/ftp:mafreebox.freebox.fr:" nil nil))
tramp-completion-file-name-handler(file-remote-p "/ftp:mafreebox.freebox.fr:" nil nil)
file-remote-p("/ftp:mafreebox.freebox.fr:")
byte-code("\306\307!\204\f\310\307!\203\0\307\311J!\206!\306\312!\204\x1f\310\312!\205!\312 \313\x19\314\306\315!\2041\310\315!\2055\315 d\"!\205r\212\214\316\n\317 #\206E Td}\210\v\320\211\x1d \306\321!\204\\\310\321!\203c\321 dd#\210\306\322!\204o\310\322!\205q\322 -*\207" [non-essential end tramp-rfn-eshadow-update-overlay-regexp tramp-rfn-eshadow-overlay file-name-handler-alist rfn-eshadow-update-overlay-hook subrp overlay-end functionp rfn-eshadow-overlay minibuffer-prompt-end t file-remote-p buffer-substring-no-properties string-match buffer-string nil move-overlay rfn-eshadow-update-overlay] 4)
tramp-rfn-eshadow-update-overlay()
run-hooks(rfn-eshadow-update-overlay-hook)
byte-code("\306\307 !\310\b!\311 d\312\x1a\x1c\f\203?\f\n=\204*\r\fT\x12\211\313\314\315\217\232*\204?\f\v=\204\215\r\f\x12\211\313\314\315\217\232*\204\215\vT\nW\204f\nTdW\203\206\r\nT\x12\211\313\314\315\217\232*\203\206\nTd\211\203\206\v\n\\\316\245\r\f\x12\211\313\314\315\217\232*\203\201\f\211\202@\f\202?\317\b\311 \v#\210\320\321!-\207" [rfn-eshadow-overlay non-essential end start mid goal substitute-in-file-name minibuffer-contents overlay-end minibuffer-prompt-end t nil (byte-code "\301\302\bd\"!\207" [pos substitute-in-file-name buffer-substring-no-properties] 4) ((error)) 2 move-overlay run-hooks rfn-eshadow-update-overlay-hook pos] 6)
rfn-eshadow-update-overlay()
read-from-minibuffer("Find file: " "~/tmp/emacs-savanah-git/src/" (keymap (keymap (32)) keymap (10 . minibuffer-complete-and-exit) (13 . minibuffer-complete-and-exit) keymap (menu-bar keymap (minibuf "Minibuf" keymap (tab menu-item "Complete" minibuffer-complete :help "Complete as far as possible") (space menu-item "Complete Word" minibuffer-complete-word :help "Complete at most one word") (63 menu-item "List Completions" minibuffer-completion-help :help "Display all possible completions") "Minibuf")) (27 keymap (118 . switch-to-completions)) (prior . switch-to-completions) (63 . minibuffer-completion-help) (32 . minibuffer-complete-word) (9 . minibuffer-complete) keymap (menu-bar keymap (minibuf "Minibuf" keymap (previous menu-item "Previous History Item" previous-history-element :help "Put previous minibuffer history element in the minibuffer") (next menu-item "Next History Item" next-history-element :help "Put next minibuffer history element in the minibuffer") (isearch-backward menu-item "Isearch History Backward" isearch-backward :help "Incrementally search minibuffer history backward") (isearch-forward menu-item "Isearch History Forward" isearch-forward :help "Incrementally search minibuffer history forward") (return menu-item "Enter" exit-minibuffer :key-sequence "" :help "Terminate input and exit minibuffer") (quit menu-item "Quit" abort-recursive-edit :help "Abort input and exit minibuffer") "Minibuf")) (10 . exit-minibuffer) (13 . exit-minibuffer) (7 . abort-recursive-edit) (C-tab . file-cache-minibuffer-complete) (9 . self-insert-command) (XF86Back . previous-history-element) (up . previous-history-element) (prior . previous-history-element) (XF86Forward . next-history-element) (down . next-history-element) (next . next-history-element) (27 keymap (114 . previous-matching-history-element) (115 . next-matching-history-element) (112 . previous-history-element) (110 . next-history-element))) nil file-name-history "~/tmp/emacs-savanah-git/src/" nil)
completing-read-default("Find file: " read-file-name-internal file-exists-p confirm-after-completion "~/tmp/emacs-savanah-git/src/" file-name-history "~/tmp/emacs-savanah-git/src/" nil)
completing-read("Find file: " read-file-name-internal file-exists-p confirm-after-completion "~/tmp/emacs-savanah-git/src/" file-name-history "~/tmp/emacs-savanah-git/src/")
read-file-name-default("Find file: " nil "~/tmp/emacs-savanah-git/src/" confirm-after-completion nil nil)
read-file-name("Find file: " nil "~/tmp/emacs-savanah-git/src/" confirm-after-completion)
find-file-read-args("Find file: " confirm-after-completion)
byte-code("\300\301\302 \"\207" [find-file-read-args "Find file: " confirm-nonexistent-file-or-buffer] 3)
call-interactively(find-file nil nil)
--8<---------------cut here---------------end--------------->8---
In GNU Emacs 24.3.50.2 (x86_64-unknown-linux-gnu, X toolkit)
of 2013-02-05 on dell-14z
Windowing system distributor `The X.Org Foundation', version 11.0.11103000
System Description: Ubuntu 12.04.2 LTS
Configured using:
`configure --with-x-toolkit=lucid --without-toolkit-scroll-bars'
Important settings:
value of $LANG: fr_FR.UTF-8
locale-coding-system: utf-8-unix
default enable-multibyte-characters: t
Major mode: Emacs-Lisp
Minor modes in effect:
recentf-mode: t
winner-mode: t
global-undo-tree-mode: t
undo-tree-mode: t
auto-image-file-mode: t
show-paren-mode: t
display-time-mode: t
savehist-mode: t
minibuffer-depth-indicate-mode: t
eldoc-mode: t
diff-auto-refine-mode: t
helm-mode: t
shell-dirtrack-mode: t
helm-adaptative-mode: t
helm-match-plugin-mode: t
tooltip-mode: t
file-name-shadow-mode: t
global-font-lock-mode: t
font-lock-mode: t
auto-composition-mode: t
auto-encryption-mode: t
auto-compression-mode: t
column-number-mode: t
line-number-mode: t
transient-mark-mode: t
Recent input:
C-x C-b <down> <down> <return> C-SPC C-n C-n M-w <f7>
m q y <up> <up> C-SPC C-n C-n M-w <f7> m q y M-x r
e p o r t - <return>
Recent messages:
Reading incoming mail from file...
nnml: Reading incoming mail (no new mail)...done
Reading active file via nnml...done
nnimap read 0k from imap.gmail.com
nnimap read 24k from imap.gmail.com
Reading active file from archive via nnfolder...done
Reading active file via nndraft...done
Checking new news...done
Are you sure you want to quit reading news? (y or n) y
(No changes need to be saved)
Load-path shadows:
~/elisp/auctex/lpath hides ~/elisp/emacs-wget/lpath
/usr/local/share/emacs/24.3.50/lisp/emacs-lisp/tq hides ~/elisp/emms/lisp/tq
~/.emacs.d/.gnus hides ~/.emacs.d/emacs-config-laptop/.gnus
Features:
(shadow epa-mail mail-extr emacsbug helm-command nndraft nnmh utf-7
nnimap utf7 nnml nnfolder parse-time netrc network-stream starttls tls
gnus-agent gnus-srvr gnus-score score-mode nnvirtual gnus-msg gnus-art
mm-uu mml2015 mm-view mml-smime smime dig nntp gnus-cache gnus-dired
nnir gnus-sum gnus-group gnus-undo nnmail mail-source nnoo gnus-start
gnus-spec gnus-int gnus-range gnus-win recentf ido conf-mode allout
vc-dispatcher vc-rcs sh-script smie executable vc-git naquadah-theme
em-smart em-unix em-script em-prompt em-ls em-hist em-pred em-glob
em-dirs em-cmpl em-basic em-banner em-alias esh-var esh-io esh-cmd
esh-opt esh-ext esh-proc esh-groups eshell esh-module esh-mode align-let
server winner undo-tree diff slime-xref-browser slime-banner slime-tramp
slime-asdf slime-fancy slime-fontifying-fu slime-package-fu
slime-references slime-scratch slime-presentations slime-fuzzy
slime-fancy-inspector slime-c-p-c slime-editing-commands slime-autodoc
slime-parse slime-repl image-file newsticker newst-treeview tree-widget
newst-plainview newst-reader newst-ticker newst-backend xdvi-search
preview-latex pcomplete-extension em-term term disp-table ehelp electric
helm-ipython helm-elisp helm-eval python rx whitespace paren time avoid
savehist smtpmail-async smtpmail sendmail helm-async boxquote
markdown-mode org-google-weather google-weather url-cache iterator
googlecl google-maps google-maps-static google-maps-geocode
google-maps-base json simple-call-tree el-expectations el-mock csv2org
iedit-rect rect iedit iedit-lib zop-to-char smallurl mm-url gnus
gnus-ems nnheader rectangle-utils tv-utils async pcvs pcvs-parse
pcvs-info pcvs-defs ewoc mb-depth ioccur cl-info slime hyperspec
slime-autoloads ledger-config ledger esh-arg esh-util tex-site
auto-loads esh-toggle flymake eldoc-eval eldoc no-word dired-extension
emms-mpd-config emms-playlist-limit emms-volume emms-volume-amixer
emms-i18n emms-history emms-score emms-stream-info
emms-metaplaylist-mode emms-bookmarks emms-cue emms-mode-line-icon
emms-browser sort emms-playlist-sort emms-last-played emms-player-xine
emms-player-mpd tq emms-playing-time emms-lyrics emms-url hl-line
emms-tag-editor emms-mark emms-mode-line emms-cache emms-info-ogginfo
emms-info-mp3info emms-playlist-mode emms-player-vlc emms-player-mplayer
emms-info emms-streams later-do emms-source-playlist emms-source-file
emms-player-simple emms-setup emms emms-compat magit-stgit magit-bisect
magit-key-mode magit diff-mode log-edit pcvs-util add-log htmlize-hack
htmlize muse-colors muse-docbook muse-texinfo texnfo-upd texinfo
muse-latex muse-html muse-xml-common muse-wiki cus-edit cus-start
cus-load muse-publish muse-project muse-protocols muse-regexps wid-edit
muse muse-nested-tags muse-mode muse-autoloads org-config-thierry ob-sh
org-crypt cal-china lunar solar cal-dst cal-bahai cal-islam cal-hebrew
holidays hol-loaddefs vc-hg org-wl org-w3m org-vm org-rmail org-mhe
org-mew org-irc org-jsinfo org-infojs org-html org-exp ob-exp
org-exp-blocks org-info org-gnus org-docview org-bibtex bibtex org-bbdb
org-agenda appt diary-lib diary-loaddefs org-annotation-helper
org-capture org-mks remember org-remember org-datetree
addressbook-bookmark message rfc822 mml mml-sec mm-decode mm-bodies
mm-encode mail-parse rfc2231 rfc2047 rfc2045 ietf-drums mailabbrev
mail-utils gmm-utils mailheader firefox-protocol
bookmark-firefox-handler bookmark-extensions org ob-tangle ob-ref ob-lob
ob-table org-footnote org-src ob-comint ob-keys org-pcomplete org-list
org-faces org-entities noutline outline easy-mmode org-version
ob-emacs-lisp ob org-compat org-macs ob-eval org-loaddefs find-func
cal-menu calendar cal-loaddefs bookmark pp init-helm-thierry helm-mode
helm-imenu imenu helm-ls-git helm-descbinds helm-ls-hg helm-files
image-dired tramp tramp-compat tramp-loaddefs shell pcomplete
format-spec dired-x dired-aux ffap thingatpt helm-buffers helm-elscreen
helm-tags helm-bookmark helm-adaptative helm-info helm-net browse-url
xml url url-proxy url-privacy url-expand url-methods url-history
url-cookie url-domsuf url-util url-parse url-vars mailcap helm-plugin
helm-help helm-match-plugin helm-grep wgrep-helm wgrep helm-regexp grep
helm-external helm-utils warnings dired compile comint ansi-color ring
helm-locate helm advice help-fns helm-config epa-file epa derived epg
epg-config auth-source eieio byte-opt bytecomp byte-compile cconv
gnus-util time-date mm-util mail-prsvr password-cache usage-memo info
easymenu cl-macs gv edmacro kmacro cl nadvice cl-lib tooltip ediff-hook
vc-hooks lisp-float-type mwheel x-win x-dnd tool-bar dnd fontset image
regexp-opt fringe tabulated-list newcomment lisp-mode register page
menu-bar rfn-eshadow timer select scroll-bar mouse jit-lock font-lock
syntax facemenu font-core frame cham georgian utf-8-lang misc-lang
vietnamese tibetan thai tai-viet lao korean japanese hebrew greek
romanian slovak czech european ethiopic indian cyrillic chinese
case-table epa-hook jka-cmpr-hook help simple abbrev minibuffer loaddefs
button faces cus-face macroexp files text-properties overlay sha1 md5
base64 format env code-pages mule custom widget hashtable-print-readable
backquote make-network-process dbusbind inotify dynamic-setting
system-font-setting font-render-setting x-toolkit x multi-tty emacs)
--
Thierry
Get my Gnupg key:
gpg --keyserver pgp.mit.edu --recv-keys 59F29997
^ permalink raw reply [flat|nested] 16+ messages in thread
* bug#13636: 24.3.50; tramp+ftp broken
2013-02-06 13:35 bug#13636: 24.3.50; tramp+ftp broken Thierry Volpiatto
@ 2013-02-06 14:26 ` Michael Albinus
2013-02-06 14:42 ` Thierry Volpiatto
0 siblings, 1 reply; 16+ messages in thread
From: Michael Albinus @ 2013-02-06 14:26 UTC (permalink / raw)
To: Thierry Volpiatto; +Cc: 13636
Thierry Volpiatto <thierry.volpiatto@gmail.com> writes:
> Hi,
Hi Thierry,
> I start with emacs -Q
>
> Here some basic setting:
>
> --8<---------------cut here---------------start------------->8---
> (setq ange-ftp-try-passive-mode t)
> (setq ange-ftp-passive-host-alist '(("mafreebox.freebox.fr" . "on")))
> --8<---------------cut here---------------end--------------->8---
I have done exactly the same, starting emacs -Q and evalling the two
lines.
> C-x C-f /ftp:mafreebox.freebox.fr:/ RET
>
> On emacs-24.3.50.1:(cursor at "!")
>
> C-x C-f /ftp:mafreebox.freebox.fr"!"
>
> As soon as I enter the last ":", I have this error:
>
> Debugger entered--Lisp error: (wrong-type-argument stringp nil)
This does not happen to me. Do you apply other settings but the two
lines?
Which bzr revision do you use? I have tested with revno #111682
Note that I have reverted a patch recently, which might be responsible
for the problem. You could check in the ChangeLog, whether there is
2013-01-31 Michael Albinus <michael.albinus@gmx.de>
* net/tramp.el (tramp-tramp-file-p): Comment check for
`string-as-unibyte'. The function does not exist on XEmacs, and
likely we need another approach.
Best regards, Michael.
^ permalink raw reply [flat|nested] 16+ messages in thread
* bug#13636: 24.3.50; tramp+ftp broken
2013-02-06 14:26 ` Michael Albinus
@ 2013-02-06 14:42 ` Thierry Volpiatto
2013-02-06 14:54 ` Thierry Volpiatto
0 siblings, 1 reply; 16+ messages in thread
From: Thierry Volpiatto @ 2013-02-06 14:42 UTC (permalink / raw)
To: 13636
Hi Michael,
Michael Albinus <michael.albinus@gmx.de> writes:
> Thierry Volpiatto <thierry.volpiatto@gmail.com> writes:
>
>> Hi,
>
> Hi Thierry,
>
>> I start with emacs -Q
>>
>> Here some basic setting:
>>
>> --8<---------------cut here---------------start------------->8---
>> (setq ange-ftp-try-passive-mode t)
>> (setq ange-ftp-passive-host-alist '(("mafreebox.freebox.fr" . "on")))
>> --8<---------------cut here---------------end--------------->8---
>
> I have done exactly the same, starting emacs -Q and evalling the two
> lines.
>
>> C-x C-f /ftp:mafreebox.freebox.fr:/ RET
>>
>> On emacs-24.3.50.1:(cursor at "!")
>>
>> C-x C-f /ftp:mafreebox.freebox.fr"!"
>>
>> As soon as I enter the last ":", I have this error:
>>
>> Debugger entered--Lisp error: (wrong-type-argument stringp nil)
>
> This does not happen to me. Do you apply other settings but the two
> lines?
No, I am starting from emacs -Q + the two lines above, that's all, I have
also an entry in .netrc for this host.
As I said, on 24.2.92, files are displayed instantly doing the same.
> Which bzr revision do you use? I have tested with revno #111682
I have updated repo from git this morning:
--8<---------------cut here---------------start------------->8---
9a06a7f * origin/trunk origin/master master
| Author: Glenn Morris <rgm@gnu.org>
| Date: Tue Feb 5 21:03:35 2013 -0500
|
| * lisp/startup.el (command-line): If simple.el is missing,
| test and warn about for some possible causes.
|
| lisp/ChangeLog | 5 +++++
| lisp/startup.el | 17 +++++++++++++----
| 2 files changed, 18 insertions(+), 4 deletions(-)
--8<---------------cut here---------------end--------------->8---
> Note that I have reverted a patch recently, which might be responsible
> for the problem. You could check in the ChangeLog, whether there is
>
> 2013-01-31 Michael Albinus <michael.albinus@gmx.de>
>
> * net/tramp.el (tramp-tramp-file-p): Comment check for
> `string-as-unibyte'. The function does not exist on XEmacs, and
> likely we need another approach.
Yes this is in changelog.
--
Thierry
Get my Gnupg key:
gpg --keyserver pgp.mit.edu --recv-keys 59F29997
^ permalink raw reply [flat|nested] 16+ messages in thread
* bug#13636: 24.3.50; tramp+ftp broken
2013-02-06 14:42 ` Thierry Volpiatto
@ 2013-02-06 14:54 ` Thierry Volpiatto
2013-02-06 15:39 ` Michael Albinus
0 siblings, 1 reply; 16+ messages in thread
From: Thierry Volpiatto @ 2013-02-06 14:54 UTC (permalink / raw)
To: 13636
Thierry Volpiatto <thierry.volpiatto@gmail.com> writes:
> Hi Michael,
>
> Michael Albinus <michael.albinus@gmx.de> writes:
>
>> Thierry Volpiatto <thierry.volpiatto@gmail.com> writes:
>>
>>> Hi,
>>
>> Hi Thierry,
>>
>>> I start with emacs -Q
>>>
>>> Here some basic setting:
>>>
>>> --8<---------------cut here---------------start------------->8---
>>> (setq ange-ftp-try-passive-mode t)
>>> (setq ange-ftp-passive-host-alist '(("mafreebox.freebox.fr" . "on")))
>>> --8<---------------cut here---------------end--------------->8---
>>
>> I have done exactly the same, starting emacs -Q and evalling the two
>> lines.
>>
>>> C-x C-f /ftp:mafreebox.freebox.fr:/ RET
>>>
>>> On emacs-24.3.50.1:(cursor at "!")
>>>
>>> C-x C-f /ftp:mafreebox.freebox.fr"!"
>>>
>>> As soon as I enter the last ":", I have this error:
>>>
>>> Debugger entered--Lisp error: (wrong-type-argument stringp nil)
>>
>> This does not happen to me. Do you apply other settings but the two
>> lines?
> No, I am starting from emacs -Q + the two lines above, that's all, I have
> also an entry in .netrc for this host.
> As I said, on 24.2.92, files are displayed instantly doing the same.
>
>> Which bzr revision do you use? I have tested with revno #111682
> I have updated repo from git this morning:
>
> 9a06a7f * origin/trunk origin/master master
> | Author: Glenn Morris <rgm@gnu.org>
> | Date: Tue Feb 5 21:03:35 2013 -0500
> |
> | * lisp/startup.el (command-line): If simple.el is missing,
> | test and warn about for some possible causes.
> |
> | lisp/ChangeLog | 5 +++++
> | lisp/startup.el | 17 +++++++++++++----
> | 2 files changed, 18 insertions(+), 4 deletions(-)
>
>
>> Note that I have reverted a patch recently, which might be responsible
>> for the problem. You could check in the ChangeLog, whether there is
>>
>> 2013-01-31 Michael Albinus <michael.albinus@gmx.de>
>>
>> * net/tramp.el (tramp-tramp-file-p): Comment check for
>> `string-as-unibyte'. The function does not exist on XEmacs, and
>> likely we need another approach.
>
> Yes this is in changelog.
I tried to uncomment this line but it changed nothing.
The strange thing is emacs say .netrc is modified and ask to save it
when quitting emacs but the file is not modified.
And anyway, why tramp/ange would want to modify this file ?
--
Thierry
Get my Gnupg key:
gpg --keyserver pgp.mit.edu --recv-keys 59F29997
^ permalink raw reply [flat|nested] 16+ messages in thread
* bug#13636: 24.3.50; tramp+ftp broken
2013-02-06 14:54 ` Thierry Volpiatto
@ 2013-02-06 15:39 ` Michael Albinus
2013-02-06 15:58 ` Thierry Volpiatto
0 siblings, 1 reply; 16+ messages in thread
From: Michael Albinus @ 2013-02-06 15:39 UTC (permalink / raw)
To: Thierry Volpiatto; +Cc: 13636
Thierry Volpiatto <thierry.volpiatto@gmail.com> writes:
>> Hi Michael,
Hi Thierry,
> The strange thing is emacs say .netrc is modified and ask to save it
> when quitting emacs but the file is not modified.
> And anyway, why tramp/ange would want to modify this file ?
Tramp does not touches .netrc. ange-ftp shouldn't either, and there
haven't been recent changes I'm aware of.
Hmm, unfortunately the most interesting part of the backtrace is byte
code. Could you, please, remove all *.elc from the lisp/ directory (and
subdirectories)? This might give us a better backtrace.
Best regards, Michael.
^ permalink raw reply [flat|nested] 16+ messages in thread
* bug#13636: 24.3.50; tramp+ftp broken
2013-02-06 15:39 ` Michael Albinus
@ 2013-02-06 15:58 ` Thierry Volpiatto
2013-02-06 16:14 ` Michael Albinus
0 siblings, 1 reply; 16+ messages in thread
From: Thierry Volpiatto @ 2013-02-06 15:58 UTC (permalink / raw)
To: 13636
Michael Albinus <michael.albinus@gmx.de> writes:
> Thierry Volpiatto <thierry.volpiatto@gmail.com> writes:
>
>>> Hi Michael,
>
> Hi Thierry,
>
>> The strange thing is emacs say .netrc is modified and ask to save it
>> when quitting emacs but the file is not modified.
>> And anyway, why tramp/ange would want to modify this file ?
>
> Tramp does not touches .netrc. ange-ftp shouldn't either, and there
> haven't been recent changes I'm aware of.
>
> Hmm, unfortunately the most interesting part of the backtrace is byte
> code. Could you, please, remove all *.elc from the lisp/ directory (and
> subdirectories)? This might give us a better backtrace.
Still have some byte-code, but more informative though.
--8<---------------cut here---------------start------------->8---
Debugger entered--Lisp error: (wrong-type-argument stringp nil)
signal(wrong-type-argument (stringp nil))
byte-code("\301\b@\bA\"\207" [err signal] 3)
ange-ftp-hook-function(file-remote-p "/ftp:mafreebox.freebox.fr:" nil nil)
apply(ange-ftp-hook-function file-remote-p ("/ftp:mafreebox.freebox.fr:" nil nil))
(let* ((inhibit-file-name-handlers (list (quote tramp-file-name-handler) (quote tramp-completion-file-name-handler) (and (eq inhibit-file-name-operation operation) inhibit-file-name-handlers))) (inhibit-file-name-operation operation)) (apply (quote ange-ftp-hook-function) operation args))
(cond ((memq operation (quote (file-directory-p file-exists-p))) (if (apply (quote ange-ftp-hook-function) operation args) (let ((v (tramp-dissect-file-name (car args) t))) (aset v 0 tramp-ftp-method) (tramp-set-connection-property v "started" t)) nil)) ((and (memq operation (quote (copy-file rename-file))) (file-remote-p (cadr args)) (not (tramp-ftp-file-name-p (cadr args)))) (let* ((filename (car args)) (newname (cadr args)) (tmpfile (tramp-compat-make-temp-file filename)) (args (cddr args))) (if (eq operation (quote copy-file)) (apply operation filename tmpfile t (cdr args)) (apply operation filename tmpfile t)) (unwind-protect (rename-file tmpfile newname (car args)) (condition-case nil (progn (delete-file tmpfile)) (error nil))))) (t (let* ((inhibit-file-name-handlers (list (quote tramp-file-name-handler) (quote tramp-completion-file-name-handler) (and (eq inhibit-file-name-operation operation) inhibit-file-name-handlers))) (inhibit-file-name-operation operation)) (apply (quote ange-ftp-hook-function) operation args))))
(let ((ange-ftp-name-format (list (nth 0 tramp-file-name-structure) (nth 3 tramp-file-name-structure) (nth 2 tramp-file-name-structure) (nth 4 tramp-file-name-structure))) (ange-ftp-ftp-name-arg "") (ange-ftp-ftp-name-res nil)) (cond ((memq operation (quote (file-directory-p file-exists-p))) (if (apply (quote ange-ftp-hook-function) operation args) (let ((v (tramp-dissect-file-name ... t))) (aset v 0 tramp-ftp-method) (tramp-set-connection-property v "started" t)) nil)) ((and (memq operation (quote (copy-file rename-file))) (file-remote-p (cadr args)) (not (tramp-ftp-file-name-p (cadr args)))) (let* ((filename (car args)) (newname (cadr args)) (tmpfile (tramp-compat-make-temp-file filename)) (args (cddr args))) (if (eq operation (quote copy-file)) (apply operation filename tmpfile t (cdr args)) (apply operation filename tmpfile t)) (unwind-protect (rename-file tmpfile newname (car args)) (condition-case nil (progn (delete-file tmpfile)) (error nil))))) (t (let* ((inhibit-file-name-handlers (list (quote tramp-file-name-handler) (quote tramp-completion-file-name-handler) (and ... inhibit-file-name-handlers))) (inhibit-file-name-operation operation)) (apply (quote ange-ftp-hook-function) operation args)))))
(progn (or (boundp (quote ange-ftp-name-format)) (let (file-name-handler-alist) (require (quote ange-ftp)))) (let ((ange-ftp-name-format (list (nth 0 tramp-file-name-structure) (nth 3 tramp-file-name-structure) (nth 2 tramp-file-name-structure) (nth 4 tramp-file-name-structure))) (ange-ftp-ftp-name-arg "") (ange-ftp-ftp-name-res nil)) (cond ((memq operation (quote (file-directory-p file-exists-p))) (if (apply (quote ange-ftp-hook-function) operation args) (let ((v ...)) (aset v 0 tramp-ftp-method) (tramp-set-connection-property v "started" t)) nil)) ((and (memq operation (quote (copy-file rename-file))) (file-remote-p (cadr args)) (not (tramp-ftp-file-name-p (cadr args)))) (let* ((filename (car args)) (newname (cadr args)) (tmpfile (tramp-compat-make-temp-file filename)) (args (cddr args))) (if (eq operation (quote copy-file)) (apply operation filename tmpfile t (cdr args)) (apply operation filename tmpfile t)) (unwind-protect (rename-file tmpfile newname (car args)) (condition-case nil (progn ...) (error nil))))) (t (let* ((inhibit-file-name-handlers (list ... ... ...)) (inhibit-file-name-operation operation)) (apply (quote ange-ftp-hook-function) operation args))))))
(unwind-protect (progn (or (boundp (quote ange-ftp-name-format)) (let (file-name-handler-alist) (require (quote ange-ftp)))) (let ((ange-ftp-name-format (list (nth 0 tramp-file-name-structure) (nth 3 tramp-file-name-structure) (nth 2 tramp-file-name-structure) (nth 4 tramp-file-name-structure))) (ange-ftp-ftp-name-arg "") (ange-ftp-ftp-name-res nil)) (cond ((memq operation (quote (file-directory-p file-exists-p))) (if (apply (quote ange-ftp-hook-function) operation args) (let (...) (aset v 0 tramp-ftp-method) (tramp-set-connection-property v "started" t)) nil)) ((and (memq operation (quote ...)) (file-remote-p (cadr args)) (not (tramp-ftp-file-name-p ...))) (let* ((filename ...) (newname ...) (tmpfile ...) (args ...)) (if (eq operation ...) (apply operation filename tmpfile t ...) (apply operation filename tmpfile t)) (unwind-protect (rename-file tmpfile newname ...) (condition-case nil ... ...)))) (t (let* ((inhibit-file-name-handlers ...) (inhibit-file-name-operation operation)) (apply (quote ange-ftp-hook-function) operation args)))))) (set-match-data save-match-data-internal (quote evaporate)))
(let ((save-match-data-internal (match-data))) (unwind-protect (progn (or (boundp (quote ange-ftp-name-format)) (let (file-name-handler-alist) (require (quote ange-ftp)))) (let ((ange-ftp-name-format (list (nth 0 tramp-file-name-structure) (nth 3 tramp-file-name-structure) (nth 2 tramp-file-name-structure) (nth 4 tramp-file-name-structure))) (ange-ftp-ftp-name-arg "") (ange-ftp-ftp-name-res nil)) (cond ((memq operation (quote ...)) (if (apply ... operation args) (let ... ... ...) nil)) ((and (memq operation ...) (file-remote-p ...) (not ...)) (let* (... ... ... ...) (if ... ... ...) (unwind-protect ... ...))) (t (let* (... ...) (apply ... operation args)))))) (set-match-data save-match-data-internal (quote evaporate))))
tramp-ftp-file-name-handler(file-remote-p "/ftp:mafreebox.freebox.fr:" nil nil)
apply(tramp-ftp-file-name-handler file-remote-p ("/ftp:mafreebox.freebox.fr:" nil nil))
(catch (quote suppress) (apply foreign operation args))
(catch (quote non-essential) (catch (quote suppress) (apply foreign operation args)))
(setq result (catch (quote non-essential) (catch (quote suppress) (apply foreign operation args))))
(let ((sf (symbol-function foreign)) result) (if (and (listp sf) (eq (car sf) (quote autoload))) (progn (let ((default-directory (tramp-compat-temporary-file-directory))) (load (cadr sf) (quote noerror) (quote nomessage))))) (setq result (catch (quote non-essential) (catch (quote suppress) (apply foreign operation args)))) (cond ((eq result (quote non-essential)) (tramp-message v 5 "Non-essential received in operation %s" (append (list operation) args)) (tramp-run-real-handler operation args)) ((eq result (quote suppress)) (let (tramp-message-show-message) (tramp-message v 1 "Suppress received in operation %s" (append (list operation) args)) (tramp-cleanup v) (tramp-run-real-handler operation args))) (t result)))
(condition-case err (let ((sf (symbol-function foreign)) result) (if (and (listp sf) (eq (car sf) (quote autoload))) (progn (let ((default-directory (tramp-compat-temporary-file-directory))) (load (cadr sf) (quote noerror) (quote nomessage))))) (setq result (catch (quote non-essential) (catch (quote suppress) (apply foreign operation args)))) (cond ((eq result (quote non-essential)) (tramp-message v 5 "Non-essential received in operation %s" (append (list operation) args)) (tramp-run-real-handler operation args)) ((eq result (quote suppress)) (let (tramp-message-show-message) (tramp-message v 1 "Suppress received in operation %s" (append (list operation) args)) (tramp-cleanup v) (tramp-run-real-handler operation args))) (t result))) ((debug debug quit) (let (tramp-message-show-message) (tramp-message v 1 "Interrupt received in operation %s" (append (list operation) args))) (signal (car err) (cdr err))) ((debug error) (cond ((and completion (zerop (length localname)) (memq operation (quote (file-exists-p file-directory-p)))) t) ((and completion (zerop (length localname)) (memq operation (quote (expand-file-name file-name-as-directory)))) filename) (t (signal (car err) (cdr err))))))
(if foreign (condition-case err (let ((sf (symbol-function foreign)) result) (if (and (listp sf) (eq (car sf) (quote autoload))) (progn (let ((default-directory ...)) (load (cadr sf) (quote noerror) (quote nomessage))))) (setq result (catch (quote non-essential) (catch (quote suppress) (apply foreign operation args)))) (cond ((eq result (quote non-essential)) (tramp-message v 5 "Non-essential received in operation %s" (append (list operation) args)) (tramp-run-real-handler operation args)) ((eq result (quote suppress)) (let (tramp-message-show-message) (tramp-message v 1 "Suppress received in operation %s" (append ... args)) (tramp-cleanup v) (tramp-run-real-handler operation args))) (t result))) ((debug debug quit) (let (tramp-message-show-message) (tramp-message v 1 "Interrupt received in operation %s" (append (list operation) args))) (signal (car err) (cdr err))) ((debug error) (cond ((and completion (zerop (length localname)) (memq operation (quote ...))) t) ((and completion (zerop (length localname)) (memq operation (quote ...))) filename) (t (signal (car err) (cdr err)))))) (tramp-run-real-handler operation args))
(let* ((v (tramp-dissect-file-name filename)) (method (tramp-file-name-method v)) (user (tramp-file-name-user v)) (host (tramp-file-name-host v)) (localname (tramp-file-name-localname v)) (hop (tramp-file-name-hop v))) (if foreign (condition-case err (let ((sf (symbol-function foreign)) result) (if (and (listp sf) (eq (car sf) (quote autoload))) (progn (let (...) (load ... ... ...)))) (setq result (catch (quote non-essential) (catch (quote suppress) (apply foreign operation args)))) (cond ((eq result (quote non-essential)) (tramp-message v 5 "Non-essential received in operation %s" (append ... args)) (tramp-run-real-handler operation args)) ((eq result (quote suppress)) (let (tramp-message-show-message) (tramp-message v 1 "Suppress received in operation %s" ...) (tramp-cleanup v) (tramp-run-real-handler operation args))) (t result))) ((debug debug quit) (let (tramp-message-show-message) (tramp-message v 1 "Interrupt received in operation %s" (append (list operation) args))) (signal (car err) (cdr err))) ((debug error) (cond ((and completion (zerop ...) (memq operation ...)) t) ((and completion (zerop ...) (memq operation ...)) filename) (t (signal (car err) (cdr err)))))) (tramp-run-real-handler operation args)))
(let* ((filename (tramp-replace-environment-variables (apply (quote tramp-file-name-for-operation) operation args))) (completion (tramp-completion-mode-p)) (foreign (tramp-find-foreign-file-name-handler filename))) (let* ((v (tramp-dissect-file-name filename)) (method (tramp-file-name-method v)) (user (tramp-file-name-user v)) (host (tramp-file-name-host v)) (localname (tramp-file-name-localname v)) (hop (tramp-file-name-hop v))) (if foreign (condition-case err (let ((sf (symbol-function foreign)) result) (if (and (listp sf) (eq ... ...)) (progn (let ... ...))) (setq result (catch (quote non-essential) (catch ... ...))) (cond ((eq result ...) (tramp-message v 5 "Non-essential received in operation %s" ...) (tramp-run-real-handler operation args)) ((eq result ...) (let ... ... ... ...)) (t result))) ((debug debug quit) (let (tramp-message-show-message) (tramp-message v 1 "Interrupt received in operation %s" (append ... args))) (signal (car err) (cdr err))) ((debug error) (cond ((and completion ... ...) t) ((and completion ... ...) filename) (t (signal ... ...))))) (tramp-run-real-handler operation args))))
(progn (let* ((filename (tramp-replace-environment-variables (apply (quote tramp-file-name-for-operation) operation args))) (completion (tramp-completion-mode-p)) (foreign (tramp-find-foreign-file-name-handler filename))) (let* ((v (tramp-dissect-file-name filename)) (method (tramp-file-name-method v)) (user (tramp-file-name-user v)) (host (tramp-file-name-host v)) (localname (tramp-file-name-localname v)) (hop (tramp-file-name-hop v))) (if foreign (condition-case err (let ((sf ...) result) (if (and ... ...) (progn ...)) (setq result (catch ... ...)) (cond (... ... ...) (... ...) (t result))) ((debug debug quit) (let (tramp-message-show-message) (tramp-message v 1 "Interrupt received in operation %s" ...)) (signal (car err) (cdr err))) ((debug error) (cond (... t) (... filename) (t ...)))) (tramp-run-real-handler operation args)))))
(unwind-protect (progn (let* ((filename (tramp-replace-environment-variables (apply (quote tramp-file-name-for-operation) operation args))) (completion (tramp-completion-mode-p)) (foreign (tramp-find-foreign-file-name-handler filename))) (let* ((v (tramp-dissect-file-name filename)) (method (tramp-file-name-method v)) (user (tramp-file-name-user v)) (host (tramp-file-name-host v)) (localname (tramp-file-name-localname v)) (hop (tramp-file-name-hop v))) (if foreign (condition-case err (let (... result) (if ... ...) (setq result ...) (cond ... ... ...)) ((debug debug quit) (let ... ...) (signal ... ...)) ((debug error) (cond ... ... ...))) (tramp-run-real-handler operation args))))) (set-match-data save-match-data-internal (quote evaporate)))
(let ((save-match-data-internal (match-data))) (unwind-protect (progn (let* ((filename (tramp-replace-environment-variables (apply ... operation args))) (completion (tramp-completion-mode-p)) (foreign (tramp-find-foreign-file-name-handler filename))) (let* ((v (tramp-dissect-file-name filename)) (method (tramp-file-name-method v)) (user (tramp-file-name-user v)) (host (tramp-file-name-host v)) (localname (tramp-file-name-localname v)) (hop (tramp-file-name-hop v))) (if foreign (condition-case err (let ... ... ... ...) (... ... ...) (... ...)) (tramp-run-real-handler operation args))))) (set-match-data save-match-data-internal (quote evaporate))))
(if tramp-mode (let ((save-match-data-internal (match-data))) (unwind-protect (progn (let* ((filename (tramp-replace-environment-variables ...)) (completion (tramp-completion-mode-p)) (foreign (tramp-find-foreign-file-name-handler filename))) (let* ((v ...) (method ...) (user ...) (host ...) (localname ...) (hop ...)) (if foreign (condition-case err ... ... ...) (tramp-run-real-handler operation args))))) (set-match-data save-match-data-internal (quote evaporate)))) (tramp-run-real-handler operation args))
tramp-file-name-handler(file-remote-p "/ftp:mafreebox.freebox.fr:" nil nil)
file-remote-p("/ftp:mafreebox.freebox.fr:" nil nil)
apply(file-remote-p ("/ftp:mafreebox.freebox.fr:" nil nil))
(let* ((inhibit-file-name-handlers (cons (quote tramp-completion-file-name-handler) (cons (quote cygwin-mount-name-hook-function) (cons (quote cygwin-mount-map-drive-hook-function) (and (eq inhibit-file-name-operation operation) inhibit-file-name-handlers))))) (inhibit-file-name-operation operation)) (apply operation args))
tramp-completion-run-real-handler(file-remote-p ("/ftp:mafreebox.freebox.fr:" nil nil))
(if (and fn tramp-mode (or (eq tramp-syntax (quote sep)) (featurep (quote tramp)) (and (boundp (quote partial-completion-mode)) (symbol-value (quote partial-completion-mode))) (featurep (quote ido)) (featurep (quote icicles)))) (let ((save-match-data-internal (match-data))) (unwind-protect (progn (apply (cdr fn) args)) (set-match-data save-match-data-internal (quote evaporate)))) (tramp-completion-run-real-handler operation args))
(let ((directory-sep-char 47) (fn (assoc operation tramp-completion-file-name-handler-alist))) (if (and fn tramp-mode (or (eq tramp-syntax (quote sep)) (featurep (quote tramp)) (and (boundp (quote partial-completion-mode)) (symbol-value (quote partial-completion-mode))) (featurep (quote ido)) (featurep (quote icicles)))) (let ((save-match-data-internal (match-data))) (unwind-protect (progn (apply (cdr fn) args)) (set-match-data save-match-data-internal (quote evaporate)))) (tramp-completion-run-real-handler operation args)))
tramp-completion-file-name-handler(file-remote-p "/ftp:mafreebox.freebox.fr:" nil nil)
file-remote-p("/ftp:mafreebox.freebox.fr:")
(if (file-remote-p (if (or (subrp (quote buffer-substring-no-properties)) (functionp (quote buffer-substring-no-properties))) (progn (with-no-warnings (funcall (quote buffer-substring-no-properties) end (point-max)))))) (progn (save-excursion (save-restriction (narrow-to-region (1+ (or (string-match tramp-rfn-eshadow-update-overlay-regexp ... end) end)) (point-max)) (let ((rfn-eshadow-overlay tramp-rfn-eshadow-overlay) (rfn-eshadow-update-overlay-hook nil) file-name-handler-alist) (if (or (subrp ...) (functionp ...)) (progn (with-no-warnings ...))) (if (or (subrp ...) (functionp ...)) (progn (with-no-warnings ...))))))))
(let ((end (or (if (or (subrp (quote overlay-end)) (functionp (quote overlay-end))) (progn (with-no-warnings (funcall ... ...)))) (if (or (subrp (quote minibuffer-prompt-end)) (functionp (quote minibuffer-prompt-end))) (progn (with-no-warnings (funcall ...)))))) (non-essential t)) (if (file-remote-p (if (or (subrp (quote buffer-substring-no-properties)) (functionp (quote buffer-substring-no-properties))) (progn (with-no-warnings (funcall (quote buffer-substring-no-properties) end (point-max)))))) (progn (save-excursion (save-restriction (narrow-to-region (1+ (or ... end)) (point-max)) (let ((rfn-eshadow-overlay tramp-rfn-eshadow-overlay) (rfn-eshadow-update-overlay-hook nil) file-name-handler-alist) (if (or ... ...) (progn ...)) (if (or ... ...) (progn ...))))))))
(progn (let ((end (or (if (or (subrp ...) (functionp ...)) (progn (with-no-warnings ...))) (if (or (subrp ...) (functionp ...)) (progn (with-no-warnings ...))))) (non-essential t)) (if (file-remote-p (if (or (subrp (quote buffer-substring-no-properties)) (functionp (quote buffer-substring-no-properties))) (progn (with-no-warnings (funcall ... end ...))))) (progn (save-excursion (save-restriction (narrow-to-region (1+ ...) (point-max)) (let (... ... file-name-handler-alist) (if ... ...) (if ... ...))))))))
(condition-case nil (progn (let ((end (or (if (or ... ...) (progn ...)) (if (or ... ...) (progn ...)))) (non-essential t)) (if (file-remote-p (if (or (subrp ...) (functionp ...)) (progn (with-no-warnings ...)))) (progn (save-excursion (save-restriction (narrow-to-region ... ...) (let ... ... ...))))))) (error nil))
tramp-rfn-eshadow-update-overlay()
run-hooks(rfn-eshadow-update-overlay-hook)
byte-code("\306\307 !\310\b!\311 d\312\x1a\x1c\f\203?\f\n=\204*\r\fT\x12\211\313\314\315\217\232*\204?\f\v=\204\215\r\f\x12\211\313\314\315\217\232*\204\215\vT\nW\204f\nTdW\203\206\r\nT\x12\211\313\314\315\217\232*\203\206\nTd\211\203\206\v\n\\\316\245\r\f\x12\211\313\314\315\217\232*\203\201\f\211\202@\f\202?\317\b\311 \v#\210\320\321!-\207" [rfn-eshadow-overlay non-essential end start mid goal substitute-in-file-name minibuffer-contents overlay-end minibuffer-prompt-end t nil (byte-code "\301\302\bd\"!\207" [pos substitute-in-file-name buffer-substring-no-properties] 4) ((error)) 2 move-overlay run-hooks rfn-eshadow-update-overlay-hook pos] 6)
rfn-eshadow-update-overlay()
read-from-minibuffer("Find file: " "~/tmp/emacs-savanah-git/" (keymap (keymap (32)) keymap (10 . minibuffer-complete-and-exit) (13 . minibuffer-complete-and-exit) keymap (menu-bar keymap (minibuf "Minibuf" keymap (tab menu-item "Complete" minibuffer-complete :help "Complete as far as possible") (space menu-item "Complete Word" minibuffer-complete-word :help "Complete at most one word") (63 menu-item "List Completions" minibuffer-completion-help :help "Display all possible completions") "Minibuf")) (27 keymap (118 . switch-to-completions)) (prior . switch-to-completions) (63 . minibuffer-completion-help) (32 . minibuffer-complete-word) (9 . minibuffer-complete) keymap (menu-bar keymap (minibuf "Minibuf" keymap (previous menu-item "Previous History Item" previous-history-element :help "Put previous minibuffer history element in the minibuffer") (next menu-item "Next History Item" next-history-element :help "Put next minibuffer history element in the minibuffer") (isearch-backward menu-item "Isearch History Backward" isearch-backward :help "Incrementally search minibuffer history backward") (isearch-forward menu-item "Isearch History Forward" isearch-forward :help "Incrementally search minibuffer history forward") (return menu-item "Enter" exit-minibuffer :key-sequence "" :help "Terminate input and exit minibuffer") (quit menu-item "Quit" abort-recursive-edit :help "Abort input and exit minibuffer") "Minibuf")) (10 . exit-minibuffer) (13 . exit-minibuffer) (7 . abort-recursive-edit) (C-tab . file-cache-minibuffer-complete) (9 . self-insert-command) (XF86Back . previous-history-element) (up . previous-history-element) (prior . previous-history-element) (XF86Forward . next-history-element) (down . next-history-element) (next . next-history-element) (27 keymap (114 . previous-matching-history-element) (115 . next-matching-history-element) (112 . previous-history-element) (110 . next-history-element))) nil file-name-history "~/tmp/emacs-savanah-git/" nil)
completing-read-default("Find file: " read-file-name-internal file-exists-p confirm-after-completion "~/tmp/emacs-savanah-git/" file-name-history "~/tmp/emacs-savanah-git/" nil)
completing-read("Find file: " read-file-name-internal file-exists-p confirm-after-completion "~/tmp/emacs-savanah-git/" file-name-history "~/tmp/emacs-savanah-git/")
read-file-name-default("Find file: " nil "~/tmp/emacs-savanah-git/" confirm-after-completion nil nil)
read-file-name("Find file: " nil "~/tmp/emacs-savanah-git/" confirm-after-completion)
find-file-read-args("Find file: " confirm-after-completion)
byte-code("\300\301\302 \"\207" [find-file-read-args "Find file: " confirm-nonexistent-file-or-buffer] 3)
call-interactively(find-file nil nil)
--8<---------------cut here---------------end--------------->8---
--
Thierry
Get my Gnupg key:
gpg --keyserver pgp.mit.edu --recv-keys 59F29997
^ permalink raw reply [flat|nested] 16+ messages in thread
* bug#13636: 24.3.50; tramp+ftp broken
2013-02-06 15:58 ` Thierry Volpiatto
@ 2013-02-06 16:14 ` Michael Albinus
2013-02-06 16:47 ` Thierry Volpiatto
0 siblings, 1 reply; 16+ messages in thread
From: Michael Albinus @ 2013-02-06 16:14 UTC (permalink / raw)
To: Thierry Volpiatto; +Cc: 13636
Thierry Volpiatto <thierry.volpiatto@gmail.com> writes:
Hi Thierry,
>> Tramp does not touches .netrc. ange-ftp shouldn't either, and there
>> haven't been recent changes I'm aware of.
>>
>> Hmm, unfortunately the most interesting part of the backtrace is byte
>> code. Could you, please, remove all *.elc from the lisp/ directory (and
>> subdirectories)? This might give us a better backtrace.
> Still have some byte-code, but more informative though.
>
> Debugger entered--Lisp error: (wrong-type-argument stringp nil)
> signal(wrong-type-argument (stringp nil))
> byte-code("\301\b@\bA\"\207" [err signal] 3)
> ange-ftp-hook-function(file-remote-p "/ftp:mafreebox.freebox.fr:" nil nil)
Still not sufficient. I don't see where (stringp nil) is called.
"/ftp:mafreebox.freebox.fr:" is a string (obviously). The other
parameters of `file-remote-p' are optional, it is OK to be nil.
What happens, if you eval in your *scratch* buffer
(file-remote-p "/ftp:mafreebox.freebox.fr:" nil nil)
What happens, if you move your ~/.netrc away (temporarily)?
Best regards, Michael.
^ permalink raw reply [flat|nested] 16+ messages in thread
* bug#13636: 24.3.50; tramp+ftp broken
2013-02-06 16:14 ` Michael Albinus
@ 2013-02-06 16:47 ` Thierry Volpiatto
2013-02-06 18:36 ` Eli Zaretskii
` (2 more replies)
0 siblings, 3 replies; 16+ messages in thread
From: Thierry Volpiatto @ 2013-02-06 16:47 UTC (permalink / raw)
To: Michael Albinus; +Cc: 13636
Hi Michael,
Michael Albinus <michael.albinus@gmx.de> writes:
> Thierry Volpiatto <thierry.volpiatto@gmail.com> writes:
>
> Hi Thierry,
>
>>> Tramp does not touches .netrc. ange-ftp shouldn't either, and there
>>> haven't been recent changes I'm aware of.
>>>
>>> Hmm, unfortunately the most interesting part of the backtrace is byte
>>> code. Could you, please, remove all *.elc from the lisp/ directory (and
>>> subdirectories)? This might give us a better backtrace.
>> Still have some byte-code, but more informative though.
>>
>> Debugger entered--Lisp error: (wrong-type-argument stringp nil)
>> signal(wrong-type-argument (stringp nil))
>> byte-code("\301\b@\bA\"\207" [err signal] 3)
>> ange-ftp-hook-function(file-remote-p "/ftp:mafreebox.freebox.fr:" nil nil)
>
> Still not sufficient. I don't see where (stringp nil) is called.
> "/ftp:mafreebox.freebox.fr:" is a string (obviously). The other
> parameters of `file-remote-p' are optional, it is OK to be nil.
>
> What happens, if you eval in your *scratch* buffer
>
> (file-remote-p "/ftp:mafreebox.freebox.fr:" nil nil)
Same error.
> What happens, if you move your ~/.netrc away (temporarily)?
It is working when I remove .netrc
(file-remote-p "/ftp:mafreebox.freebox.fr:")
=> "/ftp:mafreebox.freebox.fr:"
Here the entry in .netrc:
machine mafreebox.freebox.fr login freebox password xxxxx
--
Thierry
Get my Gnupg key:
gpg --keyserver pgp.mit.edu --recv-keys 59F29997
^ permalink raw reply [flat|nested] 16+ messages in thread
* bug#13636: 24.3.50; tramp+ftp broken
2013-02-06 16:47 ` Thierry Volpiatto
@ 2013-02-06 18:36 ` Eli Zaretskii
2013-02-06 19:23 ` Thierry Volpiatto
2013-02-06 18:59 ` Michael Albinus
2013-02-06 20:15 ` Michael Albinus
2 siblings, 1 reply; 16+ messages in thread
From: Eli Zaretskii @ 2013-02-06 18:36 UTC (permalink / raw)
To: Thierry Volpiatto; +Cc: 13636, michael.albinus
> From: Thierry Volpiatto <thierry.volpiatto@gmail.com>
> Date: Wed, 06 Feb 2013 17:47:17 +0100
> Cc: 13636@debbugs.gnu.org
>
> >> Debugger entered--Lisp error: (wrong-type-argument stringp nil)
> >> signal(wrong-type-argument (stringp nil))
> >> byte-code("\301\b@\bA\"\207" [err signal] 3)
> >> ange-ftp-hook-function(file-remote-p "/ftp:mafreebox.freebox.fr:" nil nil)
> >
> > Still not sufficient. I don't see where (stringp nil) is called.
> > "/ftp:mafreebox.freebox.fr:" is a string (obviously). The other
> > parameters of `file-remote-p' are optional, it is OK to be nil.
> >
> > What happens, if you eval in your *scratch* buffer
> >
> > (file-remote-p "/ftp:mafreebox.freebox.fr:" nil nil)
> Same error.
>
> > What happens, if you move your ~/.netrc away (temporarily)?
> It is working when I remove .netrc
> (file-remote-p "/ftp:mafreebox.freebox.fr:")
> => "/ftp:mafreebox.freebox.fr:"
>
> Here the entry in .netrc:
>
> machine mafreebox.freebox.fr login freebox password xxxxx
Just run Emacs under GDB, put a breakpoint in wrong_type_argument, and
when it breaks, show the backtrace (including "xbacktrace"). That
should show enough for Michael to see the information he wants.
^ permalink raw reply [flat|nested] 16+ messages in thread
* bug#13636: 24.3.50; tramp+ftp broken
2013-02-06 18:36 ` Eli Zaretskii
@ 2013-02-06 19:23 ` Thierry Volpiatto
0 siblings, 0 replies; 16+ messages in thread
From: Thierry Volpiatto @ 2013-02-06 19:23 UTC (permalink / raw)
To: 13636
Hi Eli,
Eli Zaretskii <eliz@gnu.org> writes:
>> From: Thierry Volpiatto <thierry.volpiatto@gmail.com>
>> Date: Wed, 06 Feb 2013 17:47:17 +0100
>> Cc: 13636@debbugs.gnu.org
>>
>> >> Debugger entered--Lisp error: (wrong-type-argument stringp nil)
>> >> signal(wrong-type-argument (stringp nil))
>> >> byte-code("\301\b@\bA\"\207" [err signal] 3)
>> >> ange-ftp-hook-function(file-remote-p "/ftp:mafreebox.freebox.fr:" nil nil)
>> >
>> > Still not sufficient. I don't see where (stringp nil) is called.
>> > "/ftp:mafreebox.freebox.fr:" is a string (obviously). The other
>> > parameters of `file-remote-p' are optional, it is OK to be nil.
>> >
>> > What happens, if you eval in your *scratch* buffer
>> >
>> > (file-remote-p "/ftp:mafreebox.freebox.fr:" nil nil)
>> Same error.
>>
>> > What happens, if you move your ~/.netrc away (temporarily)?
>> It is working when I remove .netrc
>> (file-remote-p "/ftp:mafreebox.freebox.fr:")
>> => "/ftp:mafreebox.freebox.fr:"
>>
>> Here the entry in .netrc:
>>
>> machine mafreebox.freebox.fr login freebox password xxxxx
>
> Just run Emacs under GDB, put a breakpoint in wrong_type_argument, and
> when it breaks, show the backtrace (including "xbacktrace"). That
> should show enough for Michael to see the information he wants.
Thanks for this info, really helpful.
--
Thierry
Get my Gnupg key:
gpg --keyserver pgp.mit.edu --recv-keys 59F29997
^ permalink raw reply [flat|nested] 16+ messages in thread
* bug#13636: 24.3.50; tramp+ftp broken
2013-02-06 16:47 ` Thierry Volpiatto
2013-02-06 18:36 ` Eli Zaretskii
@ 2013-02-06 18:59 ` Michael Albinus
2013-02-06 19:21 ` Thierry Volpiatto
2013-02-06 20:15 ` Michael Albinus
2 siblings, 1 reply; 16+ messages in thread
From: Michael Albinus @ 2013-02-06 18:59 UTC (permalink / raw)
To: Thierry Volpiatto; +Cc: 13636
Thierry Volpiatto <thierry.volpiatto@gmail.com> writes:
> Hi Michael,
Hi Thierry,
>> What happens, if you move your ~/.netrc away (temporarily)?
> It is working when I remove .netrc
> (file-remote-p "/ftp:mafreebox.freebox.fr:")
> => "/ftp:mafreebox.freebox.fr:"
>
> Here the entry in .netrc:
>
> machine mafreebox.freebox.fr login freebox password xxxxx
With that entry in .netrc, I'm able to reproduce the problem. No need
for you to collect further information; I will debug it.
Best regards, Michael.
^ permalink raw reply [flat|nested] 16+ messages in thread
* bug#13636: 24.3.50; tramp+ftp broken
2013-02-06 18:59 ` Michael Albinus
@ 2013-02-06 19:21 ` Thierry Volpiatto
0 siblings, 0 replies; 16+ messages in thread
From: Thierry Volpiatto @ 2013-02-06 19:21 UTC (permalink / raw)
To: 13636
Michael Albinus <michael.albinus@gmx.de> writes:
> Thierry Volpiatto <thierry.volpiatto@gmail.com> writes:
>
>> Hi Michael,
>
> Hi Thierry,
>
>>> What happens, if you move your ~/.netrc away (temporarily)?
>> It is working when I remove .netrc
>> (file-remote-p "/ftp:mafreebox.freebox.fr:")
>> => "/ftp:mafreebox.freebox.fr:"
>>
>> Here the entry in .netrc:
>>
>> machine mafreebox.freebox.fr login freebox password xxxxx
>
> With that entry in .netrc, I'm able to reproduce the problem. No need
> for you to collect further information; I will debug it.
Ok thanks, I give you anyway the output of xbacktrace as Eli asked:
--8<---------------cut here---------------start------------->8---
(gdb) break wrong_type_argument
Breakpoint 3 at 0x532210: file data.c, line 91.
(gdb) run -Q
Starting program: /home/thierry/tmp/emacs-savanah-git/src/emacs -Q
[Thread debugging using libthread_db enabled]
Using host libthread_db library "/lib/x86_64-linux-gnu/libthread_db.so.1".
[New Thread 0x7fffeea50700 (LWP 300)]
[New Thread 0x7fffee24f700 (LWP 301)]
Breakpoint 3, wrong_type_argument (predicate=12059346, value=12006466) at data.c:91
91 {
(gdb) xbacktrace
"byte-code" (0xffffa740)
"eieio-defclass" (0xffffabe0)
"byte-code" (0xffffad50)
"byte-code" (0xffffae40)
"require" (0xffffb2a0)
"byte-code" (0xffffb3c0)
"require" (0xffffb7f0)
"byte-code" (0xffffb960)
"byte-code" (0xffffba50)
"require" (0xffffbeb0)
"byte-code" (0xffffbfd0)
"tramp-file-name-handler" (0xffffc3f0)
"file-remote-p" (0xffffc5d8)
"apply" (0xffffc690)
"let*" (0xffffc8a0)
"tramp-completion-run-real-handler" (0xffffc970)
"if" (0xffffcba0)
"let" (0xffffcd30)
"tramp-completion-file-name-handler" (0xffffceb0)
"file-remote-p" (0xffffcff0)
"eval" (0xffffd258)
"eval-last-sexp-1" (0xffffd430)
"eval-last-sexp" (0xffffd648)
"call-interactively" (0xffffd818)
(gdb)
--8<---------------cut here---------------end--------------->8---
> Best regards, Michael.
>
>
>
>
--
Thierry
Get my Gnupg key:
gpg --keyserver pgp.mit.edu --recv-keys 59F29997
^ permalink raw reply [flat|nested] 16+ messages in thread
* bug#13636: 24.3.50; tramp+ftp broken
2013-02-06 16:47 ` Thierry Volpiatto
2013-02-06 18:36 ` Eli Zaretskii
2013-02-06 18:59 ` Michael Albinus
@ 2013-02-06 20:15 ` Michael Albinus
2013-02-06 21:02 ` Thierry Volpiatto
2 siblings, 1 reply; 16+ messages in thread
From: Michael Albinus @ 2013-02-06 20:15 UTC (permalink / raw)
To: Thierry Volpiatto; +Cc: 13636
Thierry Volpiatto <thierry.volpiatto@gmail.com> writes:
> Hi Michael,
Hi Thierry,
>> What happens, if you move your ~/.netrc away (temporarily)?
> It is working when I remove .netrc
> (file-remote-p "/ftp:mafreebox.freebox.fr:")
> => "/ftp:mafreebox.freebox.fr:"
>
> Here the entry in .netrc:
>
> machine mafreebox.freebox.fr login freebox password xxxxx
Finally, it looks like this error has been introduced with revno
#111057. Tramp/ange-ftp is just a victim, the same error might happen in
other constellations as well.
The following patch cures it for me:
--8<---------------cut here---------------start------------->8---
*** /usr/local/src/emacs/lisp/vc/vc-hooks.el.~111682~ 2013-02-06 21:11:32.205313196 +0100
--- /usr/local/src/emacs/lisp/vc/vc-hooks.el 2013-02-06 20:54:51.324349951 +0100
***************
*** 858,865 ****
(set (make-local-variable 'backup-inhibited) t))
;; Let the backend setup any buffer-local things he needs.
(vc-call-backend backend 'find-file-hook))
! ((let* ((truename (expand-file-name buffer-file-truename))
! (link-type (and (not (equal buffer-file-name truename))
(vc-backend truename))))
(cond ((not link-type) nil) ;Nothing to do.
((eq vc-follow-symlinks nil)
--- 858,867 ----
(set (make-local-variable 'backup-inhibited) t))
;; Let the backend setup any buffer-local things he needs.
(vc-call-backend backend 'find-file-hook))
! ((let* ((truename (and buffer-file-truename
! (expand-file-name buffer-file-truename)))
! (link-type (and truename
! (not (equal buffer-file-name truename))
(vc-backend truename))))
(cond ((not link-type) nil) ;Nothing to do.
((eq vc-follow-symlinks nil)
--8<---------------cut here---------------end--------------->8---
Could you, please, check?
Best regards, Michael.
^ permalink raw reply [flat|nested] 16+ messages in thread
* bug#13636: 24.3.50; tramp+ftp broken
2013-02-06 20:15 ` Michael Albinus
@ 2013-02-06 21:02 ` Thierry Volpiatto
2013-02-07 8:56 ` Michael Albinus
0 siblings, 1 reply; 16+ messages in thread
From: Thierry Volpiatto @ 2013-02-06 21:02 UTC (permalink / raw)
To: Michael Albinus; +Cc: 13636
Hi Michael,
Michael Albinus <michael.albinus@gmx.de> writes:
> Finally, it looks like this error has been introduced with revno
> #111057. Tramp/ange-ftp is just a victim, the same error might happen in
> other constellations as well.
>
> The following patch cures it for me:
>
> Could you, please, check?
It is working with your patch but only when I eval manually the function
you patched.
Also maybe equality should be tested here with file-equal-p ?
--
Thierry
Get my Gnupg key:
gpg --keyserver pgp.mit.edu --recv-keys 59F29997
^ permalink raw reply [flat|nested] 16+ messages in thread
* bug#13636: 24.3.50; tramp+ftp broken
2013-02-06 21:02 ` Thierry Volpiatto
@ 2013-02-07 8:56 ` Michael Albinus
2013-02-08 12:36 ` Thierry Volpiatto
0 siblings, 1 reply; 16+ messages in thread
From: Michael Albinus @ 2013-02-07 8:56 UTC (permalink / raw)
To: Thierry Volpiatto; +Cc: 13636-done
Thierry Volpiatto <thierry.volpiatto@gmail.com> writes:
> Hi Michael,
Hi Thierry,
> It is working with your patch but only when I eval manually the function
> you patched.
vc-hooks.el is dumped into Emacs. You must run make, and restart Emacs.
> Also maybe equality should be tested here with file-equal-p ?
Maybe. But `file-equal-p' calls `file-truename'. I suspect performance
matters, that's why `buffer-file-truename' is used. So it might be a
problem to use `file-equal-p' here.
I've committed my patch to the trunk, closing this bug.
Best regards, Michael.
^ permalink raw reply [flat|nested] 16+ messages in thread
* bug#13636: 24.3.50; tramp+ftp broken
2013-02-07 8:56 ` Michael Albinus
@ 2013-02-08 12:36 ` Thierry Volpiatto
0 siblings, 0 replies; 16+ messages in thread
From: Thierry Volpiatto @ 2013-02-08 12:36 UTC (permalink / raw)
To: Michael Albinus; +Cc: 13636-done
Hi Michael, sorry for late reply.
Michael Albinus <michael.albinus@gmx.de> writes:
> Thierry Volpiatto <thierry.volpiatto@gmail.com> writes:
>
>> Hi Michael,
>
> Hi Thierry,
>
>> It is working with your patch but only when I eval manually the function
>> you patched.
>
> vc-hooks.el is dumped into Emacs. You must run make, and restart Emacs.
Yes I had to bootstrap, for some reasons make was not enough.
>> Also maybe equality should be tested here with file-equal-p ?
>
> Maybe. But `file-equal-p' calls `file-truename'. I suspect performance
> matters, that's why `buffer-file-truename' is used. So it might be a
> problem to use `file-equal-p' here.
Ok.
> I've committed my patch to the trunk, closing this bug.
Ok working fine now,
thanks.
--
Thierry
Get my Gnupg key:
gpg --keyserver pgp.mit.edu --recv-keys 59F29997
^ permalink raw reply [flat|nested] 16+ messages in thread
end of thread, other threads:[~2013-02-08 12:36 UTC | newest]
Thread overview: 16+ messages (download: mbox.gz follow: Atom feed
-- links below jump to the message on this page --
2013-02-06 13:35 bug#13636: 24.3.50; tramp+ftp broken Thierry Volpiatto
2013-02-06 14:26 ` Michael Albinus
2013-02-06 14:42 ` Thierry Volpiatto
2013-02-06 14:54 ` Thierry Volpiatto
2013-02-06 15:39 ` Michael Albinus
2013-02-06 15:58 ` Thierry Volpiatto
2013-02-06 16:14 ` Michael Albinus
2013-02-06 16:47 ` Thierry Volpiatto
2013-02-06 18:36 ` Eli Zaretskii
2013-02-06 19:23 ` Thierry Volpiatto
2013-02-06 18:59 ` Michael Albinus
2013-02-06 19:21 ` Thierry Volpiatto
2013-02-06 20:15 ` Michael Albinus
2013-02-06 21:02 ` Thierry Volpiatto
2013-02-07 8:56 ` Michael Albinus
2013-02-08 12:36 ` Thierry Volpiatto
Code repositories for project(s) associated with this public inbox
https://git.savannah.gnu.org/cgit/emacs.git
This is a public inbox, see mirroring instructions
for how to clone and mirror all data and code used for this inbox;
as well as URLs for read-only IMAP folder(s) and NNTP newsgroup(s).