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#74890: 31.0.50; (thing-at-point 'string) raises error Date: Sun, 15 Dec 2024 11:27:24 +0300 Message-ID: <874j352vwz.fsf@lco2.mail-host-address-is-not-set> Mime-Version: 1.0 Content-Type: text/plain; charset=utf-8 Content-Transfer-Encoding: 7bit Injection-Info: ciao.gmane.io; posting-host="blaine.gmane.org:116.202.254.214"; logging-data="6243"; mail-complaints-to="usenet@ciao.gmane.io" To: 74890@debbugs.gnu.org Original-X-From: bug-gnu-emacs-bounces+geb-bug-gnu-emacs=m.gmane-mx.org@gnu.org Sun Dec 15 18:54:23 2024 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 1tMsov-0001TB-Fl for geb-bug-gnu-emacs@m.gmane-mx.org; Sun, 15 Dec 2024 18:54:21 +0100 Original-Received: from localhost ([::1] helo=lists1p.gnu.org) by lists.gnu.org with esmtp (Exim 4.90_1) (envelope-from ) id 1tMsoe-00023S-MW; Sun, 15 Dec 2024 12:54:04 -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 1tMsod-00023C-9Q for bug-gnu-emacs@gnu.org; Sun, 15 Dec 2024 12:54:03 -0500 Original-Received: from debbugs.gnu.org ([2001:470:142:5::43]) by eggs.gnu.org with esmtps (TLS1.2:ECDHE_RSA_AES_128_GCM_SHA256:128) (Exim 4.90_1) (envelope-from ) id 1tMsod-0000hl-0y for bug-gnu-emacs@gnu.org; Sun, 15 Dec 2024 12:54:03 -0500 DKIM-Signature: v=1; a=rsa-sha256; q=dns/txt; c=relaxed/relaxed; d=debbugs.gnu.org; s=debbugs-gnu-org; h=Mime-Version:Date:From:To:Subject; bh=pv5E/X2ATS0bX5ZHk8QwawAG4+NJtxj6xm0ThUpV6es=; b=AXOmgKLTfzKSSI9sOMuDLTV+t4g7Ct93HMCwRPvwBgavW8Kh4kTw7z2FcNo2oweNmFRvkKFUc5reYpQH0LA4s7HhfHzLste8gjJoOuoWyA5fEkwU9edptd6USp339+Z6Je2B6l+gNJGlHays3SA7AzI4GSg35JAY+v7mE9Sz+uWHSyKDOWuU8z0SsSsvNRtxM33gJmoi/PsfYlIu2fkYqFjVVfH9vk94NkluOk1uqr9y7idJCR9uHnHYhrlgTMEPnI+9FYBvxwP1eJrL88Ze/UxXurBZccl+1iUyGJ/iPN8Irlgvo2stA3BRrq6WBxHUurH1C8O49xRbvoC7em3OTQ==; Original-Received: from Debian-debbugs by debbugs.gnu.org with local (Exim 4.84_2) (envelope-from ) id 1tMsoc-0002BS-On for bug-gnu-emacs@gnu.org; Sun, 15 Dec 2024 12:54:02 -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, 15 Dec 2024 17:54:02 +0000 Resent-Message-ID: Resent-Sender: help-debbugs@gnu.org X-GNU-PR-Message: report 74890 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.17342851868303 (code B ref -1); Sun, 15 Dec 2024 17:54:02 +0000 Original-Received: (at submit) by debbugs.gnu.org; 15 Dec 2024 17:53:06 +0000 Original-Received: from localhost ([127.0.0.1]:51867 helo=debbugs.gnu.org) by debbugs.gnu.org with esmtp (Exim 4.84_2) (envelope-from ) id 1tMsnd-00029T-7Q for submit@debbugs.gnu.org; Sun, 15 Dec 2024 12:53:05 -0500 Original-Received: from lists.gnu.org ([209.51.188.17]:35554) by debbugs.gnu.org with esmtp (Exim 4.84_2) (envelope-from ) id 1tMsnb-00029J-6F for submit@debbugs.gnu.org; Sun, 15 Dec 2024 12:52:59 -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 1tMsna-0001T1-V8 for bug-gnu-emacs@gnu.org; Sun, 15 Dec 2024 12:52:59 -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 1tMsnY-0000We-Dn for bug-gnu-emacs@gnu.org; Sun, 15 Dec 2024 12:52:58 -0500 Original-Received: from localhost ([::ffff:41.75.172.173]) (AUTH: PLAIN admin, TLS: TLS1.3,256bits,ECDHE_RSA_AES_256_GCM_SHA384) by stw1.rcdrun.com with ESMTPSA id 000000000001BF31.00000000675F174C.00067048; Sun, 15 Dec 2024 10:52:11 -0700 Received-SPF: pass client-ip=217.170.207.13; envelope-from=bugs@gnu.support; helo=stw1.rcdrun.com X-Spam_score_int: -3 X-Spam_score: -0.4 X-Spam_bar: / X-Spam_report: (-0.4 / 5.0 requ) BAYES_00=-1.9, DATE_IN_PAST_06_12=1.543, RCVD_IN_VALIDITY_RPBL_BLOCKED=0.001, RCVD_IN_VALIDITY_SAFE_BLOCKED=0.001, 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:297115 Archived-At: I can see that I cannot run (thing-at-point 'string) safely, though I cannot exactly determine the condition. In the buffer I have only this: Hello which is string "Hello" and when I place cursor behind "o" and run (thing-at-point 'string) I am getting the backtrace below. But if I make one space like "Hello " and place cursor on that empty space in the buffer, I am getting NIL and no error. Though I cannot repeat this with emacs -Q and thus I do not know why is this happening exactly. I think that (eq (char-syntax (char-after)) 34) cannot read the char which is not there "after". Backtrace: Debugger entered--Lisp error: (wrong-type-argument characterp nil) char-syntax(nil) (eq (char-syntax (char-after)) 34) (not (eq (char-syntax (char-after)) 34)) (if (not (eq (char-syntax (char-after)) 34)) (setq syntax (syntax-ppss)) (or (progn (forward-char) (setq syntax (syntax-ppss)) (nth 3 syntax)) (progn (forward-char (- (or nil 1))) (setq syntax (syntax-ppss)) (nth 3 syntax)))) (let (syntax beg end) (if (not (eq (char-syntax (char-after)) 34)) (setq syntax (syntax-ppss)) (or (progn (forward-char) (setq syntax (syntax-ppss)) (nth 3 syntax)) (progn (forward-char (- (or nil 1))) (setq syntax (syntax-ppss)) (nth 3 syntax)))) (and (nth 3 syntax) (condition-case nil (progn (setq beg (nth 8 syntax)) (setq end (progn (goto-char (nth 8 syntax)) (forward-sexp) (point)))) (error nil)) (cons beg end))) (save-excursion (let (syntax beg end) (if (not (eq (char-syntax (char-after)) 34)) (setq syntax (syntax-ppss)) (or (progn (forward-char) (setq syntax (syntax-ppss)) (nth 3 syntax)) (progn (forward-char (- (or nil 1))) (setq syntax (syntax-ppss)) (nth 3 syntax)))) (and (nth 3 syntax) (condition-case nil (progn (setq beg (nth 8 syntax)) (setq end (progn (goto-char ...) (forward-sexp) (point)))) (error nil)) (cons beg end)))) tap-bounds-of-string-at-point() (let ((bounds (tap-bounds-of-string-at-point))) (and bounds (buffer-substring (car bounds) (cdr bounds)))) tap-string-at-point() funcall(tap-string-at-point) (prog1 (funcall thing-fn) (constrain-to-field nil opoint)) (let* ((opoint (point)) (thg (prog1 (funcall thing-fn) (constrain-to-field nil opoint)))) thg) (if thing-fn (let* ((opoint (point)) (thg (prog1 (funcall thing-fn) (constrain-to-field nil opoint)))) thg) (let ((bounds (tap-bounds-of-thing-at-point thing syntax-table))) (and bounds (buffer-substring (car bounds) (cdr bounds))))) (let* ((thing-fn (or (get thing 'tap-thing-at-point) (get thing 'thing-at-point))) (something (if thing-fn (let* ((opoint (point)) (thg (prog1 ... ...))) thg) (let ((bounds (tap-bounds-of-thing-at-point thing syntax-table))) (and bounds (buffer-substring (car bounds) (cdr bounds))))))) (if (and (stringp something) no-properties) (progn (set-text-properties 0 (length something) nil something))) something) thing-at-point(string) eval((thing-at-point 'string) t) #f(compiled-function () #)() #f(compiled-function () #)() eval-expression((thing-at-point 'string) nil nil 127) funcall-interactively(eval-expression (thing-at-point 'string) nil nil 127) command-execute(eval-expression) In GNU Emacs 31.0.50 (build 4, x86_64-pc-linux-gnu, GTK+ Version 3.24.38, cairo version 1.16.0) of 2024-12-05 built on lco2 Repository revision: 25b4bf7fcd75564f23b2e60e29e8ff7354186371 Repository branch: master Windowing system distributor 'The X.Org Foundation', version 11.0.12101007 System Description: Debian GNU/Linux 12 (bookworm) Configured using: 'configure --with-mailutils --with-native-compilation=yes --with-tree-sitter --with-imagemagick' Configured features: ACL CAIRO DBUS FREETYPE GIF GLIB GMP GNUTLS GSETTINGS HARFBUZZ IMAGEMAGICK JPEG LCMS2 LIBSELINUX LIBXML2 MODULES NATIVE_COMP NOTIFY INOTIFY PDUMPER PNG RSVG SECCOMP SOUND SQLITE3 THREADS TIFF TOOLKIT_SCROLL_BARS TREE_SITTER WEBP X11 XDBE XIM XINPUT2 XPM GTK3 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: Lisp Interaction Minor modes in effect: tooltip-mode: t global-eldoc-mode: t eldoc-mode: t show-paren-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 minibuffer-regexp-mode: 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 sort mail-extr emacsbug message mailcap yank-media puny dired dired-loaddefs rfc822 mml mml-sec password-cache epa derived epg rfc6068 epg-config gnus-util text-property-search time-date subr-x mm-decode mm-bodies mm-encode mail-parse rfc2231 mailabbrev gmm-utils mailheader cl-loaddefs cl-lib sendmail rfc2047 rfc2045 ietf-drums mm-util mail-prsvr mail-utils 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 touch-screen 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 gtk x-toolkit xinput2 x multi-tty move-toolbar make-network-process native-compile emacs) Memory information: ((conses 16 49894 11144) (symbols 48 5434 0) (strings 32 14122 1285) (string-bytes 1 414224) (vectors 16 9179) (vector-slots 8 129869 10829) (floats 8 22 2) (intervals 56 247 8) (buffers 992 11)) -- Jean