From mboxrd@z Thu Jan 1 00:00:00 1970 Path: news.gmane.org!not-for-mail From: "Drew Adams" Newsgroups: gmane.emacs.bugs Subject: bug#9669: 24.0.50; `tramp-compat.el' in *Help* when it doesn't belong (?) Date: Wed, 5 Oct 2011 10:06:55 -0700 Message-ID: <22AF24DE217344A19DDE7B62F90BAA43@us.oracle.com> References: <9FAA3F1BBBDA459E9BAA10031D31F161@us.oracle.com><494CCB7AC74E4D1EA5E29B76ED77CEE7@us.oracle.com> NNTP-Posting-Host: lo.gmane.org Mime-Version: 1.0 Content-Type: text/plain; charset="us-ascii" Content-Transfer-Encoding: 7bit X-Trace: dough.gmane.org 1317834491 17476 80.91.229.12 (5 Oct 2011 17:08:11 GMT) X-Complaints-To: usenet@dough.gmane.org NNTP-Posting-Date: Wed, 5 Oct 2011 17:08:11 +0000 (UTC) Cc: 9669@debbugs.gnu.org To: "'Stefan Monnier'" Original-X-From: bug-gnu-emacs-bounces+geb-bug-gnu-emacs=m.gmane.org@gnu.org Wed Oct 05 19:08:06 2011 Return-path: Envelope-to: geb-bug-gnu-emacs@m.gmane.org Original-Received: from lists.gnu.org ([140.186.70.17]) by lo.gmane.org with esmtp (Exim 4.69) (envelope-from ) id 1RBUwv-0007UD-1M for geb-bug-gnu-emacs@m.gmane.org; Wed, 05 Oct 2011 19:08:05 +0200 Original-Received: from localhost ([::1]:45727 helo=lists.gnu.org) by lists.gnu.org with esmtp (Exim 4.71) (envelope-from ) id 1RBUwu-0007OI-Gj for geb-bug-gnu-emacs@m.gmane.org; Wed, 05 Oct 2011 13:08:04 -0400 Original-Received: from eggs.gnu.org ([140.186.70.92]:51424) by lists.gnu.org with esmtp (Exim 4.71) (envelope-from ) id 1RBUwq-0007NA-Ug for bug-gnu-emacs@gnu.org; Wed, 05 Oct 2011 13:08:02 -0400 Original-Received: from Debian-exim by eggs.gnu.org with spam-scanned (Exim 4.71) (envelope-from ) id 1RBUwo-0004jF-VH for bug-gnu-emacs@gnu.org; Wed, 05 Oct 2011 13:08:00 -0400 Original-Received: from debbugs.gnu.org ([140.186.70.43]:39425) by eggs.gnu.org with esmtp (Exim 4.71) (envelope-from ) id 1RBUwo-0004i8-RE for bug-gnu-emacs@gnu.org; Wed, 05 Oct 2011 13:07:58 -0400 Original-Received: from Debian-debbugs by debbugs.gnu.org with local (Exim 4.69) (envelope-from ) id 1RBUws-000263-BL for bug-gnu-emacs@gnu.org; Wed, 05 Oct 2011 13:08:02 -0400 X-Loop: help-debbugs@gnu.org Resent-From: "Drew Adams" Original-Sender: debbugs-submit-bounces@debbugs.gnu.org Resent-CC: bug-gnu-emacs@gnu.org Resent-Date: Wed, 05 Oct 2011 17:08:02 +0000 Resent-Message-ID: Resent-Sender: help-debbugs@gnu.org X-GNU-PR-Message: followup 9669 X-GNU-PR-Package: emacs X-GNU-PR-Keywords: moreinfo Original-Received: via spool by 9669-submit@debbugs.gnu.org id=B9669.13178344398009 (code B ref 9669); Wed, 05 Oct 2011 17:08:02 +0000 Original-Received: (at 9669) by debbugs.gnu.org; 5 Oct 2011 17:07:19 +0000 Original-Received: from localhost ([127.0.0.1] helo=debbugs.gnu.org) by debbugs.gnu.org with esmtp (Exim 4.69) (envelope-from ) id 1RBUwA-000257-BE for submit@debbugs.gnu.org; Wed, 05 Oct 2011 13:07:19 -0400 Original-Received: from acsinet15.oracle.com ([141.146.126.227]) by debbugs.gnu.org with esmtp (Exim 4.69) (envelope-from ) id 1RBUw6-00024t-Fw for 9669@debbugs.gnu.org; Wed, 05 Oct 2011 13:07:15 -0400 Original-Received: from ucsinet23.oracle.com (ucsinet23.oracle.com [156.151.31.71]) by acsinet15.oracle.com (Switch-3.4.4/Switch-3.4.4) with ESMTP id p95H71lH022940 (version=TLSv1/SSLv3 cipher=DHE-RSA-AES256-SHA bits=256 verify=FAIL); Wed, 5 Oct 2011 17:07:03 GMT Original-Received: from acsmt356.oracle.com (acsmt356.oracle.com [141.146.40.156]) by ucsinet23.oracle.com (8.14.4+Sun/8.14.4) with ESMTP id p95H70LB022447 (version=TLSv1/SSLv3 cipher=DHE-RSA-AES256-SHA bits=256 verify=NO); Wed, 5 Oct 2011 17:07:01 GMT Original-Received: from abhmt111.oracle.com (abhmt111.oracle.com [141.146.116.63]) by acsmt356.oracle.com (8.12.11.20060308/8.12.11) with ESMTP id p95H6tsN004994; Wed, 5 Oct 2011 12:06:55 -0500 Original-Received: from dradamslap1 (/130.35.178.194) by default (Oracle Beehive Gateway v4.0) with ESMTP ; Wed, 05 Oct 2011 10:06:55 -0700 X-Mailer: Microsoft Office Outlook 11 In-Reply-To: Thread-Index: AcyDfL0usKaV4hmUTb20YEaLVqL1IAAAaLlg X-MimeOLE: Produced By Microsoft MimeOLE V6.00.2900.6109 X-Source-IP: ucsinet23.oracle.com [156.151.31.71] X-CT-RefId: str=0001.0A020205.4E8C8EB8.0051,ss=1,re=-2.300,fgs=0 X-BeenThere: debbugs-submit@debbugs.gnu.org X-Mailman-Version: 2.1.11 Precedence: list Resent-Date: Wed, 05 Oct 2011 13:08:02 -0400 X-detected-operating-system: by eggs.gnu.org: GNU/Linux 2.6 (newer, 1) X-Received-From: 140.186.70.43 X-BeenThere: bug-gnu-emacs@gnu.org List-Id: "Bug reports for GNU Emacs, the Swiss army knife of text editors" List-Unsubscribe: , List-Archive: List-Post: List-Help: List-Subscribe: , Errors-To: bug-gnu-emacs-bounces+geb-bug-gnu-emacs=m.gmane.org@gnu.org Original-Sender: bug-gnu-emacs-bounces+geb-bug-gnu-emacs=m.gmane.org@gnu.org Xref: news.gmane.org gmane.emacs.bugs:52219 Archived-At: > > It is called when you turn on minor mode `icicle-mode'. > > icy-mode(1) > > I'm not sure what that backtrace was about (the tip was different from > the other one, for example), I had hit `d' once, thinking that the info shown after `d' would be more helpful. That is the only difference from the previous backtrace I sent. > and it still doesn't seem to include the beginning. As I've tried to say a couple times now, it does not matter what calls `icy-mode' (aka `icicle-mode') to turn on Icicle mode (the result is the same). That's why I trimmed off the actual call to it. > Basically, I'd expect this backtrace to have something to do > with Tramp, otherwise I have no clue how the defalias gets > attributed to tramp-compat.el. No, there is nothing about "tramp" in the backtrace. I already looked for that. I have no clue either. I've included the entire backtrace again (below), this time as soon as the debugger is entered, rather than after hitting `d' once, and this time including the call to `execute-extended-command' that invokes `icy-mode' to enter Icicle mode. > > In this example, `icicle-display-completion-list' would be the file > > that Emacs thinks is defined in `tramp-compat.el'. > > Huh? You said Emacs told you: > icicle-read-char-by-name is a compiled Lisp function. > I.e. the actual function has no associated file (rather than being > associated to tramp-compat.el), while the defalias is associated with > tramp-compat.el. Correct. That's what I meant, but I misspoke. In that example, `icicle-display-completion-list' is the function that Emacs thinks has no associated file, and `display-completion-list' is the function Emacs thinks is defined in `tramp-compat.el'. In case it helps, after toggling Icicle mode OFF, this is what the help buffer says: read-char-by-name is an alias for `old-read-char-by-name' in `tramp-compat.el'. Again, that's correct except for the file name. But this time, if you click the function name it _correctly_ shows this: old-read-char-by-name is a compiled Lisp function in `icicles-fn.el'. So the second problem (no file name) does not occur in this case. But the first problem (file = tramp-compat.el) is still there. And yes, this is repeatable (turning on/off Icicle mode). HTH. -------------- Debugger entered: nil (progn (debug) (defalias fn (intern (concat "icicle-" (symbol-name fn))))) (if (fboundp (intern (concat "old-" (symbol-name fn)))) (progn (debug) (defalias fn (intern (concat "icicle-" (symbol-name fn)))))) (when (fboundp (intern (concat "old-" (symbol-name fn)))) (debug) (defalias fn (intern (concat "icicle-" (symbol-name fn))))) (while --cl-dolist-temp-- (setq fn (car --cl-dolist-temp--)) (when (fboundp (intern (concat "old-" (symbol-name fn)))) (debug) (defalias fn (intern (concat "icicle-" (symbol-name fn))))) (setq --cl-dolist-temp-- (cdr --cl-dolist-temp--))) (let ((--cl-dolist-temp-- icicle-functions-to-redefine) fn) (while --cl-dolist-temp-- (setq fn (car --cl-dolist-temp--)) (when (fboundp (intern (concat "old-" (symbol-name fn)))) (debug) (defalias fn (intern (concat "icicle-" (symbol-name fn))))) (setq --cl-dolist-temp-- (cdr --cl-dolist-temp--)))) (catch (quote --cl-block-nil--) (let ((--cl-dolist-temp-- icicle-functions-to-redefine) fn) (while --cl-dolist-temp-- (setq fn (car --cl-dolist-temp--)) (when (fboundp (intern (concat "old-" (symbol-name fn)))) (debug) (defalias fn (intern (concat "icicle-" (symbol-name fn))))) (setq --cl-dolist-temp-- (cdr --cl-dolist-temp--))))) (cl-block-wrapper (catch (quote --cl-block-nil--) (let ((--cl-dolist-temp-- icicle-functions-to-redefine) fn) (while --cl-dolist-temp-- (setq fn (car --cl-dolist-temp--)) (when (fboundp (intern (concat "old-" ...))) (debug) (defalias fn (intern (concat "icicle-" ...)))) (setq --cl-dolist-temp-- (cdr --cl-dolist-temp--)))))) (block nil (let ((--cl-dolist-temp-- icicle-functions-to-redefine) fn) (while --cl-dolist-temp-- (setq fn (car --cl-dolist-temp--)) (when (fboundp (intern (concat "old-" (symbol-name fn)))) (debug) (defalias fn (intern (concat "icicle-" (symbol-name fn))))) (setq --cl-dolist-temp-- (cdr --cl-dolist-temp--))))) (dolist (fn icicle-functions-to-redefine) (when (fboundp (intern (concat "old-" (symbol-name fn)))) (debug) (defalias fn (intern (concat "icicle-" (symbol-name fn)))))) (progn (dolist (fn icicle-functions-to-redefine) (when (fboundp (intern (concat "old-" (symbol-name fn)))) (debug) (defalias fn (intern (concat "icicle-" (symbol-name fn))))))) (if (fboundp (quote icicle-completing-read)) (progn (dolist (fn icicle-functions-to-redefine) (when (fboundp (intern (concat "old-" (symbol-name fn)))) (debug) (defalias fn (intern (concat "icicle-" (symbol-name fn)))))))) (when (fboundp (quote icicle-completing-read)) (dolist (fn icicle-functions-to-redefine) (when (fboundp (intern (concat "old-" (symbol-name fn)))) (debug) (defalias fn (intern (concat "icicle-" (symbol-name fn))))))) icicle-redefine-standard-functions() (cond (icicle-mode (icicle-define-icicle-maps) (icicle-bind-other-keymap-keys) (add-hook (quote minibuffer-setup-hook) (quote icicle-minibuffer-setup)) (add-hook (quote minibuffer-exit-hook) (quote icicle-cancel-Help-redirection)) (add-hook (quote minibuffer-exit-hook) (quote icicle-restore-region-face)) (add-hook (quote minibuffer-exit-hook) (quote icicle-unhighlight-lighter)) (add-hook (quote icicle-post-command-hook) (quote icicle-activate-mark) (quote append)) (add-hook (quote completion-setup-hook) (quote icicle-set-calling-cmd) (quote append)) (when icicle-customize-save-flag (add-hook (quote kill-emacs-hook) (quote icicle-command-abbrev-save))) (add-hook (quote comint-mode-hook) (quote icicle-comint-hook-fn)) (add-hook (quote compilation-mode-hook) (quote icicle-compilation-hook-fn)) (add-hook (quote compilation-minor-mode-hook) (quote icicle-compilation-hook-fn)) (icicle-undo-std-completion-faces) (icicle-redefine-std-completion-fns) (icicle-redefine-standard-functions) (icicle-redefine-standard-options) (when (ad-find-some-advice (quote describe-face) (quote before) (quote icicle-respect-WYSIWYG)) (ad-enable-advice (quote describe-face) (quote before) (quote icicle-respect-WYSIWYG))) (when (fboundp (quote minibuffer-depth-indicate-mode)) (minibuffer-depth-indicate-mode 99)) (if icicle-menu-items-to-history-flag (add-hook (quote pre-command-hook) (quote icicle-add-menu-item-to-cmd-history)) (remove-hook (quote pre-command-hook) (quote icicle-add-menu-item-to-cmd-history))) (when (> emacs-major-version 22) (when icicle-populate-interactive-history-flag (ad-enable-advice (quote call-interactively) (quote after) (quote icicle-save-to-history))) (ad-activate (quote call-interactively))) (dolist (fn icicle-inhibit-advice-functions) (when (and (fboundp fn) (ad-is-active fn)) (push (cons fn (ad-copy-advice-info fn)) icicle-advice-info-list) (ad-deactivate fn)))) (t (makunbound (quote icicle-mode-map)) (icicle-restore-other-keymap-keys) (remove-hook (quote minibuffer-setup-hook) (quote icicle-minibuffer-setup)) (remove-hook (quote minibuffer-exit-hook) (quote icicle-cancel-Help-redirection)) (remove-hook (quote minibuffer-exit-hook) (quote icicle-restore-region-face)) (remove-hook (quote icicle-post-command-hook) (quote icicle-activate-mark)) (remove-hook (quote pre-command-hook) (quote icicle-top-level-prep)) (remove-hook (quote pre-command-hook) (quote icicle-run-icicle-pre-command-hook) t) (remove-hook (quote post-command-hook) (quote icicle-run-icicle-post-command-hook) t) (remove-hook (quote completion-setup-hook) (quote icicle-set-calling-cmd)) (remove-hook (quote kill-emacs-hook) (quote icicle-command-abbrev-save)) (remove-hook (quote comint-mode-hook) (quote icicle-comint-hook-fn)) (remove-hook (quote compilation-mode-hook) (quote icicle-compilation-hook-fn)) (remove-hook (quote compilation-minor-mode-hook) (quote icicle-compilation-hook-fn)) (icicle-restore-std-completion-fns) (icicle-restore-standard-functions) (icicle-restore-standard-options) (when (ad-find-some-advice (quote describe-face) (quote before) (quote icicle-respect-WYSIWYG)) (ad-disable-advice (quote describe-face) (quote before) (quote icicle-respect-WYSIWYG))) (when (fboundp (quote minibuffer-depth-indicate-mode)) (minibuffer-depth-indicate-mode -99)) (remove-hook (quote pre-command-hook) (quote icicle-add-menu-item-to-cmd-history)) (when (> emacs-major-version 22) (ad-disable-advice (quote call-interactively) (quote after) (quote icicle-save-to-history)) (ad-activate (quote call-interactively))) (dolist (fn icicle-inhibit-advice-functions) (let ((info (memq fn icicle-advice-info-list))) (when (and (fboundp fn) info) (ad-set-advice-info fn info) (when (ad-is-active fn) (ad-activate fn))))))) (let ((last-message (current-message))) (setq icicle-mode (if (eq arg (quote toggle)) (not icicle-mode) (> (prefix-numeric-value arg) 0))) (cond (icicle-mode (icicle-define-icicle-maps) (icicle-bind-other-keymap-keys) (add-hook (quote minibuffer-setup-hook) (quote icicle-minibuffer-setup)) (add-hook (quote minibuffer-exit-hook) (quote icicle-cancel-Help-redirection)) (add-hook (quote minibuffer-exit-hook) (quote icicle-restore-region-face)) (add-hook (quote minibuffer-exit-hook) (quote icicle-unhighlight-lighter)) (add-hook (quote icicle-post-command-hook) (quote icicle-activate-mark) (quote append)) (add-hook (quote completion-setup-hook) (quote icicle-set-calling-cmd) (quote append)) (when icicle-customize-save-flag (add-hook (quote kill-emacs-hook) (quote icicle-command-abbrev-save))) (add-hook (quote comint-mode-hook) (quote icicle-comint-hook-fn)) (add-hook (quote compilation-mode-hook) (quote icicle-compilation-hook-fn)) (add-hook (quote compilation-minor-mode-hook) (quote icicle-compilation-hook-fn)) (icicle-undo-std-completion-faces) (icicle-redefine-std-completion-fns) (icicle-redefine-standard-functions) (icicle-redefine-standard-options) (when (ad-find-some-advice (quote describe-face) (quote before) (quote icicle-respect-WYSIWYG)) (ad-enable-advice (quote describe-face) (quote before) (quote icicle-respect-WYSIWYG))) (when (fboundp (quote minibuffer-depth-indicate-mode)) (minibuffer-depth-indicate-mode 99)) (if icicle-menu-items-to-history-flag (add-hook (quote pre-command-hook) (quote icicle-add-menu-item-to-cmd-history)) (remove-hook (quote pre-command-hook) (quote icicle-add-menu-item-to-cmd-history))) (when (> emacs-major-version 22) (when icicle-populate-interactive-history-flag (ad-enable-advice (quote call-interactively) (quote after) (quote icicle-save-to-history))) (ad-activate (quote call-interactively))) (dolist (fn icicle-inhibit-advice-functions) (when (and (fboundp fn) (ad-is-active fn)) (push (cons fn (ad-copy-advice-info fn)) icicle-advice-info-list) (ad-deactivate fn)))) (t (makunbound (quote icicle-mode-map)) (icicle-restore-other-keymap-keys) (remove-hook (quote minibuffer-setup-hook) (quote icicle-minibuffer-setup)) (remove-hook (quote minibuffer-exit-hook) (quote icicle-cancel-Help-redirection)) (remove-hook (quote minibuffer-exit-hook) (quote icicle-restore-region-face)) (remove-hook (quote icicle-post-command-hook) (quote icicle-activate-mark)) (remove-hook (quote pre-command-hook) (quote icicle-top-level-prep)) (remove-hook (quote pre-command-hook) (quote icicle-run-icicle-pre-command-hook) t) (remove-hook (quote post-command-hook) (quote icicle-run-icicle-post-command-hook) t) (remove-hook (quote completion-setup-hook) (quote icicle-set-calling-cmd)) (remove-hook (quote kill-emacs-hook) (quote icicle-command-abbrev-save)) (remove-hook (quote comint-mode-hook) (quote icicle-comint-hook-fn)) (remove-hook (quote compilation-mode-hook) (quote icicle-compilation-hook-fn)) (remove-hook (quote compilation-minor-mode-hook) (quote icicle-compilation-hook-fn)) (icicle-restore-std-completion-fns) (icicle-restore-standard-functions) (icicle-restore-standard-options) (when (ad-find-some-advice (quote describe-face) (quote before) (quote icicle-respect-WYSIWYG)) (ad-disable-advice (quote describe-face) (quote before) (quote icicle-respect-WYSIWYG))) (when (fboundp (quote minibuffer-depth-indicate-mode)) (minibuffer-depth-indicate-mode -99)) (remove-hook (quote pre-command-hook) (quote icicle-add-menu-item-to-cmd-history)) (when (> emacs-major-version 22) (ad-disable-advice (quote call-interactively) (quote after) (quote icicle-save-to-history)) (ad-activate (quote call-interactively))) (dolist (fn icicle-inhibit-advice-functions) (let ((info (memq fn icicle-advice-info-list))) (when (and (fboundp fn) info) (ad-set-advice-info fn info) (when (ad-is-active fn) (ad-activate fn))))))) (unless (eq icicle-guess-commands-in-path (quote load)) (setq icicle-shell-command-candidates-cache nil)) (message "Turning %s Icicle mode..." (if icicle-mode "ON" "OFF")) (icicle-define-minibuffer-maps icicle-mode) (run-hooks (quote icicle-mode-hook)) (message "Turning %s Icicle mode...done" (if icicle-mode "ON" "OFF")) (run-hooks (quote icicle-mode-hook) (if icicle-mode (quote icicle-mode-on-hook) (quote icicle-mode-off-hook))) (if (called-interactively-p (quote any)) (progn (customize-mark-as-set (quote icicle-mode)) (unless (and (current-message) (not (equal last-message (current-message)))) (message "Icicle mode %sabled" (if icicle-mode "en" "dis")))))) icy-mode(toggle) call-interactively(icy-mode t nil) execute-extended-command(nil) call-interactively(execute-extended-command nil nil)