From unknown Wed Sep 10 10:35:39 2025 X-Loop: help-debbugs@gnu.org Subject: bug#49647: 27.2; Reference Manual sec. 10.2.4; Incorrect example for indirect-function Resent-From: Scott Marks Original-Sender: "Debbugs-submit" Resent-CC: bug-gnu-emacs@gnu.org Resent-Date: Mon, 19 Jul 2021 18:58:01 +0000 Resent-Message-ID: Resent-Sender: help-debbugs@gnu.org X-GNU-PR-Message: report 49647 X-GNU-PR-Package: emacs X-GNU-PR-Keywords: To: 49647@debbugs.gnu.org X-Debbugs-Original-To: bug-gnu-emacs@gnu.org Received: via spool by submit@debbugs.gnu.org id=B.162672103317522 (code B ref -1); Mon, 19 Jul 2021 18:58:01 +0000 Received: (at submit) by debbugs.gnu.org; 19 Jul 2021 18:57:13 +0000 Received: from localhost ([127.0.0.1]:60339 helo=debbugs.gnu.org) by debbugs.gnu.org with esmtp (Exim 4.84_2) (envelope-from ) id 1m5YS0-0004YX-Ea for submit@debbugs.gnu.org; Mon, 19 Jul 2021 14:57:13 -0400 Received: from lists.gnu.org ([209.51.188.17]:51160) by debbugs.gnu.org with esmtp (Exim 4.84_2) (envelope-from ) id 1m5YAD-000483-9p for submit@debbugs.gnu.org; Mon, 19 Jul 2021 14:38:50 -0400 Received: from eggs.gnu.org ([2001:470:142:3::10]:32774) by lists.gnu.org with esmtps (TLS1.2:ECDHE_RSA_AES_256_GCM_SHA384:256) (Exim 4.90_1) (envelope-from ) id 1m5YAD-0000yJ-1S for bug-gnu-emacs@gnu.org; Mon, 19 Jul 2021 14:38:49 -0400 Received: from mail-yb1-xb34.google.com ([2607:f8b0:4864:20::b34]:38666) by eggs.gnu.org with esmtps (TLS1.2:ECDHE_RSA_AES_128_GCM_SHA256:128) (Exim 4.90_1) (envelope-from ) id 1m5YAA-0001La-Ii for bug-gnu-emacs@gnu.org; Mon, 19 Jul 2021 14:38:48 -0400 Received: by mail-yb1-xb34.google.com with SMTP id r132so29282129yba.5 for ; Mon, 19 Jul 2021 11:38:45 -0700 (PDT) DKIM-Signature: v=1; a=rsa-sha256; c=relaxed/relaxed; d=gmail.com; s=20161025; h=mime-version:from:date:message-id:subject:to; bh=4HFfPDtM6jB+ZXxxnj0itwLJWfx0xCGesdex3V0PQts=; b=Oam9MH6G8/1Dikg/LrRmnJGiLcR9dpIMTeDYN+zV7Dl8K7K5HwaTFgMG26D0UOUa23 A2kWRT8zhtJRWkhneWIrlGu5wwqHhtmZSIJuEutPFHwZRDedMULmV4ss9OGAn5md5CeC G7D+dGV9X3RGNQZ1An7Xo1czYWFF13laIbI2Xe2t6rhvBjBznumIaEYWQDa6J+1+Du4n xBBgHsSb46IB+kB3Bq1WIqqaMKBgOiB6P3NiVa7G8sKFColiFW9yUwCvUXqFD4nL7HN4 U8UfTJpKntT05VAUBy5TOUOCPl5svWgUy9kKODSF1HX5tEWSXh/O9njWqpEdGivPYKLK UwVQ== X-Google-DKIM-Signature: v=1; a=rsa-sha256; c=relaxed/relaxed; d=1e100.net; s=20161025; h=x-gm-message-state:mime-version:from:date:message-id:subject:to; bh=4HFfPDtM6jB+ZXxxnj0itwLJWfx0xCGesdex3V0PQts=; b=YwLISSEqGpVCMhszM6IIb0lFdWY+Ol29nTAZx2TzqmZE8zFNanBaGQ+ykGevyZv9YI /KYWfSvTtmr4YoT/mnhzTTjHAT1zFVwzZTwowR+uVaITZwbyuPwUlWrBfWFGncYlHnbV HESggFvqDux1MVrf5qQLNUSby+wqZEYzjpNU75n3uqVZy4Df1ve1n3Ylu28Ro1/KSHIq atWGpUh2X1R/6APEM2sWPFl+mm3zLYkErIS7+rtx85pRixsysBGZp8gLUSTaiMHx3isY 35R3V+0KXoS21TD9qKhhehH2z0/9R7OOvyoEMCVN66u3/hF69/6AQGmZ0PAbGkEFqcMv n61w== X-Gm-Message-State: AOAM530F6E7LnBBknYR69EqaK/VS5XxUDAVbdoaPSEYuKQ2rFszAwWtf 7el3Y61BEMJEP3HHYZgrEkRAgDTiyXPr7q7ej4W+h4QXBCozlw== X-Google-Smtp-Source: ABdhPJzAH+tEpOBC41fRZWN7+GtcC74XInpYLIrWykzMwFLorGWpsAF3f9GasQet5SbQG2Ch6Gq74ECdNE6X5vAOIdw= X-Received: by 2002:a25:c60a:: with SMTP id k10mr34454435ybf.53.1626719924868; Mon, 19 Jul 2021 11:38:44 -0700 (PDT) MIME-Version: 1.0 From: Scott Marks Date: Mon, 19 Jul 2021 14:38:34 -0400 Message-ID: Content-Type: multipart/alternative; boundary="000000000000455b7d05c77e3fdf" Received-SPF: pass client-ip=2607:f8b0:4864:20::b34; envelope-from=scott.c.marks@gmail.com; helo=mail-yb1-xb34.google.com X-Spam_score_int: -20 X-Spam_score: -2.1 X-Spam_bar: -- X-Spam_report: (-2.1 / 5.0 requ) BAYES_00=-1.9, DKIM_SIGNED=0.1, DKIM_VALID=-0.1, DKIM_VALID_AU=-0.1, DKIM_VALID_EF=-0.1, FREEMAIL_FROM=0.001, HTML_MESSAGE=0.001, RCVD_IN_DNSWL_NONE=-0.0001, SPF_HELO_NONE=0.001, SPF_PASS=-0.001 autolearn=ham autolearn_force=no X-Spam_action: no action X-Spam-Score: -1.3 (-) X-Mailman-Approved-At: Mon, 19 Jul 2021 14:57:11 -0400 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: -2.3 (--) --000000000000455b7d05c77e3fdf Content-Type: text/plain; charset="UTF-8" If one copies the example: Here is how you could define indirect-function in Lisp: (defun indirect-function (function) (if (symbolp function) (indirect-function (symbol-function function)) function)) this code will throw due to infinite recursion when invoked as (indirect-function nil) The fix is obvious: wrap (symbolp function) with (and function ...) I don't think this would distract from the point of the example. Hope this helps Scott In GNU Emacs 27.2 (build 1, x86_64-apple-darwin18.7.0, NS appkit-1671.60 Version 10.14.6 (Build 18G95)) of 2021-03-27 built on builder10-14.porkrind.org Windowing system distributor 'Apple', version 10.3.2022 System Description: macOS 11.4 Recent messages: Quit Mark set Quit is undefined is undefined kill-region: Text is read-only: # [2 times] is undefined is undefined Quit [4 times] Configured using: 'configure --with-ns '--enable-locallisppath=/Library/Application Support/Emacs/${version}/site-lisp:/Library/Application Support/Emacs/site-lisp' --with-modules' Configured features: NOTIFY KQUEUE ACL GNUTLS LIBXML2 ZLIB TOOLKIT_SCROLL_BARS NS MODULES THREADS JSON PDUMPER GMP Important settings: value of $LANG: en_US.UTF-8 locale-coding-system: utf-8-unix Major mode: IELM Minor modes in effect: override-global-mode: t global-git-commit-mode: t magit-auto-revert-mode: t shell-dirtrack-mode: t gcmh-mode: t straight-use-package-mode: t straight-package-neutering-mode: t desktop-save-mode: t tooltip-mode: t global-eldoc-mode: t eldoc-mode: t electric-indent-mode: t mouse-wheel-mode: t tool-bar-mode: t menu-bar-mode: t file-name-shadow-mode: t global-font-lock-mode: t font-lock-mode: t blink-cursor-mode: t auto-composition-mode: t auto-encryption-mode: t auto-compression-mode: t line-number-mode: t transient-mark-mode: t Load-path shadows: /Users/scott/.emacs.d/straight/build/let-alist/let-alist hides /Applications/Emacs.app/Contents/Resources/lisp/emacs-lisp/let-alist Features: (shadow sort mail-extr emacsbug sendmail misearch multi-isearch cl-print ielm pp etags fileloop generator xref project dired-aux sh-script smie executable jka-compr vc-git my-haskell-elisp-autoloads use-package-bind-key bind-key hindent-autoloads hlint-refactor-autoloads flycheck-haskell-autoloads dante-autoloads lcr-autoloads company-autoloads haskell-mode-autoloads attrap flycheck find-func s attrap-autoloads flycheck-autoloads let-alist-autoloads pkg-info-autoloads epl-autoloads f-autoloads s-autoloads magit-gitflow magit-popup magit-gitflow-autoloads magit-popup-autoloads magit-submodule magit-obsolete magit-blame magit-stash magit-reflog magit-bisect magit-push magit-pull magit-fetch magit-clone magit-remote magit-commit magit-sequence magit-notes magit-worktree magit-tag magit-merge magit-branch magit-reset magit-files magit-refs magit-status magit package browse-url url-handlers magit-repos magit-apply magit-wip magit-log which-func imenu magit-diff smerge-mode diff diff-mode git-commit rx log-edit message rfc822 mml mml-sec epa derived epg epg-config gnus-util rmail rmail-loaddefs text-property-search mm-decode mm-bodies mm-encode mailabbrev gmm-utils mailheader pcvs-util add-log magit-core magit-autorevert autorevert filenotify magit-margin magit-transient magit-process with-editor server magit-mode transient magit-git magit-section magit-utils crm dash magit-autoloads magit-section-autoloads git-commit-autoloads with-editor-autoloads transient-autoloads pandoc-mode-autoloads dash-autoloads hydra-autoloads lv-autoloads markdown-mode-autoloads dirtrack native-complete native-complete-autoloads dired dired-loaddefs edmacro kmacro exec-path-from-shell exec-path-from-shell-autoloads ffap tramp tramp-loaddefs trampver tramp-integration files-x tramp-compat shell pcomplete comint ansi-color ring parse-time iso8601 time-date ls-lisp format-spec finder-inf gcmh gcmh-autoloads cl-extra use-package-core use-package-autoloads bind-key-autoloads straight-autoloads straight info autoload radix-tree easy-mmode pcase checkdoc lisp-mnt thingatpt help-mode easymenu mail-utils gnutls network-stream url-http mail-parse rfc2231 rfc2047 rfc2045 mm-util ietf-drums mail-prsvr url-gw nsm rmc puny url-cache url-auth url url-proxy url-privacy url-expand url-methods url-history url-cookie url-domsuf url-util url-parse auth-source cl-seq eieio eieio-core cl-macs eieio-loaddefs password-cache json subr-x map seq byte-opt gv bytecomp byte-compile cconv url-vars mailcap deeper-blue-theme desktop frameset cl-loaddefs cl-lib cus-start cus-load tooltip eldoc electric uniquify ediff-hook vc-hooks lisp-float-type mwheel term/ns-win ns-win ucs-normalize mule-util term/common-win tool-bar dnd fontset image regexp-opt fringe tabulated-list replace newcomment text-mode elisp-mode lisp-mode prog-mode register page tab-bar menu-bar rfn-eshadow isearch timer select scroll-bar mouse jit-lock font-lock syntax facemenu font-core term/tty-colors frame minibuffer cl-generic cham georgian utf-8-lang misc-lang vietnamese tibetan thai tai-viet lao korean japanese eucjp-ms cp51932 hebrew greek romanian slovak czech european ethiopic indian cyrillic chinese composite charscript charprop case-table epa-hook jka-cmpr-hook help simple abbrev obarray cl-preloaded nadvice loaddefs button faces cus-face macroexp files text-properties overlay sha1 md5 base64 format env code-pages mule custom widget hashtable-print-readable backquote threads kqueue cocoa ns multi-tty make-network-process emacs) Memory information: ((conses 16 210890 189150) (symbols 48 21515 1) (strings 32 69271 38020) (string-bytes 1 2340771) (vectors 16 38156) (vector-slots 8 828157 241244) (floats 8 125 1238) (intervals 56 2074 118) (buffers 1000 30)) --000000000000455b7d05c77e3fdf Content-Type: text/html; charset="UTF-8" Content-Transfer-Encoding: quoted-printable

