From unknown Sat Jun 21 02:55:55 2025 Content-Disposition: inline Content-Transfer-Encoding: quoted-printable MIME-Version: 1.0 X-Mailer: MIME-tools 5.509 (Entity 5.509) Content-Type: text/plain; charset=utf-8 From: bug#8206 <8206@debbugs.gnu.org> To: bug#8206 <8206@debbugs.gnu.org> Subject: Status: 24.0.50; flet breaks advised functions Reply-To: bug#8206 <8206@debbugs.gnu.org> Date: Sat, 21 Jun 2025 09:55:55 +0000 retitle 8206 24.0.50; flet breaks advised functions reassign 8206 emacs submitter 8206 Andreas Politz severity 8206 normal thanks From debbugs-submit-bounces@debbugs.gnu.org Tue Mar 08 15:29:40 2011 Received: (at submit) by debbugs.gnu.org; 8 Mar 2011 20:29:40 +0000 Received: from localhost ([127.0.0.1] helo=debbugs.gnu.org) by debbugs.gnu.org with esmtp (Exim 4.69) (envelope-from ) id 1Px3XG-0005Bb-W8 for submit@debbugs.gnu.org; Tue, 08 Mar 2011 15:29:40 -0500 Received: from eggs.gnu.org ([140.186.70.92]) by debbugs.gnu.org with esmtp (Exim 4.69) (envelope-from ) id 1Px3XE-0005BP-4D for submit@debbugs.gnu.org; Tue, 08 Mar 2011 15:29:37 -0500 Received: from Debian-exim by eggs.gnu.org with spam-scanned (Exim 4.71) (envelope-from ) id 1Px3X6-0000vQ-Df for submit@debbugs.gnu.org; Tue, 08 Mar 2011 15:29:31 -0500 X-Spam-Checker-Version: SpamAssassin 3.3.1 (2010-03-16) on eggs.gnu.org X-Spam-Level: X-Spam-Status: No, score=-4.2 required=5.0 tests=BAYES_00,RCVD_IN_DNSWL_MED, T_DKIM_INVALID,T_RP_MATCHES_RCVD autolearn=unavailable version=3.3.1 Received: from lists.gnu.org ([199.232.76.165]:34498) by eggs.gnu.org with esmtp (Exim 4.71) (envelope-from ) id 1Px3X6-0000vK-9D for submit@debbugs.gnu.org; Tue, 08 Mar 2011 15:29:28 -0500 Received: from [140.186.70.92] (port=53057 helo=eggs.gnu.org) by lists.gnu.org with esmtp (Exim 4.43) id 1Px3X4-0003Jq-5J for bug-gnu-emacs@gnu.org; Tue, 08 Mar 2011 15:29:28 -0500 Received: from Debian-exim by eggs.gnu.org with spam-scanned (Exim 4.71) (envelope-from ) id 1Px3X1-0000td-Ru for bug-gnu-emacs@gnu.org; Tue, 08 Mar 2011 15:29:26 -0500 Received: from gateway-b.fh-trier.de ([143.93.54.182]:45330) by eggs.gnu.org with esmtp (Exim 4.71) (envelope-from ) id 1Px3X1-0000qx-74 for bug-gnu-emacs@gnu.org; Tue, 08 Mar 2011 15:29:23 -0500 Received: from raven (dslb-084-059-101-103.pools.arcor-ip.net [84.59.101.103]) (Authenticated sender: politza) by gateway-b.fh-trier.de (Postfix) with ESMTP id 7A15417B44E for ; Tue, 8 Mar 2011 21:28:51 +0100 (CET) DKIM-Signature: v=1; a=rsa-sha1; c=simple/simple; d=fh-trier.de; s=default; t=1299616131; bh=hlaibV0DzsPMyPbeutHtj1TsyTY=; h=From:To:Subject: Date:Message-ID:MIME-Version:Content-Type; b=cvSkCCAoJxkh+jbNMQc23 iyW0Bg/tWnLUqDhI2HTDCkxfQ8cCN0U7T06cfFZq/YVfDGGv8g0Wcf8B5UIFY96+TnO CoPJuofpak1VGoIAg8Hddys04MOHIKHEVVs0qAEqq8+BrXp3S7HmNJBR9NPL4BXrcDl xgt7pVm45NCn3H4M= From: Andreas Politz To: bug-gnu-emacs@gnu.org Subject: 24.0.50; flet breaks advised functions Date: Tue, 08 Mar 2011 21:28:50 +0100 Message-ID: <87bp1lnypp.fsf@fh-trier.de> User-Agent: Gnus/5.13 (Gnus v5.13) Emacs/24.0.50 (gnu/linux) MIME-Version: 1.0 Content-Type: text/plain; charset=us-ascii X-Virus-Scanned: by Amavisd-new + McAfee uvscan + ClamAV [Rechenzentrum FH-Trier (r/ft)] X-detected-operating-system: by eggs.gnu.org: GNU/Linux 2.6 (newer, 3) X-detected-operating-system: by eggs.gnu.org: GNU/Linux 2.6 (newer, 2) X-Received-From: 199.232.76.165 X-Spam-Score: -5.9 (-----) X-Debbugs-Envelope-To: submit X-BeenThere: debbugs-submit@debbugs.gnu.org X-Mailman-Version: 2.1.11 Precedence: list List-Id: List-Unsubscribe: , List-Archive: List-Post: List-Help: List-Subscribe: , Sender: debbugs-submit-bounces@debbugs.gnu.org Errors-To: debbugs-submit-bounces@debbugs.gnu.org X-Spam-Score: -5.9 (-----) I just discovered that `flet' does not work with (at least some form of) advised functions, such that it doesn't restore the original function. The underlying problem is demonstrated by the following code and seems to date back to at least Version 22.3.1 . (progn (defun foo () 'defun) (defadvice foo (around foo activate) ad-do-it) (setq letf-save (symbol-function ;;'ad-Orig-foo 'foo )) (fset 'foo (lambda nil 'flet)) (fset 'foo letf-save) (foo)) => flet -ap In GNU Emacs 24.0.50.2 (x86_64-unknown-linux-gnu, GTK+ Version 2.20.1) of 2010-06-13 on raven Windowing system distributor `The X.Org Foundation', version 11.0.10707000 Important settings: value of $LC_ALL: C value of $LC_COLLATE: nil value of $LC_CTYPE: nil value of $LC_MESSAGES: nil value of $LC_MONETARY: nil value of $LC_NUMERIC: nil value of $LC_TIME: nil value of $LANG: en_US.UTF-8 value of $XMODIFIERS: nil locale-coding-system: utf-8-unix default enable-multibyte-characters: t Major mode: Article Minor modes in effect: shell-dirtrack-mode: t yas/global-mode: t ido-hacks-mode: t easy-repeat-mode: t recentf-mode: t window-numbering-mode: t server-mode: t show-paren-mode: t global-hi-lock-mode: t display-time-mode: t savehist-mode: t tooltip-mode: t mouse-wheel-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: o l u m n C-. c E C-. b C-x o C-s e v a l C-s C-s C-s C-g C-s p r i n M-1 C-x b C-x b C-. b C-x b M-p C-M-\ C-M-b M-f M-f C-M-f C-e C-n C-M-u C-M-u C-j C-M-f C-f C-j C-e C-p C-p C-p M-f M-f M-b M-d M-d M-d f i l l - c o l u m n C-x C-b g C-r m i n i C-g C-x b M-p C-r b u C-r C-r C-r M-f - C-n M-p C-x b E C-n C-n C-n C-n C-n C-n C-p C-p C-p C-p C-p C-p M-p M-p C-x b M-p M-p M-: M-: C-g M-p M-x M-x M-x C-g C-g C-g M-p M-x M-x M-x M-x C-g M-p C-x b m c C-n M-f M-f M-f M-f M-f M-f M-f M-b M-x f f a p - l i t C-g C-M-x M-x f f a p - l i C-h t C-g M-2 C-x b m i n i M-h c o m p l e C-, b q M-1 C-x C-f ~ / . b a s h r C-e C-j e c h o SPC ' 1 1 . 3 . SPC M a m a ' C-x C-s C-, s g C-n M-2 C-v C-l M-v M-1 q M-2 C-n C-n C-n C-SPC M-} M-} M-} M-} M-w M-x e m a c s M-h r e p o r t b u g C-g C-. f f s e t M-x M-p Recent messages: Reordering buffer... Done Fetching headers for nntp+news.fh-trier:gnu.emacs.help...done Generating summary...done Fetching articles for nntp+news.fh-trier:gnu.emacs.help... Auto-saving...done Mark set Quit Starting new Ispell process [en] ... Checking spelling of ADVISE... ADVISE is correct Load-path shadows: /usr/share/emacs23/site-lisp/emacs-goodies-el/map-lines hides /usr/share/emacs/site-lisp/emacs-goodies-el/map-lines /usr/share/emacs23/site-lisp/emacs-goodies-el/joc-toggle-buffer hides /usr/share/emacs/site-lisp/emacs-goodies-el/joc-toggle-buffer /usr/share/emacs23/site-lisp/emacs-goodies-el/ctypes hides /usr/share/emacs/site-lisp/emacs-goodies-el/ctypes /usr/share/emacs23/site-lisp/emacs-goodies-el/align-string hides /usr/share/emacs/site-lisp/emacs-goodies-el/align-string /usr/share/emacs23/site-lisp/emacs-goodies-el/session hides /usr/share/emacs/site-lisp/emacs-goodies-el/session /usr/share/emacs23/site-lisp/emacs-goodies-el/all hides /usr/share/emacs/site-lisp/emacs-goodies-el/all /usr/share/emacs23/site-lisp/emacs-goodies-el/auto-fill-inhibit hides /usr/share/emacs/site-lisp/emacs-goodies-el/auto-fill-inhibit /usr/share/emacs23/site-lisp/emacs-goodies-el/tlc hides /usr/share/emacs/site-lisp/emacs-goodies-el/tlc /usr/share/emacs23/site-lisp/emacs-goodies-el/floatbg hides /usr/share/emacs/site-lisp/emacs-goodies-el/floatbg /usr/share/emacs23/site-lisp/emacs-goodies-el/upstart-mode hides /usr/share/emacs/site-lisp/emacs-goodies-el/upstart-mode /usr/share/emacs23/site-lisp/emacs-goodies-el/coffee hides /usr/share/emacs/site-lisp/emacs-goodies-el/coffee /usr/share/emacs23/site-lisp/emacs-goodies-el/pack-windows hides /usr/share/emacs/site-lisp/emacs-goodies-el/pack-windows /usr/share/emacs23/site-lisp/emacs-goodies-el/protocols hides /usr/share/emacs/site-lisp/emacs-goodies-el/protocols /usr/share/emacs23/site-lisp/emacs-goodies-el/minibuffer-complete-cycle hides /usr/share/emacs/site-lisp/emacs-goodies-el/minibuffer-complete-cycle /usr/share/emacs23/site-lisp/emacs-goodies-el/twiddle hides /usr/share/emacs/site-lisp/emacs-goodies-el/twiddle /usr/share/emacs23/site-lisp/emacs-goodies-el/toggle-option hides /usr/share/emacs/site-lisp/emacs-goodies-el/toggle-option /usr/share/emacs23/site-lisp/emacs-goodies-el/emacs-goodies-el hides /usr/share/emacs/site-lisp/emacs-goodies-el/emacs-goodies-el /usr/share/emacs23/site-lisp/emacs-goodies-el/framepop hides /usr/share/emacs/site-lisp/emacs-goodies-el/framepop /usr/share/emacs23/site-lisp/emacs-goodies-el/muttrc-mode hides /usr/share/emacs/site-lisp/emacs-goodies-el/muttrc-mode /usr/share/emacs23/site-lisp/emacs-goodies-el/lcomp hides /usr/share/emacs/site-lisp/emacs-goodies-el/lcomp /usr/share/emacs23/site-lisp/emacs-goodies-el/clipper hides /usr/share/emacs/site-lisp/emacs-goodies-el/clipper /usr/share/emacs23/site-lisp/emacs-goodies-el/slang-mode hides /usr/share/emacs/site-lisp/emacs-goodies-el/slang-mode /usr/share/emacs23/site-lisp/emacs-goodies-el/thinks hides /usr/share/emacs/site-lisp/emacs-goodies-el/thinks /usr/share/emacs23/site-lisp/emacs-goodies-el/marker-visit hides /usr/share/emacs/site-lisp/emacs-goodies-el/marker-visit /usr/share/emacs23/site-lisp/emacs-goodies-el/graphviz-dot-mode hides /usr/share/emacs/site-lisp/emacs-goodies-el/graphviz-dot-mode /usr/share/emacs23/site-lisp/emacs-goodies-el/home-end hides /usr/share/emacs/site-lisp/emacs-goodies-el/home-end /usr/share/emacs23/site-lisp/emacs-goodies-el/mutt-alias hides /usr/share/emacs/site-lisp/emacs-goodies-el/mutt-alias /usr/share/emacs23/site-lisp/emacs-goodies-el/shell-command hides /usr/share/emacs/site-lisp/emacs-goodies-el/shell-command /usr/share/emacs23/site-lisp/emacs-goodies-el/pp-c-l hides /usr/share/emacs/site-lisp/emacs-goodies-el/pp-c-l /usr/share/emacs23/site-lisp/emacs-goodies-el/ff-paths hides /usr/share/emacs/site-lisp/emacs-goodies-el/ff-paths /usr/share/emacs23/site-lisp/emacs-goodies-el/htmlize hides /usr/share/emacs/site-lisp/emacs-goodies-el/htmlize /usr/share/emacs23/site-lisp/emacs-goodies-el/setnu hides /usr/share/emacs/site-lisp/emacs-goodies-el/setnu /usr/share/emacs23/site-lisp/emacs-goodies-el/bar-cursor hides /usr/share/emacs/site-lisp/emacs-goodies-el/bar-cursor /usr/share/emacs23/site-lisp/emacs-goodies-el/browse-kill-ring hides /usr/share/emacs/site-lisp/emacs-goodies-el/browse-kill-ring /usr/share/emacs23/site-lisp/emacs-goodies-el/bm hides /usr/share/emacs/site-lisp/emacs-goodies-el/bm /usr/share/emacs23/site-lisp/emacs-goodies-el/markdown-mode hides /usr/share/emacs/site-lisp/emacs-goodies-el/markdown-mode /usr/share/emacs23/site-lisp/emacs-goodies-el/pod-mode hides /usr/share/emacs/site-lisp/emacs-goodies-el/pod-mode /usr/share/emacs23/site-lisp/emacs-goodies-el/maplev hides /usr/share/emacs/site-lisp/emacs-goodies-el/maplev /usr/share/emacs23/site-lisp/emacs-goodies-el/todoo hides /usr/share/emacs/site-lisp/emacs-goodies-el/todoo /usr/share/emacs23/site-lisp/emacs-goodies-el/minibuf-electric hides /usr/share/emacs/site-lisp/emacs-goodies-el/minibuf-electric /usr/share/emacs23/site-lisp/emacs-goodies-el/sys-apropos hides /usr/share/emacs/site-lisp/emacs-goodies-el/sys-apropos /usr/share/emacs23/site-lisp/emacs-goodies-el/xrdb-mode hides /usr/share/emacs/site-lisp/emacs-goodies-el/xrdb-mode /usr/share/emacs23/site-lisp/emacs-goodies-el/under hides /usr/share/emacs/site-lisp/emacs-goodies-el/under /usr/share/emacs23/site-lisp/emacs-goodies-el/highlight-completion hides /usr/share/emacs/site-lisp/emacs-goodies-el/highlight-completion /usr/share/emacs23/site-lisp/emacs-goodies-el/highlight-beyond-fill-column hides /usr/share/emacs/site-lisp/emacs-goodies-el/highlight-beyond-fill-column /usr/share/emacs23/site-lisp/emacs-goodies-el/egocentric hides /usr/share/emacs/site-lisp/emacs-goodies-el/egocentric /usr/share/emacs23/site-lisp/emacs-goodies-el/projects hides /usr/share/emacs/site-lisp/emacs-goodies-el/projects /usr/share/emacs23/site-lisp/emacs-goodies-el/cwebm hides /usr/share/emacs/site-lisp/emacs-goodies-el/cwebm /usr/share/emacs23/site-lisp/emacs-goodies-el/edit-env hides /usr/share/emacs/site-lisp/emacs-goodies-el/edit-env /usr/share/emacs23/site-lisp/emacs-goodies-el/miniedit hides /usr/share/emacs/site-lisp/emacs-goodies-el/miniedit /usr/share/emacs23/site-lisp/emacs-goodies-el/services hides /usr/share/emacs/site-lisp/emacs-goodies-el/services /usr/share/emacs23/site-lisp/emacs-goodies-el/perldoc hides /usr/share/emacs/site-lisp/emacs-goodies-el/perldoc /usr/share/emacs23/site-lisp/emacs-goodies-el/csv-mode hides /usr/share/emacs/site-lisp/emacs-goodies-el/csv-mode /usr/share/emacs23/site-lisp/emacs-goodies-el/joc-toggle-case hides /usr/share/emacs/site-lisp/emacs-goodies-el/joc-toggle-case /usr/share/emacs23/site-lisp/emacs-goodies-el/quack hides /usr/share/emacs/site-lisp/emacs-goodies-el/quack /usr/share/emacs23/site-lisp/emacs-goodies-el/boxquote hides /usr/share/emacs/site-lisp/emacs-goodies-el/boxquote /usr/share/emacs23/site-lisp/emacs-goodies-el/rfcview hides /usr/share/emacs/site-lisp/emacs-goodies-el/rfcview /usr/share/emacs23/site-lisp/emacs-goodies-el/initsplit hides /usr/share/emacs/site-lisp/emacs-goodies-el/initsplit /usr/share/emacs23/site-lisp/emacs-goodies-el/folding hides /usr/share/emacs/site-lisp/emacs-goodies-el/folding /usr/share/emacs23/site-lisp/emacs-goodies-el/keydef hides /usr/share/emacs/site-lisp/emacs-goodies-el/keydef /usr/share/emacs23/site-lisp/emacs-goodies-el/emacs-goodies-custom hides /usr/share/emacs/site-lisp/emacs-goodies-el/emacs-goodies-custom /usr/share/emacs23/site-lisp/emacs-goodies-el/df hides /usr/share/emacs/site-lisp/emacs-goodies-el/df /usr/share/emacs23/site-lisp/emacs-goodies-el/filladapt hides /usr/share/emacs/site-lisp/emacs-goodies-el/filladapt /usr/share/emacs23/site-lisp/emacs-goodies-el/diminish hides /usr/share/emacs/site-lisp/emacs-goodies-el/diminish /usr/share/emacs23/site-lisp/emacs-goodies-el/color-theme_seldefcustom hides /usr/share/emacs/site-lisp/emacs-goodies-el/color-theme_seldefcustom /usr/share/emacs23/site-lisp/emacs-goodies-el/obfusurl hides /usr/share/emacs/site-lisp/emacs-goodies-el/obfusurl /usr/share/emacs23/site-lisp/emacs-goodies-el/dedicated hides /usr/share/emacs/site-lisp/emacs-goodies-el/dedicated /usr/share/emacs23/site-lisp/emacs-goodies-el/dict hides /usr/share/emacs/site-lisp/emacs-goodies-el/dict /usr/share/emacs23/site-lisp/emacs-goodies-el/tail hides /usr/share/emacs/site-lisp/emacs-goodies-el/tail /usr/share/emacs23/site-lisp/emacs-goodies-el/highlight-current-line hides /usr/share/emacs/site-lisp/emacs-goodies-el/highlight-current-line /usr/share/emacs23/site-lisp/emacs-goodies-el/tabbar hides /usr/share/emacs/site-lisp/emacs-goodies-el/tabbar /usr/share/emacs23/site-lisp/emacs-goodies-el/silly-mail hides /usr/share/emacs/site-lisp/emacs-goodies-el/silly-mail /usr/share/emacs23/site-lisp/emacs-goodies-el/tld hides /usr/share/emacs/site-lisp/emacs-goodies-el/tld /usr/share/emacs23/site-lisp/emacs-goodies-el/color-theme-library hides /usr/share/emacs/site-lisp/emacs-goodies-el/color-theme-library /usr/share/emacs23/site-lisp/emacs-goodies-el/matlab hides /usr/share/emacs/site-lisp/emacs-goodies-el/matlab /usr/share/emacs23/site-lisp/emacs-goodies-el/show-wspace hides /usr/share/emacs/site-lisp/emacs-goodies-el/show-wspace /usr/share/emacs23/site-lisp/emacs-goodies-el/protbuf hides /usr/share/emacs/site-lisp/emacs-goodies-el/protbuf /usr/share/emacs23/site-lisp/emacs-goodies-el/ascii hides /usr/share/emacs/site-lisp/emacs-goodies-el/ascii /usr/share/emacs23/site-lisp/emacs-goodies-el/dir-locals hides /usr/share/emacs/site-lisp/emacs-goodies-el/dir-locals /usr/share/emacs23/site-lisp/emacs-goodies-el/browse-huge-tar hides /usr/share/emacs/site-lisp/emacs-goodies-el/browse-huge-tar /usr/share/emacs23/site-lisp/emacs-goodies-el/tc hides /usr/share/emacs/site-lisp/emacs-goodies-el/tc /usr/share/emacs23/site-lisp/emacs-goodies-el/color-theme hides /usr/share/emacs/site-lisp/emacs-goodies-el/color-theme /usr/share/emacs23/site-lisp/emacs-goodies-el/keywiz hides /usr/share/emacs/site-lisp/emacs-goodies-el/keywiz /usr/share/emacs23/site-lisp/emacs-goodies-el/apache-mode hides /usr/share/emacs/site-lisp/emacs-goodies-el/apache-mode /home/politza/.emacs.d/minor-modes/ido hides /home/politza/src/emacs/lisp/ido Features: (shadow quail fix-umlaut emacsbug skeleton sh-script executable tramp-imap tramp-gw tramp-fish tramp-smb tramp-cache tramp-ftp tramp-cmds tramp shell tramp-compat trampver w3m-cookie w3m-bookmark w3m-tabmenu w3m-session w3m-search cc-mode cc-fonts cc-menus cc-cmds cc-styles cc-align cc-engine cc-vars cc-defs ielm cl-specs edebug flow-fill w3m-form mule-util w3m doc-view jka-compr image-mode w3m-hist w3m-fb bookmark-w3m w3m-ems w3m-ccl ccl w3m-favicon w3m-image w3m-proc w3m-util qp gnus-cite ansi-color gnus-async gnus-bcklg sort gnus-ml gnus-demon parse-time nnfolder warnings byte-opt bytecomp byte-compile nnmbox utf-7 utf7 auth-source netrc starttls nnimap imap nndraft nnmh bbdb-gnus bbdb-snarf mail-extr bbdb-com nnnil gnus-agent gnus-srvr gnus-score score-mode nnvirtual gnus-msg gnus-art mm-uu mml2015 epg-config mm-view smime password-cache dig mailcap nntp gnus-cache gnus-sum nnoo gnus-group gnus-undo nnmail mail-source format-spec benchmark elp find-func reposition replicant multi-isearch pp newcomment debug thingatpt vc-git help-mode view vc-dispatcher vc-svn package linux tex-site auto-loads bbdb-autoloads bbdb gnus-start gnus-spec gnus-int gnus-range message rfc822 mml mml-sec mm-decode mm-bodies mm-encode mail-parse rfc2231 rfc2047 rfc2045 ietf-drums mailabbrev gmm-utils mailheader gnus-win gnus gnus-ems nnheader gnus-util mail-utils mm-util mail-prsvr yasnippet dropdown-list assoc generic org-install ispell info-look imenu ido-hacks ibuf-macs ibuf-ext ibuffer dired-x dired-aux dired dired-details info color-theme sendmail reporter minibuffer-regexp kbd-helper edit-server ffap avoid easy-repeat repeat time-date recentf tree-widget wid-edit easymenu hippie-exp my-anything anything foldout noutline outline window-numbering ee-autoloads filladapt browse-kill-ring derived saveplace timezone disp-table server edmacro kmacro uniquify winner paren ido grep compile comint regexp-opt ring hi-lock time cus-start cus-load advice advice-preload eldoc easy-mmode help-fns savehist cl cl-19 tooltip ediff-hook vc-hooks lisp-float-type mwheel x-win x-dnd tool-bar dnd fontset image fringe lisp-mode register page menu-bar rfn-eshadow timer select scroll-bar mldrag 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 loaddefs button minibuffer faces cus-face files text-properties overlay md5 base64 format env code-pages mule custom widget hashtable-print-readable backquote make-network-process dbusbind dynamic-setting font-render-setting gtk x-toolkit x multi-tty emacs) From debbugs-submit-bounces@debbugs.gnu.org Thu Sep 08 00:14:47 2016 Received: (at 8206) by debbugs.gnu.org; 8 Sep 2016 04:14:47 +0000 Received: from localhost ([127.0.0.1]:53060 helo=debbugs.gnu.org) by debbugs.gnu.org with esmtp (Exim 4.84_2) (envelope-from ) id 1bhqjf-0004uR-Eu for submit@debbugs.gnu.org; Thu, 08 Sep 2016 00:14:47 -0400 Received: from mail-it0-f47.google.com ([209.85.214.47]:35647) by debbugs.gnu.org with esmtp (Exim 4.84_2) (envelope-from ) id 1bhqjd-0004u5-22; Thu, 08 Sep 2016 00:14:45 -0400 Received: by mail-it0-f47.google.com with SMTP id e124so235056396ith.0; Wed, 07 Sep 2016 21:14:45 -0700 (PDT) DKIM-Signature: v=1; a=rsa-sha256; c=relaxed/relaxed; d=gmail.com; s=20120113; h=from:to:cc:subject:references:date:in-reply-to:message-id :user-agent:mime-version; bh=uvIZ5fseVRH9Kq+On8HN79GcXhtYoeLaV/2ACyUb1eM=; b=c6qhLVjK+9xmVJE0Pu2oYoybWn//n7JHboUj+nuEPrqNC26gvROjdgCrsUsHo1eLKB wlAPycDWF8BH7R2rN468pbFi1AFMvHxiC5LmV0j58Hol0XrGNzUYAaHXgA7dMUDfK/4V hVtVtRp7ZvxkgJSzMTSgNObo2pROhRHK2dchqzR6ZsBfqz3gnyaWuoMZZaCooydlOubo zBCJ3IVnoav7yYzOmzTaVNCw6Gv2tqMJYT41t7qq+eQfYra85z2/5/eZ0OfRmEymgf8S Ef+F29lPm/9xeXX96uCdrwA6bvsUkYHXXFSrNclAUijeAhyvQweQT1wqAvHCSTNB5Y3q tFZw== X-Google-DKIM-Signature: v=1; a=rsa-sha256; c=relaxed/relaxed; d=1e100.net; s=20130820; h=x-gm-message-state:from:to:cc:subject:references:date:in-reply-to :message-id:user-agent:mime-version; bh=uvIZ5fseVRH9Kq+On8HN79GcXhtYoeLaV/2ACyUb1eM=; b=EAHIbP07S4OoWwpWotcaic8cviIVAAYkavkqOr4GV2Hq8zsbvk7D2dUbouMqrm+VJG p6zB22KUy3Hp6L/dCGkn0puOvFXceWwu8AuXkx8jj+36loEeKFUEAv97rlKCdbs68atC N4o4P44ykPcV+BnFchQppy6WZd+YmSN5KSUkncb+KIoRRHdXUAwAjazi5ZiXJGgLKahy srFxP3fA/NrKCcu+ABaFxLtwmB4sGgd8yWMA6pjutN969vdpFCs+USqnHiZd6dSt19rY vZbbTti/1nEPipDxCTM20j5PEbHcgDBSK5dxuMkgLeGyDhhqD1ZVNu/9EJamfpQ4kejW hQxQ== X-Gm-Message-State: AE9vXwPJhgQFZoDqXPqPtKiniD2OyL0XoCBss1ItJDkXELuaoMn0fh9j6qzuHbMygOLOfA== X-Received: by 10.36.103.214 with SMTP id u205mr12371041itc.88.1473308079317; Wed, 07 Sep 2016 21:14:39 -0700 (PDT) Received: from lylat (S01061859339e9903.ss.shawcable.net. [174.2.107.88]) by smtp.gmail.com with ESMTPSA id g78sm5526109itb.12.2016.09.07.21.14.38 (version=TLS1_2 cipher=ECDHE-RSA-CHACHA20-POLY1305 bits=256/256); Wed, 07 Sep 2016 21:14:38 -0700 (PDT) From: Alex To: Andreas Politz Subject: Re: bug#8206: 24.0.50; flet breaks advised functions References: <87bp1lnypp.fsf@fh-trier.de> Date: Wed, 07 Sep 2016 22:14:37 -0600 In-Reply-To: <87bp1lnypp.fsf@fh-trier.de> (Andreas Politz's message of "Tue, 08 Mar 2011 21:28:50 +0100") Message-ID: <8737lb9geq.fsf@gmail.com> User-Agent: Gnus/5.13 (Gnus v5.13) Emacs/25.1 (gnu/linux) MIME-Version: 1.0 Content-Type: text/plain X-Spam-Score: 1.7 (+) X-Spam-Report: Spam detection software, running on the system "debbugs.gnu.org", has NOT identified this incoming email as spam. The original message has been attached to this so you can view it or label similar future email. If you have any questions, see the administrator of that system for details. Content preview: close 8206 24.4 quit Andreas Politz writes: > I just discovered that `flet' does not work with (at least some form of) > advised functions, such that it doesn't restore the original function. > The underlying problem is demonstrated by the following code and seems > to date back to at least Version 22.3.1 . > > (progn > (defun foo () 'defun) > (defadvice foo (around foo activate) > ad-do-it) > (setq letf-save (symbol-function > ; ; 'ad-Orig-foo > 'foo > )) > (fset 'foo (lambda nil 'flet)) > (fset 'foo letf-save) > (foo)) > > => flet [...] Content analysis details: (1.7 points, 10.0 required) pts rule name description ---- ---------------------- -------------------------------------------------- 0.0 FREEMAIL_FROM Sender email is commonly abused enduser mail provider (agrambot[at]gmail.com) 2.4 RCVD_IN_SORBS_SPAM RBL: SORBS: sender is a spam source [209.85.214.47 listed in dnsbl.sorbs.net] -0.0 SPF_PASS SPF: sender matches SPF record -0.0 RCVD_IN_MSPIKE_H3 RBL: Good reputation (+3) [209.85.214.47 listed in wl.mailspike.net] -0.7 RCVD_IN_DNSWL_LOW RBL: Sender listed at http://www.dnswl.org/, low trust [209.85.214.47 listed in list.dnswl.org] -0.0 RCVD_IN_MSPIKE_WL Mailspike good senders 0.0 T_DKIM_INVALID DKIM-Signature header exists but is not valid X-Debbugs-Envelope-To: 8206 Cc: 8206@debbugs.gnu.org X-BeenThere: debbugs-submit@debbugs.gnu.org X-Mailman-Version: 2.1.18 Precedence: list List-Id: List-Unsubscribe: , List-Archive: List-Post: List-Help: List-Subscribe: , Errors-To: debbugs-submit-bounces@debbugs.gnu.org Sender: "Debbugs-submit" X-Spam-Score: 1.7 (+) X-Spam-Report: Spam detection software, running on the system "debbugs.gnu.org", has NOT identified this incoming email as spam. The original message has been attached to this so you can view it or label similar future email. If you have any questions, see the administrator of that system for details. Content preview: close 8206 24.4 quit Andreas Politz writes: > I just discovered that `flet' does not work with (at least some form of) > advised functions, such that it doesn't restore the original function. > The underlying problem is demonstrated by the following code and seems > to date back to at least Version 22.3.1 . > > (progn > (defun foo () 'defun) > (defadvice foo (around foo activate) > ad-do-it) > (setq letf-save (symbol-function > ;;'ad-Orig-foo > 'foo > )) > (fset 'foo (lambda nil 'flet)) > (fset 'foo letf-save) > (foo)) > > => flet [...] Content analysis details: (1.7 points, 10.0 required) pts rule name description ---- ---------------------- -------------------------------------------------- -0.7 RCVD_IN_DNSWL_LOW RBL: Sender listed at http://www.dnswl.org/, low trust [209.85.214.47 listed in list.dnswl.org] 2.4 RCVD_IN_SORBS_SPAM RBL: SORBS: sender is a spam source [209.85.214.47 listed in dnsbl.sorbs.net] -0.0 RCVD_IN_MSPIKE_H3 RBL: Good reputation (+3) [209.85.214.47 listed in wl.mailspike.net] 0.0 FREEMAIL_FROM Sender email is commonly abused enduser mail provider (agrambot[at]gmail.com) -0.0 SPF_PASS SPF: sender matches SPF record -0.0 RCVD_IN_MSPIKE_WL Mailspike good senders 0.0 T_DKIM_INVALID DKIM-Signature header exists but is not valid close 8206 24.4 quit Andreas Politz writes: > I just discovered that `flet' does not work with (at least some form of) > advised functions, such that it doesn't restore the original function. > The underlying problem is demonstrated by the following code and seems > to date back to at least Version 22.3.1 . > > (progn > (defun foo () 'defun) > (defadvice foo (around foo activate) > ad-do-it) > (setq letf-save (symbol-function > ;;'ad-Orig-foo > 'foo > )) > (fset 'foo (lambda nil 'flet)) > (fset 'foo letf-save) > (foo)) > > => flet This results in 'defun' since at least 24.4, so I'm closing this as fixed. From unknown Sat Jun 21 02:55:55 2025 Received: (at fakecontrol) by fakecontrolmessage; To: internal_control@debbugs.gnu.org From: Debbugs Internal Request Subject: Internal Control Message-Id: bug archived. Date: Thu, 06 Oct 2016 11:24:03 +0000 User-Agent: Fakemail v42.6.9 # This is a fake control message. # # The action: # bug archived. thanks # This fakemail brought to you by your local debbugs # administrator