From mboxrd@z Thu Jan 1 00:00:00 1970 Path: news.gmane.io!.POSTED.blaine.gmane.org!not-for-mail From: Jean Louis Newsgroups: gmane.emacs.bugs Subject: bug#60644: 30.0.50; eval-defun: in specific case finds wrong function below the current one Date: Sun, 08 Jan 2023 09:19:05 +0300 Message-ID: <413abcebc816c301ea4188c4112d27b3.support1@rcdrun.com> Mime-Version: 1.0 Content-Type: multipart/mixed; boundary="=_stw1.rcdrun.com-362-1673158809-0001-2" Injection-Info: ciao.gmane.io; posting-host="blaine.gmane.org:116.202.254.214"; logging-data="14293"; mail-complaints-to="usenet@ciao.gmane.io" To: 60644@debbugs.gnu.org Original-X-From: bug-gnu-emacs-bounces+geb-bug-gnu-emacs=m.gmane-mx.org@gnu.org Sun Jan 08 07:21:09 2023 Return-path: Envelope-to: geb-bug-gnu-emacs@m.gmane-mx.org Original-Received: from lists.gnu.org ([209.51.188.17]) by ciao.gmane.io with esmtps (TLS1.2:ECDHE_RSA_AES_256_GCM_SHA384:256) (Exim 4.92) (envelope-from ) id 1pEP3M-0003TP-N0 for geb-bug-gnu-emacs@m.gmane-mx.org; Sun, 08 Jan 2023 07:21:08 +0100 Original-Received: from localhost ([::1] helo=lists1p.gnu.org) by lists.gnu.org with esmtp (Exim 4.90_1) (envelope-from ) id 1pEP3J-00066Q-1T; Sun, 08 Jan 2023 01:21:05 -0500 Original-Received: from eggs.gnu.org ([2001:470:142:3::10]) by lists.gnu.org with esmtps (TLS1.2:ECDHE_RSA_AES_256_GCM_SHA384:256) (Exim 4.90_1) (envelope-from ) id 1pEP3G-000667-FN for bug-gnu-emacs@gnu.org; Sun, 08 Jan 2023 01:21:02 -0500 Original-Received: from debbugs.gnu.org ([209.51.188.43]) by eggs.gnu.org with esmtps (TLS1.2:ECDHE_RSA_AES_128_GCM_SHA256:128) (Exim 4.90_1) (envelope-from ) id 1pEP3G-0004P4-3R for bug-gnu-emacs@gnu.org; Sun, 08 Jan 2023 01:21:02 -0500 Original-Received: from Debian-debbugs by debbugs.gnu.org with local (Exim 4.84_2) (envelope-from ) id 1pEP3F-00053K-Tx for bug-gnu-emacs@gnu.org; Sun, 08 Jan 2023 01:21:01 -0500 X-Loop: help-debbugs@gnu.org Resent-From: Jean Louis Original-Sender: "Debbugs-submit" Resent-CC: bug-gnu-emacs@gnu.org Resent-Date: Sun, 08 Jan 2023 06:21:01 +0000 Resent-Message-ID: Resent-Sender: help-debbugs@gnu.org X-GNU-PR-Message: report 60644 X-GNU-PR-Package: emacs X-Debbugs-Original-To: bug-gnu-emacs@gnu.org Original-Received: via spool by submit@debbugs.gnu.org id=B.167315884319359 (code B ref -1); Sun, 08 Jan 2023 06:21:01 +0000 Original-Received: (at submit) by debbugs.gnu.org; 8 Jan 2023 06:20:43 +0000 Original-Received: from localhost ([127.0.0.1]:59727 helo=debbugs.gnu.org) by debbugs.gnu.org with esmtp (Exim 4.84_2) (envelope-from ) id 1pEP2x-00052B-0f for submit@debbugs.gnu.org; Sun, 08 Jan 2023 01:20:43 -0500 Original-Received: from lists.gnu.org ([209.51.188.17]:43024) by debbugs.gnu.org with esmtp (Exim 4.84_2) (envelope-from ) id 1pEP2v-000523-1j for submit@debbugs.gnu.org; Sun, 08 Jan 2023 01:20:41 -0500 Original-Received: from eggs.gnu.org ([2001:470:142:3::10]) by lists.gnu.org with esmtps (TLS1.2:ECDHE_RSA_AES_256_GCM_SHA384:256) (Exim 4.90_1) (envelope-from ) id 1pEP2u-0005xJ-Sh for bug-gnu-emacs@gnu.org; Sun, 08 Jan 2023 01:20:40 -0500 Original-Received: from stw1.rcdrun.com ([217.170.207.13]) by eggs.gnu.org with esmtps (TLS1.2:ECDHE_RSA_AES_256_GCM_SHA384:256) (Exim 4.90_1) (envelope-from ) id 1pEP2r-0002Sw-OI for bug-gnu-emacs@gnu.org; Sun, 08 Jan 2023 01:20:40 -0500 Original-Received: from localhost ([::ffff:197.239.14.179]) (AUTH: PLAIN admin, TLS: TLS1.3,256bits,ECDHE_RSA_AES_256_GCM_SHA384) by stw1.rcdrun.com with ESMTPSA id 0000000000055D52.0000000063BA6098.0000016A; Sat, 07 Jan 2023 23:20:08 -0700 Received-SPF: pass client-ip=217.170.207.13; envelope-from=support1@rcdrun.com; helo=stw1.rcdrun.com X-Spam_score_int: -16 X-Spam_score: -1.7 X-Spam_bar: - X-Spam_report: (-1.7 / 5.0 requ) BAYES_00=-1.9, HEADER_FROM_DIFFERENT_DOMAINS=0.25, SPF_HELO_PASS=-0.001, SPF_PASS=-0.001 autolearn=no autolearn_force=no X-Spam_action: no action X-BeenThere: debbugs-submit@debbugs.gnu.org X-Mailman-Version: 2.1.18 Precedence: list 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-mx.org@gnu.org Original-Sender: bug-gnu-emacs-bounces+geb-bug-gnu-emacs=m.gmane-mx.org@gnu.org Xref: news.gmane.io gmane.emacs.bugs:252872 Archived-At: This is a MIME-formatted message. If you see this text it means that your E-mail software does not support MIME-formatted messages. --=_stw1.rcdrun.com-362-1673158809-0001-2 Content-Type: text/plain; charset=utf-8 Content-Transfer-Encoding: 7bit Find in the file two functions, go somewhere in the middle of `hyperscope-tag-hyperdocuments-by-type' and try invoking C-M-x and you will see `rcd-db-recurse-on-table' instead of `hyperscope-tag-hyperdocuments-by-type'. In general I can't instrument this function interactively. --=_stw1.rcdrun.com-362-1673158809-0001-2 Content-Type: text/plain; charset=utf-8 Content-Transfer-Encoding: 7bit Content-Disposition: attachment; filename=test.el (defun hyperscope-tag-hyperdocuments-by-type (&optional list-or-id) "Tag hyperdocuments by their type. LIST-OR-ID is list of hyperdocuments." (interactive) (let* ((list-or-id (cond ((and list-or-id (listp list-or-id)) list-or-id) (list-or-id (list list-or-id)) (t nil))) (types (cond (list-or-id (rcd-sql-list (format "SELECT DISTINCT hyobjects_hyobjectypes FROM hyobjects WHERE hyobjects_id IN (%s)" (mapconcat #'(lambda (id) (format "%s" id)) list-or-id ", ")) hs-db)) (t (rcd-sql-list "SELECT hyobjectypes_id FROM hyobjectypes" hs-db))))) (while types (let ((tags (hyperscope-type-tags (pop types)))) (while tags (let* ((hyperscope-list-limit 10000000) (hyobjects (or list-or-id (mapcar #'(lambda (i) (car i)) (hyperscope-list-by-type type))))) (while hyobjects (let ((hyperdocument (pop hyobjects))) (hyperscope-tag-hyperdocument hyperdocument (pop tags)))))))))) ;;(defun hyperscope-by-files) (defun rcd-db-recurse-on-table (table id-column parent-column id pg &optional include-parent) "Return list of children of children for ID. Optional INCLUDE-PARENT will include parent." (let* ((sql (format "WITH RECURSIVE recursetree AS ( SELECT s1.%s FROM %s s1 WHERE s1.%s = %s UNION SELECT s2.%s FROM %s s2 JOIN recursetree ON s2.%s = recursetree.%s ) SELECT * FROM recursetree" id-column table parent-column id id-column table parent-column id-column)) (children (rcd-sql-list sql pg))) (cond (include-parent (append (list id) children)) (t children)))) --=_stw1.rcdrun.com-362-1673158809-0001-2 Content-Type: text/plain; charset=utf-8 Content-Transfer-Encoding: 7bit In GNU Emacs 30.0.50 (build 2, x86_64-pc-linux-gnu, X toolkit, cairo version 1.17.6, Xaw3d scroll bars) of 2023-01-08 built on protected.rcdrun.com Repository revision: 5d1e14bd8b9a11ab860937d3ab97248ddeef30b1 Repository branch: master Windowing system distributor 'The X.Org Foundation', version 11.0.12101004 System Description: Parabola GNU/Linux-libre Configured using: 'configure --with-x-toolkit=lucid --with-mailutils' Configured features: ACL CAIRO DBUS FREETYPE GIF GLIB GMP GNUTLS GPM GSETTINGS HARFBUZZ JPEG JSON LCMS2 LIBOTF LIBSYSTEMD LIBXML2 M17N_FLT MODULES NOTIFY INOTIFY PDUMPER PNG RSVG SECCOMP SOUND SQLITE3 THREADS TIFF TOOLKIT_SCROLL_BARS TREE_SITTER WEBP X11 XAW3D XDBE XIM XINPUT2 XPM LUCID ZLIB Important settings: value of $LC_ALL: en_US.UTF-8 value of $LANG: de_DE.UTF-8 value of $XMODIFIERS: @im=exwm-xim locale-coding-system: utf-8-unix Major mode: Fundamental Minor modes in effect: tooltip-mode: t global-eldoc-mode: t show-paren-mode: t electric-indent-mode: t mouse-wheel-mode: t menu-bar-mode: t file-name-shadow-mode: t global-font-lock-mode: t blink-cursor-mode: t buffer-read-only: t line-number-mode: t indent-tabs-mode: t transient-mark-mode: t auto-composition-mode: t auto-encryption-mode: t auto-compression-mode: t Load-path shadows: None found. Features: (shadow mailalias emacsbug message yank-media puny dired dired-loaddefs rfc822 mml mml-sec epa derived epg rfc6068 epg-config gnus-util text-property-search time-date mm-decode mm-bodies mm-encode mail-parse rfc2231 mailabbrev gmm-utils mailheader sendmail rfc2047 rfc2045 ietf-drums mm-util mail-prsvr mail-utils hyperbole-autoloads package browse-url url url-proxy url-privacy url-expand url-methods url-history url-cookie generate-lisp-file url-domsuf url-util mailcap url-handlers url-parse auth-source cl-seq eieio eieio-core cl-macs password-cache json subr-x map byte-opt gv bytecomp byte-compile url-vars cl-loaddefs cl-lib rmc iso-transl tooltip cconv eldoc paren electric uniquify ediff-hook vc-hooks lisp-float-type elisp-mode mwheel term/x-win x-win term/common-win x-dnd tool-bar dnd fontset image regexp-opt fringe tabulated-list replace newcomment text-mode lisp-mode prog-mode register page tab-bar menu-bar rfn-eshadow isearch easymenu timer select scroll-bar mouse jit-lock font-lock syntax font-core term/tty-colors frame minibuffer nadvice seq simple cl-generic indonesian philippine 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 emoji-zwj charscript charprop case-table epa-hook jka-cmpr-hook help abbrev obarray oclosure cl-preloaded button loaddefs theme-loaddefs faces cus-face macroexp files window text-properties overlay sha1 md5 base64 format env code-pages mule custom widget keymap hashtable-print-readable backquote threads dbusbind inotify lcms2 dynamic-setting system-font-setting font-render-setting cairo x-toolkit xinput2 x multi-tty make-network-process emacs) Memory information: ((conses 16 56113 8712) (symbols 48 6869 0) (strings 32 20665 973) (string-bytes 1 617054) (vectors 16 14338) (vector-slots 8 199567 9406) (floats 8 29 36) (intervals 56 341 0) (buffers 984 10)) -- Jean Take action in Free Software Foundation campaigns: https://www.fsf.org/campaigns In support of Richard M. Stallman https://stallmansupport.org/ --=_stw1.rcdrun.com-362-1673158809-0001-2--