If one copies the example:


Here is how you could define indirec= t-function in Lisp:


(defun indirect-function (function)

=C2=A0 (if (symbolp function)

=C2=A0 =C2=A0 = =C2=A0 (indirect-function (symbol-function function))

=C2=A0 =C2=A0 function))


this code will throw due to in= finite recursion when invoked as


(indirect-function nil)


The fix is obv= ious: wrap (symbolp function) with (and function = ...= )


I don't th= ink this would distract from the point of the example.


<= span style=3D"font-family:"Helvetica Neue"">Hope this helps

Scott


In GNU Emacs 27.2 (build 1, x86_64-apple-da= rwin18.7.0, NS appkit-1671.60 Version 10.14.6 (Build 18G95))

= =C2=A0of 2021-03-27 built on builder10-14.porkrind.org

Windowing system distributor 'Apple'= , version 10.3.2022

System Description:=C2=A0 macOS 11.4


Recent messages:

Quit

Mark set

Quit

<nil> <down-mouse-1> is undefine= d

<nil> <mouse-1> is undefined

kill-region: Text is read-only: #<buffer = *ielm*> [2 times]

<nil> <down-mouse-1> is undefine= d

<nil> <mouse-1> is undefined

Quit [4 times]

Configured using:

= =C2=A0'configure --with-ns '--enable-locallisppath=3D/Librar= y/Application

