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: Tue, 4 Oct 2011 18:03:24 -0700 Message-ID: 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 1317776953 29424 80.91.229.12 (5 Oct 2011 01:09:13 GMT) X-Complaints-To: usenet@dough.gmane.org NNTP-Posting-Date: Wed, 5 Oct 2011 01:09:13 +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 03:09:08 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 1RBFyt-00028Q-Pf for geb-bug-gnu-emacs@m.gmane.org; Wed, 05 Oct 2011 03:09:08 +0200 Original-Received: from localhost ([::1]:36287 helo=lists.gnu.org) by lists.gnu.org with esmtp (Exim 4.71) (envelope-from ) id 1RBFyt-00055T-6v for geb-bug-gnu-emacs@m.gmane.org; Tue, 04 Oct 2011 21:09:07 -0400 Original-Received: from eggs.gnu.org ([140.186.70.92]:57134) by lists.gnu.org with esmtp (Exim 4.71) (envelope-from ) id 1RBFyq-00055K-CJ for bug-gnu-emacs@gnu.org; Tue, 04 Oct 2011 21:09:05 -0400 Original-Received: from Debian-exim by eggs.gnu.org with spam-scanned (Exim 4.71) (envelope-from ) id 1RBFyo-0000FE-JT for bug-gnu-emacs@gnu.org; Tue, 04 Oct 2011 21:09:04 -0400 Original-Received: from debbugs.gnu.org ([140.186.70.43]:49529) by eggs.gnu.org with esmtp (Exim 4.71) (envelope-from ) id 1RBFyo-0000F2-Hg for bug-gnu-emacs@gnu.org; Tue, 04 Oct 2011 21:09:02 -0400 Original-Received: from Debian-debbugs by debbugs.gnu.org with local (Exim 4.69) (envelope-from ) id 1RBFyo-0000Nu-3Q for bug-gnu-emacs@gnu.org; Tue, 04 Oct 2011 21:09: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 01:09:01 +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.13177769201451 (code B ref 9669); Wed, 05 Oct 2011 01:09:01 +0000 Original-Received: (at 9669) by debbugs.gnu.org; 5 Oct 2011 01:08:40 +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 1RBFyR-0000NL-Il for submit@debbugs.gnu.org; Tue, 04 Oct 2011 21:08:40 -0400 Original-Received: from acsinet14.oracle.com ([141.146.126.236]) by debbugs.gnu.org with esmtp (Exim 4.69) (envelope-from ) id 1RBFyN-0000N7-Qg for 9669@debbugs.gnu.org; Tue, 04 Oct 2011 21:08:37 -0400 Original-Received: from acsinet15.oracle.com (acsinet15.oracle.com [141.146.126.227]) by acsinet14.oracle.com (Switch-3.4.4/Switch-3.4.1) with ESMTP id p9518T1D013481 (version=TLSv1/SSLv3 cipher=DHE-RSA-AES256-SHA bits=256 verify=OK) for <9669@debbugs.gnu.org>; Wed, 5 Oct 2011 01:08:29 GMT Original-Received: from acsinet22.oracle.com (acsinet22.oracle.com [141.146.126.238]) by acsinet15.oracle.com (Switch-3.4.4/Switch-3.4.4) with ESMTP id p9513Q20017839 (version=TLSv1/SSLv3 cipher=DHE-RSA-AES256-SHA bits=256 verify=OK); Wed, 5 Oct 2011 01:03:28 GMT Original-Received: from acsmt356.oracle.com (acsmt356.oracle.com [141.146.40.156]) by acsinet22.oracle.com (8.14.4+Sun/8.14.4) with ESMTP id p9513Po8000696 (version=TLSv1/SSLv3 cipher=DHE-RSA-AES256-SHA bits=256 verify=NO); Wed, 5 Oct 2011 01:03:26 GMT Original-Received: from abhmt114.oracle.com (abhmt114.oracle.com [141.146.116.66]) by acsmt356.oracle.com (8.12.11.20060308/8.12.11) with ESMTP id p9513K1K020027; Tue, 4 Oct 2011 20:03:20 -0500 Original-Received: from dradamslap1 (/10.159.33.40) by default (Oracle Beehive Gateway v4.0) with ESMTP ; Tue, 04 Oct 2011 18:03:20 -0700 X-Mailer: Microsoft Office Outlook 11 In-reply-to: Thread-Index: AcyC9gS9zNX+fYDEQ82r4pLtWCMChQAAg46Q X-MimeOLE: Produced By Microsoft MimeOLE V6.00.2900.6109 X-Source-IP: acsinet22.oracle.com [141.146.126.238] X-Auth-Type: Internal IP X-CT-RefId: str=0001.0A090207.4E8BACE0.0054:SCFMA922111,ss=1,re=-6.300,fgs=0 X-BeenThere: debbugs-submit@debbugs.gnu.org X-Mailman-Version: 2.1.11 Precedence: list Resent-Date: Tue, 04 Oct 2011 21:09: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:52191 Archived-At: > But it's the part in the "..." that I'm interested in (i.e. in which > context is icicle-redefine-standard-functions called). It is called when you turn on minor mode `icicle-mode'. Debugger entered--entering a function: * symbol-name(comint-dynamic-complete) 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(1) ... > >> For the other function, showing us how it's defined would be a > >> good first step. > > What other function? > The one you said Emacs couldn't discover where it's defined. As I said, there are about 30 such "other functions", and all of their definitions are different. But I guess you are interested in the context of the definition and not the definition itself. All are defined pretty much at the top level of an Icicles file, so they get defined each time the file is loaded. (The defalias for the `old-*' function to restore to is done only on the first load of the file.) E.g.: (unless (fboundp 'old-display-completion-list) (defalias 'old-display-completion-list (symbol-function 'display-completion-list))) (defun icicle-display-completion-list (completions &optional ignored) ...) In this example, `icicle-display-completion-list' would be the file that Emacs thinks is defined in `tramp-compat.el'.