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 15:15:00 -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 1317766543 3870 80.91.229.12 (4 Oct 2011 22:15:43 GMT) X-Complaints-To: usenet@dough.gmane.org NNTP-Posting-Date: Tue, 4 Oct 2011 22:15:43 +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 00:15:37 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 1RBDGz-0006Si-7D for geb-bug-gnu-emacs@m.gmane.org; Wed, 05 Oct 2011 00:15:37 +0200 Original-Received: from localhost ([::1]:42466 helo=lists.gnu.org) by lists.gnu.org with esmtp (Exim 4.71) (envelope-from ) id 1RBDGy-00016T-Ji for geb-bug-gnu-emacs@m.gmane.org; Tue, 04 Oct 2011 18:15:36 -0400 Original-Received: from eggs.gnu.org ([140.186.70.92]:37713) by lists.gnu.org with esmtp (Exim 4.71) (envelope-from ) id 1RBDGu-00016O-UO for bug-gnu-emacs@gnu.org; Tue, 04 Oct 2011 18:15:34 -0400 Original-Received: from Debian-exim by eggs.gnu.org with spam-scanned (Exim 4.71) (envelope-from ) id 1RBDGt-0004KB-Pb for bug-gnu-emacs@gnu.org; Tue, 04 Oct 2011 18:15:32 -0400 Original-Received: from debbugs.gnu.org ([140.186.70.43]:37997) by eggs.gnu.org with esmtp (Exim 4.71) (envelope-from ) id 1RBDGt-0004Je-Ng for bug-gnu-emacs@gnu.org; Tue, 04 Oct 2011 18:15:31 -0400 Original-Received: from Debian-debbugs by debbugs.gnu.org with local (Exim 4.69) (envelope-from ) id 1RBDIM-000639-Cz for bug-gnu-emacs@gnu.org; Tue, 04 Oct 2011 18:17: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: Tue, 04 Oct 2011 22:17: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.131776660223220 (code B ref 9669); Tue, 04 Oct 2011 22:17:02 +0000 Original-Received: (at 9669) by debbugs.gnu.org; 4 Oct 2011 22:16:42 +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 1RBDI2-00062T-Jg for submit@debbugs.gnu.org; Tue, 04 Oct 2011 18:16:42 -0400 Original-Received: from rcsinet15.oracle.com ([148.87.113.117]) by debbugs.gnu.org with esmtp (Exim 4.69) (envelope-from ) id 1RBDI0-00062L-2q for 9669@debbugs.gnu.org; Tue, 04 Oct 2011 18:16:40 -0400 Original-Received: from rtcsinet21.oracle.com (rtcsinet21.oracle.com [66.248.204.29]) by rcsinet15.oracle.com (Switch-3.4.4/Switch-3.4.4) with ESMTP id p94MF5Gq023754 (version=TLSv1/SSLv3 cipher=DHE-RSA-AES256-SHA bits=256 verify=OK); Tue, 4 Oct 2011 22:15:07 GMT Original-Received: from acsmt358.oracle.com (acsmt358.oracle.com [141.146.40.158]) by rtcsinet21.oracle.com (8.14.4+Sun/8.14.4) with ESMTP id p94MF4WT015742 (version=TLSv1/SSLv3 cipher=DHE-RSA-AES256-SHA bits=256 verify=NO); Tue, 4 Oct 2011 22:15:05 GMT Original-Received: from abhmt101.oracle.com (abhmt101.oracle.com [141.146.116.53]) by acsmt358.oracle.com (8.12.11.20060308/8.12.11) with ESMTP id p94MEwa0006537; Tue, 4 Oct 2011 17:14:58 -0500 Original-Received: from dradamslap1 (/10.159.58.205) by default (Oracle Beehive Gateway v4.0) with ESMTP ; Tue, 04 Oct 2011 15:14:58 -0700 X-Mailer: Microsoft Office Outlook 11 In-reply-to: Thread-Index: AcyC3mN3QVTYUJjFSqqjFy8ADXbeJQAA1UuA X-MimeOLE: Produced By Microsoft MimeOLE V6.00.2900.6109 X-Source-IP: rtcsinet21.oracle.com [66.248.204.29] X-CT-RefId: str=0001.0A090208.4E8B856B.0111,ss=1,re=0.000,fgs=0 X-BeenThere: debbugs-submit@debbugs.gnu.org X-Mailman-Version: 2.1.11 Precedence: list Resent-Date: Tue, 04 Oct 2011 18:17: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:52189 Archived-At: > For the defalias, just place a (debug) in front of the > defalias and post the resulting backtrace. Not sure what you mean. This is the backtrace upon entry: (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-redefine-standard-functions)...) ... And this is the return value: Debugger entered--returning value: icicle-comint-dynamic-complete defalias(comint-dynamic-complete icicle-comint-dynamic-complete) (progn (debug) (defalias fn (intern (concat "icicle-" (symbol-name fn))))) Dunno how that would help you. Let me know if you meant something different. > For the other function, showing us how it's defined would be a good > first step. What other function? This is a defalias of a standard Emacs function to an Icicles variant. There are several such defaliases. Each such pair is different. The definitions of the actual functions cannot, I think, be important, since they are all completeley different. But I'm probably misunderstanding you.