= =C2=A0Support/Emacs/${version}/site-lisp:/Library/Application=

= =C2=A0Support/Emacs/site-lisp' --with-modules'


Configured features:

NOTIFY KQUEUE ACL GNUTLS LIBXML2 ZLIB TOOLKI= T_SCROLL_BARS NS MODULES

THREADS JSON PDUMPER GMP


Important settings:

= =C2=A0 value of $LANG: en_US.UTF-8

= =C2=A0 locale-coding-system: utf-8-unix


Major mode: IELM


Minor modes in effect:

= =C2=A0 override-global-mode: t

= =C2=A0 global-git-commit-mode: t

= =C2=A0 magit-auto-revert-mode: t

= =C2=A0 shell-dirtrack-mode: t

= =C2=A0 gcmh-mode: t

= =C2=A0 straight-use-package-mode: t

= =C2=A0 straight-package-neutering-mode: t

= =C2=A0 desktop-save-mode: t

= =C2=A0 tooltip-mode: t

= =C2=A0 global-eldoc-mode: t

= =C2=A0 eldoc-mode: t

= =C2=A0 electric-indent-mode: t

= =C2=A0 mouse-wheel-mode: t

= =C2=A0 tool-bar-mode: t

= =C2=A0 menu-bar-mode: t

= =C2=A0 file-name-shadow-mode: t

= =C2=A0 global-font-lock-mode: t

= =C2=A0 font-lock-mode: t

= =C2=A0 blink-cursor-mode: t

= =C2=A0 auto-composition-mode: t

= =C2=A0 auto-encryption-mode: t

= =C2=A0 auto-compression-mode: t

= =C2=A0 line-number-mode: t

= =C2=A0 transient-mark-mode: t


Load-path shadows:

/Users/scott/.emacs.d/straight/build/let-ali= st/let-alist hides /Applications/Emacs.app/Contents/Resources/lisp/emacs-li= sp/let-alist


Features:

(shadow sort mail-extr emacsbug sendmail mis= earch multi-isearch cl-print

ielm pp etags fileloop generator xref projec= t dired-aux sh-script smie

executable jka-compr vc-git my-haskell-elisp= -autoloads

use-package-bind-key bind-key hindent-autolo= ads hlint-refactor-autoloads

flycheck-haskell-autoloads dante-autoloads l= cr-autoloads

company-autoloads haskell-mode-autoloads att= rap flycheck find-func s

attrap-autoloads flycheck-autoloads let-alis= t-autoloads

pkg-info-autoloads epl-autoloads f-autoloads= s-autoloads magit-gitflow

magit-popup magit-gitflow-autoloads magit-po= pup-autoloads

magit-submodule magit-obsolete magit-blame m= agit-stash magit-reflog

magit-bisect magit-push magit-pull magit-fet= ch magit-clone magit-remote

magit-commit magit-sequence magit-notes magi= t-worktree magit-tag

magit-merge magit-branch magit-reset magit-f= iles magit-refs magit-status

magit package browse-url url-handlers magit-= repos magit-apply magit-wip

magit-log which-func imenu magit-diff smerge= -mode diff diff-mode

git-commit rx log-edit message rfc822 mml mm= l-sec epa derived epg

epg-config gnus-util rmail rmail-loaddefs te= xt-property-search mm-decode

mm-bodies mm-encode mailabbrev gmm-utils mai= lheader pcvs-util add-log

magit-core magit-autorevert autorevert filen= otify magit-margin

magit-transient magit-process with-editor se= rver magit-mode transient

magit-git magit-section magit-utils crm dash= magit-autoloads

magit-section-autoloads git-commit-autoloads= with-editor-autoloads

transient-autoloads pandoc-mode-autoloads da= sh-autoloads hydra-autoloads

lv-autoloads markdown-mode-autoloads dirtrac= k native-complete

native-complete-autoloads dired dired-loadde= fs edmacro kmacro

exec-path-from-shell exec-path-from-shell-au= toloads ffap tramp

tramp-loaddefs trampver tramp-integration fi= les-x tramp-compat shell

pcomplete comint ansi-color ring parse-time = iso8601 time-date ls-lisp

format-spec finder-inf gcmh gcmh-autoloads c= l-extra use-package-core

use-package-autoloads bind-key-autoloads str= aight-autoloads straight

info autoload radix-tree easy-mmode pcase ch= eckdoc lisp-mnt thingatpt

help-mode easymenu mail-utils gnutls network= -stream url-http mail-parse

rfc2231 rfc2047 rfc2045 mm-util ietf-drums m= ail-prsvr url-gw nsm rmc

puny url-cache url-auth url url-proxy url-pr= ivacy url-expand url-methods

url-history url-cookie url-domsuf url-util u= rl-parse auth-source cl-seq

eieio eieio-core cl-macs eieio-loaddefs pass= word-cache json subr-x map

seq byte-opt gv bytecomp byte-compile cconv = url-vars mailcap

deeper-blue-theme desktop frameset cl-loadde= fs cl-lib cus-start cus-load

tooltip eldoc electric uniquify ediff-hook v= c-hooks lisp-float-type

mwheel term/ns-win ns-win ucs-normalize mule= -util term/common-win

tool-bar dnd fontset image regexp-opt fringe= tabulated-list replace

newcomment text-mode elisp-mode lisp-mode pr= og-mode register page

tab-bar menu-bar rfn-eshadow isearch timer s= elect scroll-bar mouse

jit-lock font-lock syntax facemenu font-core= term/tty-colors frame

minibuffer cl-generic cham georgian utf-8-la= ng misc-lang vietnamese

tibetan thai tai-viet lao korean japanese eu= cjp-ms cp51932 hebrew greek

romanian slovak czech european ethiopic indi= an cyrillic chinese

composite charscript charprop case-table epa= -hook jka-cmpr-hook help

simple abbrev obarray cl-preloaded nadvice l= oaddefs button faces

cus-face macroexp files text-properties over= lay sha1 md5 base64 format

env code-pages mule custom widget hashtable-= print-readable backquote

threads kqueue cocoa ns multi-tty make-netwo= rk-process emacs)


Memory information:

((conses 16 210890 189150)

= =C2=A0(symbols 48 21515 1)

= =C2=A0(strings 32 69271 38020)

= =C2=A0(string-bytes 1 2340771)

= =C2=A0(vectors 16 38156)

= =C2=A0(vector-slots 8 828157 241244)

= =C2=A0(floats 8 125 1238)

= =C2=A0(intervals 56 2074 118)

=C2=A0(buffers 1000 30))

--000000000000455b7d05c77e3fdf-- From unknown Wed Sep 10 10:35:39 2025 X-Loop: help-debbugs@gnu.org Subject: bug#49647: 27.2; Reference Manual sec. 10.2.4; Incorrect example for indirect-function Resent-From: Michael Heerdegen Original-Sender: "Debbugs-submit" Resent-CC: bug-gnu-emacs@gnu.org Resent-Date: Tue, 20 Jul 2021 00:00:02 +0000 Resent-Message-ID: Resent-Sender: help-debbugs@gnu.org X-GNU-PR-Message: followup 49647 X-GNU-PR-Package: emacs X-GNU-PR-Keywords: To: Scott Marks Cc: 49647@debbugs.gnu.org Received: via spool by 49647-submit@debbugs.gnu.org id=B49647.162673915721168 (code B ref 49647); Tue, 20 Jul 2021 00:00:02 +0000 Received: (at 49647) by debbugs.gnu.org; 19 Jul 2021 23:59:17 +0000 Received: from localhost ([127.0.0.1]:60604 helo=debbugs.gnu.org) by debbugs.gnu.org with esmtp (Exim 4.84_2) (envelope-from ) id 1m5dAK-0005VL-R5 for submit@debbugs.gnu.org; Mon, 19 Jul 2021 19:59:17 -0400 Received: from mout.web.de ([212.227.15.4]:60635) by debbugs.gnu.org with esmtp (Exim 4.84_2) (envelope-from ) id 1m5dAI-0005V7-9P for 49647@debbugs.gnu.org; Mon, 19 Jul 2021 19:59:14 -0400 DKIM-Signature: v=1; a=rsa-sha256; c=relaxed/simple; d=web.de; s=dbaedf251592; t=1626739147; bh=1At+hJo7zdDCas7OFwTfdpuOHtcBzfwPoaZwEfk+Gpo=; h=X-UI-Sender-Class:From:To:Cc:Subject:References:Date:In-Reply-To; b=kZGiYJl1M8HVRMHKsSqolx4KE7WX1O9gJnePpkpV0Ggmr8ZPR/xxZi1MO8YIfEx4w 5cTnfMLH0pMuhNI3VS2VvEFWiYhLyCStvV9+0A/7qjOB3AST/3h5NCw5a/zt6LuGKB u6Lwc1de/q4Pa5lDzQnrgFeKuE64QvmOXAyxEJeQ= X-UI-Sender-Class: c548c8c5-30a9-4db5-a2e7-cb6cb037b8f9 Received: from drachen.dragon ([88.66.201.45]) by smtp.web.de (mrweb005 [213.165.67.108]) with ESMTPSA (Nemesis) id 1MK52w-1lofJ70i6g-00LRpz; Tue, 20 Jul 2021 01:59:07 +0200 From: Michael Heerdegen References: Date: Tue, 20 Jul 2021 01:59:06 +0200 In-Reply-To: (Scott Marks's message of "Mon, 19 Jul 2021 14:38:34 -0400") Message-ID: <87y2a1kg8l.fsf@web.de> User-Agent: Gnus/5.13 (Gnus v5.13) Emacs/28.0.50 (gnu/linux) MIME-Version: 1.0 Content-Type: text/plain X-Provags-ID: V03:K1:a9tgcMQb8wGaf2BydFse122K/3c/kDm1Z4jWmkCj6Co3LSj/W4r 0Pb46cxsd+OGmGT5AJtKb7gyylGDeGW4CwJk7KFhnmDUqwcQ/U5Zct8i6lpzAdwzBADyqZg xsz4QVi46S0LgttJTuSn6+7eoBxizgTwP4ieyEKBKG7k7J7jRZTK0uxSrc9NgzxI0cNXxiL SxMe1d6hhs2ehmq6OzyMA== X-Spam-Flag: NO X-UI-Out-Filterresults: notjunk:1;V03:K0:M20JMkGPn4w=:uzudG7bnbjker9ikT+jQK2 6gG6+fMZsFy0gNIAJ8Acp/siEt4ik6FBOHcsbvHw0Qk7aPb7X4Jlz49A0Ryjdwv2b2xy2M9Zg zuiKtSBWAwhjM4gF4d8d8jwm7LjiM+KnXqrdgc66dCN/+5W7S9sReKt0wNKrSuzUKCOqKlyk9 C3IdH7B2wm1mBxPAjjpLOhl6VVdw1P3CNXo+dofnV3dS+/Mvv0zd6X8Vb2m1yQMp4hzry6EiG bt0WfzH2GAJEV9qFd4ToJhmZBmO+KEGOnf9DWaOUGpHsuvvPVQUfxKLBuWc7GkfCfI2PSZYfH K4eyhe7RbFDIu0krbW5LsibnjgstMGXUSkGXCN0f6rBNB5Nbx6iFE9umdXQvjXiVdQv+hxLZo NuUBJt7J9lpEF87+/M+Wvz1rcOTijWy0O+s280rCPDx2osOBqDpduCWe4Taiu0bBm0cl0GE1w OXuNYobAjmYoXKdUi9eqnby5Boj/8gxGpdUCO1xewHtlFtYFXYl6VsMAb5QEp++uyIhl8nQjN qIK02CsOvDmba4c0t1XkV3YhwJ+UTL42PLSjXriernxEsY1iFpHbWDGU5ALRPzDmhc7KhTmoq R/rSHUJrW2ESSDL7UsdXD1pHUhwohmLMbS5Kin5k9FCAVeRr6jvJlGG8lDRFFNgXZYgvWMuzx Dpk13amEYvvxoQRiMQbFlWjMu+OIEO3+TTvF54dNo9pSrU6IWl94c4SxObTxkxyYTvrUbV0eI iYmusH9G8nImDNRcAgq5Q7g7kxXEGWWHpanFWnZbuBN/ZLjW7J98rhRealGDKvdOFSnvrJs2j J54Q6N2iqCKs5ZW1q/2cgturGMx4n1GHzVsJeRRMpSjq4SMc1cVIUOj4pK+rfv30TMVN7PukP LHJj4zpTjKnngr04HDzny1KPN16R8cy+xSG5ZCHDl4fXpoPqSZKn8UfJZWhb/dw8NfuwR5psw koEUwC0CWZHCrc3yhRlm77q5I27M1dDw+ejUptgFD76Ukv0uZujZ8PuTZipbcZP1iuluzsMBh BiMfe9nO7RPQojV2Fg5GqFJwGrRglD0FzIqtiJfhQIrcgKo/WefQNo54KHHSbMNNnreqfzWqc dPlbXMEhcV/QZvXk945oznQJlHOJIBJLbU/ocbNQ9lJeinmlxwuKwbN0g== X-Spam-Score: -0.7 (/) 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 (-) Scott Marks writes: > If one copies the example: You mean from the manual, (info "(elisp) Function Indirection") I think. > Here is how you could define indirect-function in Lisp: > > (defun indirect-function (function) > > (if (symbolp function) > > (indirect-function (symbol-function function)) > > function)) > > this code will throw due to infinite recursion when invoked as > > (indirect-function nil) > > The fix is obvious: wrap (symbolp function) with (and function ...) In my opinion your analysis is correct and the fix is good. I leave it to the second reader to make the change. Michael. From unknown Wed Sep 10 10:35:39 2025 X-Loop: help-debbugs@gnu.org Subject: bug#49647: 27.2; Reference Manual sec. 10.2.4; Incorrect example for indirect-function Resent-From: Lars Ingebrigtsen Original-Sender: "Debbugs-submit" Resent-CC: bug-gnu-emacs@gnu.org Resent-Date: Tue, 20 Jul 2021 12:08:02 +0000 Resent-Message-ID: Resent-Sender: help-debbugs@gnu.org X-GNU-PR-Message: followup 49647 X-GNU-PR-Package: emacs X-GNU-PR-Keywords: To: Michael Heerdegen Cc: Scott Marks , 49647@debbugs.gnu.org Received: via spool by 49647-submit@debbugs.gnu.org id=B49647.162678283018539 (code B ref 49647); Tue, 20 Jul 2021 12:08:02 +0000 Received: (at 49647) by debbugs.gnu.org; 20 Jul 2021 12:07:10 +0000 Received: from localhost ([127.0.0.1]:33087 helo=debbugs.gnu.org) by debbugs.gnu.org with esmtp (Exim 4.84_2) (envelope-from ) id 1m5oWj-0004ox-Uv for submit@debbugs.gnu.org; Tue, 20 Jul 2021 08:07:10 -0400 Received: from quimby.gnus.org ([95.216.78.240]:56686) by debbugs.gnu.org with esmtp (Exim 4.84_2) (envelope-from ) id 1m5oWi-0004og-4T for 49647@debbugs.gnu.org; Tue, 20 Jul 2021 08:07:08 -0400 DKIM-Signature: v=1; a=rsa-sha256; q=dns/txt; c=relaxed/relaxed; d=gnus.org; s=20200322; h=Content-Type:MIME-Version:Message-ID:In-Reply-To:Date: References:Subject:Cc:To:From:Sender:Reply-To:Content-Transfer-Encoding: Content-ID:Content-Description:Resent-Date:Resent-From:Resent-Sender: Resent-To:Resent-Cc:Resent-Message-ID:List-Id:List-Help:List-Unsubscribe: List-Subscribe:List-Post:List-Owner:List-Archive; bh=/BZy0nTd/5Qzs9lrizyhYsglsiy8mvpQCs3IJ/s3dgA=; b=UDg3W0IzXt2giRYpbA6NmQbKqn qrZMwZ0FMEVSR+wNVbi9SDXgnhwZmixLs+XHBl4Tex6LCcJ0OGHZ1Se4/QJQXTb8gH39tI3myP5cC RIgST3wO/mMFFBOGi9dlMkrEF9+HPFHzw0EjEAm9MH/4QdKbkfTpdoRmHkRhyC0J3cM4=; Received: from cm-84.212.220.105.getinternet.no ([84.212.220.105] helo=elva) by quimby.gnus.org with esmtpsa (TLS1.3:ECDHE_RSA_AES_256_GCM_SHA384:256) (Exim 4.92) (envelope-from ) id 1m5oWZ-0002tU-MK; Tue, 20 Jul 2021 14:07:02 +0200 From: Lars Ingebrigtsen References: <87y2a1kg8l.fsf@web.de> X-Now-Playing: Squarepusher's _Be Up A Hello_: "Vortrack" Date: Tue, 20 Jul 2021 14:06:59 +0200 In-Reply-To: <87y2a1kg8l.fsf@web.de> (Michael Heerdegen's message of "Tue, 20 Jul 2021 01:59:06 +0200") Message-ID: <87zguhfau4.fsf@gnus.org> User-Agent: Gnus/5.13 (Gnus v5.13) Emacs/28.0.50 (gnu/linux) MIME-Version: 1.0 Content-Type: text/plain X-Spam-Report: Spam detection software, running on the system "quimby.gnus.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 @@CONTACT_ADDRESS@@ for details. Content preview: Michael Heerdegen writes: > In my opinion your analysis is correct and the fix is good. > > I leave it to the second reader to make the change. Now done. Content analysis details: (-2.9 points, 5.0 required) pts rule name description ---- ---------------------- -------------------------------------------------- -1.0 ALL_TRUSTED Passed through trusted hosts only via SMTP -1.9 BAYES_00 BODY: Bayes spam probability is 0 to 1% [score: 0.0000] X-Spam-Score: -2.3 (--) 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: -3.3 (---) Michael Heerdegen writes: > In my opinion your analysis is correct and the fix is good. > > I leave it to the second reader to make the change. Now done. -- (domestic pets only, the antidote for overdose, milk.) bloggy blog: http://lars.ingebrigtsen.no From debbugs-submit-bounces@debbugs.gnu.org Tue Jul 20 08:07:14 2021 Received: (at control) by debbugs.gnu.org; 20 Jul 2021 12:07:14 +0000 Received: from localhost ([127.0.0.1]:33090 helo=debbugs.gnu.org) by debbugs.gnu.org with esmtp (Exim 4.84_2) (envelope-from ) id 1m5oWo-0004pF-6G for submit@debbugs.gnu.org; Tue, 20 Jul 2021 08:07:14 -0400 Received: from quimby.gnus.org ([95.216.78.240]:56702) by debbugs.gnu.org with esmtp (Exim 4.84_2) (envelope-from ) id 1m5oWm-0004oo-Lb for control@debbugs.gnu.org; Tue, 20 Jul 2021 08:07:12 -0400 DKIM-Signature: v=1; a=rsa-sha256; q=dns/txt; c=relaxed/relaxed; d=gnus.org; s=20200322; h=Subject:From:To:Message-Id:Date:Sender:Reply-To:Cc: MIME-Version:Content-Type:Content-Transfer-Encoding:Content-ID: Content-Description:Resent-Date:Resent-From:Resent-Sender:Resent-To:Resent-Cc :Resent-Message-ID:In-Reply-To:References:List-Id:List-Help:List-Unsubscribe: List-Subscribe:List-Post:List-Owner:List-Archive; bh=0Dxt4yWUt3wQMqOl7WZS0hQJStqHPIQdpFcrn8oRVW4=; b=Xgy36b2/Uvym4xx47cKTC/p+/B LINZgvGDucqvBFqJxjE6nZmBqyK8W/TBaEF2xhDZeRqjXa8hKPfy/QUaol513avYDbJEEZ42hIko6 fhFrqwMKyb0qn6d++AdoKxKw/8QrabcN9c/71syRPcqXov6p4mlK3u9cLcpKJXCFkIxs=; Received: from cm-84.212.220.105.getinternet.no ([84.212.220.105] helo=elva) by quimby.gnus.org with esmtpsa (TLS1.3:ECDHE_RSA_AES_256_GCM_SHA384:256) (Exim 4.92) (envelope-from ) id 1m5oWe-0002th-T2 for control@debbugs.gnu.org; Tue, 20 Jul 2021 14:07:06 +0200 Date: Tue, 20 Jul 2021 14:07:04 +0200 Message-Id: <87y2a1fatz.fsf@gnus.org> To: control@debbugs.gnu.org From: Lars Ingebrigtsen Subject: control message for bug #49647 X-Spam-Report: Spam detection software, running on the system "quimby.gnus.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 @@CONTACT_ADDRESS@@ for details. Content preview: close 49647 28.1 quit Content analysis details: (-2.9 points, 5.0 required) pts rule name description ---- ---------------------- -------------------------------------------------- -1.0 ALL_TRUSTED Passed through trusted hosts only via SMTP -1.9 BAYES_00 BODY: Bayes spam probability is 0 to 1% [score: 0.0000] X-Spam-Score: -2.3 (--) X-Debbugs-Envelope-To: control 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: -3.3 (---) close 49647 28.1 quit