From mboxrd@z Thu Jan 1 00:00:00 1970 Path: news.gmane.org!.POSTED.blaine.gmane.org!not-for-mail From: Juri Linkov Newsgroups: gmane.emacs.bugs Subject: bug#35802: Broken data loaded from uni-decomposition Date: Wed, 12 Jun 2019 00:11:33 +0300 Organization: LINKOV.NET Message-ID: <877e9r3j2i.fsf@mail.linkov.net> References: <878sv2idc0.fsf@mail.linkov.net> <85k1dybq2y.fsf@gmail.com> <87v9xie9a8.fsf@mail.linkov.net> <854l4wb3y6.fsf@gmail.com> Mime-Version: 1.0 Content-Type: text/plain Injection-Info: blaine.gmane.org; posting-host="blaine.gmane.org:195.159.176.226"; logging-data="3353"; mail-complaints-to="usenet@blaine.gmane.org" User-Agent: Gnus/5.13 (Gnus v5.13) Emacs/27.0.50 (x86_64-pc-linux-gnu) Cc: 35802@debbugs.gnu.org To: npostavs@gmail.com Original-X-From: bug-gnu-emacs-bounces+geb-bug-gnu-emacs=m.gmane.org@gnu.org Tue Jun 11 23:53:42 2019 Return-path: Envelope-to: geb-bug-gnu-emacs@m.gmane.org Original-Received: from lists.gnu.org ([209.51.188.17]) by blaine.gmane.org with esmtps (TLS1.2:ECDHE_RSA_AES_256_GCM_SHA384:256) (Exim 4.89) (envelope-from ) id 1haoi4-0000Zc-D5 for geb-bug-gnu-emacs@m.gmane.org; Tue, 11 Jun 2019 23:53:40 +0200 Original-Received: from localhost ([::1]:55558 helo=lists.gnu.org) by lists.gnu.org with esmtp (Exim 4.86_2) (envelope-from ) id 1haohw-0005Fy-Kd for geb-bug-gnu-emacs@m.gmane.org; Tue, 11 Jun 2019 17:53:32 -0400 Original-Received: from eggs.gnu.org ([2001:470:142:3::10]:40363) by lists.gnu.org with esmtp (Exim 4.86_2) (envelope-from ) id 1haohX-0005Fm-8T for bug-gnu-emacs@gnu.org; Tue, 11 Jun 2019 17:53:09 -0400 Original-Received: from Debian-exim by eggs.gnu.org with spam-scanned (Exim 4.71) (envelope-from ) id 1haohV-0000Wn-A2 for bug-gnu-emacs@gnu.org; Tue, 11 Jun 2019 17:53:07 -0400 Original-Received: from debbugs.gnu.org ([209.51.188.43]:46774) by eggs.gnu.org with esmtps (TLS1.0:RSA_AES_128_CBC_SHA1:16) (Exim 4.71) (envelope-from ) id 1haohR-0000Uw-W7 for bug-gnu-emacs@gnu.org; Tue, 11 Jun 2019 17:53:03 -0400 Original-Received: from Debian-debbugs by debbugs.gnu.org with local (Exim 4.84_2) (envelope-from ) id 1haohR-0002Ex-T7 for bug-gnu-emacs@gnu.org; Tue, 11 Jun 2019 17:53:01 -0400 X-Loop: help-debbugs@gnu.org Resent-From: Juri Linkov Original-Sender: "Debbugs-submit" Resent-CC: bug-gnu-emacs@gnu.org Resent-Date: Tue, 11 Jun 2019 21:53:01 +0000 Resent-Message-ID: Resent-Sender: help-debbugs@gnu.org X-GNU-PR-Message: followup 35802 X-GNU-PR-Package: emacs Original-Received: via spool by 35802-submit@debbugs.gnu.org id=B35802.15602899328546 (code B ref 35802); Tue, 11 Jun 2019 21:53:01 +0000 Original-Received: (at 35802) by debbugs.gnu.org; 11 Jun 2019 21:52:12 +0000 Original-Received: from localhost ([127.0.0.1]:60318 helo=debbugs.gnu.org) by debbugs.gnu.org with esmtp (Exim 4.84_2) (envelope-from ) id 1haoge-0002Dl-0p for submit@debbugs.gnu.org; Tue, 11 Jun 2019 17:52:12 -0400 Original-Received: from cheetah.birch.relay.mailchannels.net ([23.83.209.34]:26278) by debbugs.gnu.org with esmtp (Exim 4.84_2) (envelope-from ) id 1haogc-0002Dc-OJ for 35802@debbugs.gnu.org; Tue, 11 Jun 2019 17:52:11 -0400 X-Sender-Id: dreamhost|x-authsender|jurta@jurta.org Original-Received: from relay.mailchannels.net (localhost [127.0.0.1]) by relay.mailchannels.net (Postfix) with ESMTP id 6ACE13417FB; Tue, 11 Jun 2019 21:52:09 +0000 (UTC) Original-Received: from pdx1-sub0-mail-a2.g.dreamhost.com (100-96-28-110.trex.outbound.svc.cluster.local [100.96.28.110]) (Authenticated sender: dreamhost) by relay.mailchannels.net (Postfix) with ESMTPA id E3A4A3416E7; Tue, 11 Jun 2019 21:52:08 +0000 (UTC) X-Sender-Id: dreamhost|x-authsender|jurta@jurta.org Original-Received: from pdx1-sub0-mail-a2.g.dreamhost.com ([TEMPUNAVAIL]. [64.90.62.162]) (using TLSv1.2 with cipher DHE-RSA-AES256-GCM-SHA384) by 0.0.0.0:2500 (trex/5.17.2); Tue, 11 Jun 2019 21:52:09 +0000 X-MC-Relay: Neutral X-MailChannels-SenderId: dreamhost|x-authsender|jurta@jurta.org X-MailChannels-Auth-Id: dreamhost X-Hook-Print: 196cd636386868be_1560289929250_3505959710 X-MC-Loop-Signature: 1560289929250:255872004 X-MC-Ingress-Time: 1560289929249 Original-Received: from pdx1-sub0-mail-a2.g.dreamhost.com (localhost [127.0.0.1]) by pdx1-sub0-mail-a2.g.dreamhost.com (Postfix) with ESMTP id E13CC7FD9E; Tue, 11 Jun 2019 14:52:07 -0700 (PDT) DKIM-Signature: v=1; a=rsa-sha1; c=relaxed; d=linkov.net; h=from:to:cc :subject:references:date:in-reply-to:message-id:mime-version :content-type; s=linkov.net; bh=FJFHK6D1Oz4XesoltsbUqDu283Q=; b= xvvEwwVC4DuB7J6QrleZbQK0GNhoB3/oucTQhmVH8zmWwybWUwg6YBzrLxX+qezT c4TAvZOJKc93yyc+/fJBr1z/8QbzSnl8fupJEwjnbo/GNiiL15xhxX0ttSGGEolh vY6X8b+/0iCebV1aLqZbzIKiVPnFtsXz66TKznEBSB0= Original-Received: from mail.jurta.org (m91-129-109-209.cust.tele2.ee [91.129.109.209]) (using TLSv1.2 with cipher ECDHE-RSA-AES256-GCM-SHA384 (256/256 bits)) (No client certificate requested) (Authenticated sender: jurta@jurta.org) by pdx1-sub0-mail-a2.g.dreamhost.com (Postfix) with ESMTPSA id 1CCC87FD8B; Tue, 11 Jun 2019 14:52:02 -0700 (PDT) X-DH-BACKEND: pdx1-sub0-mail-a2 In-Reply-To: <854l4wb3y6.fsf@gmail.com> (npostavs@gmail.com's message of "Tue, 11 Jun 2019 10:18:41 -0400") X-VR-OUT-STATUS: OK X-VR-OUT-SCORE: 0 X-VR-OUT-SPAMCAUSE: gggruggvucftvghtrhhoucdtuddrgeduuddrudehhedgudegkecutefuodetggdotefrodftvfcurfhrohhfihhlvgemucggtfgfnhhsuhgsshgtrhhisggvpdfftffgtefojffquffvnecuuegrihhlohhuthemuceftddtnecunecujfgurhephffvufhofhffjgfkfgggtgesthdtredttdertdenucfhrhhomheplfhurhhiucfnihhnkhhovhcuoehjuhhriheslhhinhhkohhvrdhnvghtqeenucfkphepledurdduvdelrddutdelrddvtdelnecurfgrrhgrmhepmhhouggvpehsmhhtphdphhgvlhhopehmrghilhdrjhhurhhtrgdrohhrghdpihhnvghtpeeluddruddvledruddtledrvddtledprhgvthhurhhnqdhprghthheplfhurhhiucfnihhnkhhovhcuoehjuhhriheslhhinhhkohhvrdhnvghtqedpmhgrihhlfhhrohhmpehjuhhriheslhhinhhkohhvrdhnvghtpdhnrhgtphhtthhopehnphhoshhtrghvshesghhmrghilhdrtghomhenucevlhhushhtvghrufhiiigvpedt X-BeenThere: debbugs-submit@debbugs.gnu.org X-Mailman-Version: 2.1.18 Precedence: list X-detected-operating-system: by eggs.gnu.org: GNU/Linux 2.2.x-3.x [generic] X-Received-From: 209.51.188.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" Xref: news.gmane.org gmane.emacs.bugs:160412 Archived-At: > Actually maybe it's just a matter of making isearch bind > search-spaces-regexp less widely. I'm not quite following when the your > problem happens though. Can you show a backtrace from your original > problem using > > (add-hook 'after-load-functions > (lambda (f) (when (string-match-p "uni-decomposition" f) > (debug nil :search-spaces-regexp search-spaces-regexp)))) When I eval both the above and (setq search-whitespace-regexp "\\(\\s-\\|\n\\)+") then debugger still shows that search-spaces-regexp is nil (also note where search-spaces-regexp is let-bound to non-nil in the backtrace, see also more info after the backtrace): Debugger entered: (:search-spaces-regexp nil) (progn (debug nil :search-spaces-regexp search-spaces-regexp)) (if (string-match-p "uni-decomposition" f) (progn (debug nil :search-spaces-regexp search-spaces-regexp))) (closure (t) (f) (if (string-match-p "uni-decomposition" f) (progn (debug nil :search-spaces-regexp search-spaces-regexp))))("emacs/lisp/international/uni-decomposition.el") run-hook-with-args((closure (t) (f) (if (string-match-p "uni-decomposition" f) (progn (debug nil :search-spaces-regexp search-spaces-regexp)))) "emacs/lisp/international/uni-decomposition.el") do-after-load-evaluation("emacs/lisp/international/uni-decomposition.el") load-with-code-conversion("emacs/lisp/international/uni-decomposition.el" "emacs/lisp/international/uni-decomposition.el" t t) unicode-property-table-internal(decomposition) char-fold-make-table() byte-code("\301 \20\301\207" [char-fold-table char-fold-make-table] 1) char-fold-to-regexp("a" (isearch-printing-char isearch-del-char)) funcall(char-fold-to-regexp "a" (isearch-printing-char isearch-del-char)) (if (functionp isearch-regexp-function) (funcall isearch-regexp-function string lax) (word-search-regexp string lax)) (let ((lax (and (not bound) (isearch--lax-regexp-function-p)))) (if lax (progn (setq isearch-adjusted t))) (if (functionp isearch-regexp-function) (funcall isearch-regexp-function string lax) (word-search-regexp string lax))) (cond (isearch-regexp-function (let ((lax (and (not bound) (isearch--lax-regexp-function-p)))) (if lax (progn (setq isearch-adjusted t))) (if (functionp isearch-regexp-function) (funcall isearch-regexp-function string lax) (word-search-regexp string lax)))) (isearch-regexp string) (t (regexp-quote string))) (funcall (if isearch-forward #'re-search-forward #'re-search-backward) (cond (isearch-regexp-function (let ((lax (and (not bound) (isearch--lax-regexp-function-p)))) (if lax (progn (setq isearch-adjusted t))) (if (functionp isearch-regexp-function) (funcall isearch-regexp-function string lax) (word-search-regexp string lax)))) (isearch-regexp string) (t (regexp-quote string))) bound noerror count) (let ((search-spaces-regexp (if (cond (isearch-regexp isearch-regexp-lax-whitespace) (t isearch-lax-whitespace)) (progn search-whitespace-regexp)))) (funcall (if isearch-forward #'re-search-forward #'re-search-backward) (cond (isearch-regexp-function (let ((lax (and (not bound) (isearch--lax-regexp-function-p)))) (if lax (progn (setq isearch-adjusted t))) (if (functionp isearch-regexp-function) (funcall isearch-regexp-function string lax) (word-search-regexp string lax)))) (isearch-regexp string) (t (regexp-quote string))) bound noerror count)) (closure (isearch-commands minibuffer-history-symbol t) (string &optional bound noerror count) (let ((search-spaces-regexp (if (cond (isearch-regexp isearch-regexp-lax-whitespace) (t isearch-lax-whitespace)) (progn search-whitespace-regexp)))) (funcall (if isearch-forward #'re-search-forward #'re-search-backward) (cond (isearch-regexp-function (let (...) (if lax ...) (if ... ... ...))) (isearch-regexp string) (t (regexp-quote string))) bound noerror count)))("a" nil t) funcall((closure (isearch-commands minibuffer-history-symbol t) (string &optional bound noerror count) (let ((search-spaces-regexp (if (cond (isearch-regexp isearch-regexp-lax-whitespace) (t isearch-lax-whitespace)) (progn search-whitespace-regexp)))) (funcall (if isearch-forward #'re-search-forward #'re-search-backward) (cond (isearch-regexp-function (let (...) (if lax ...) (if ... ... ...))) (isearch-regexp string) (t (regexp-quote string))) bound noerror count))) "a" nil t) (save-excursion (funcall func string bound noerror)) (let* ((func (isearch-search-fun)) (pos1 (save-excursion (funcall func string bound noerror))) pos2) (if (and (with-no-warnings (char-table-p translation-table-for-input)) (multibyte-string-p string) (string-match-p "[^[:ascii:]]" string)) (progn (let ((translated (apply 'string (mapcar ... string))) match-data) (if translated (progn (let (...) (unwind-protect ... ...)) (if (and pos2 ...) (progn ... ...))))))) (if pos1 (progn (if (and multi-isearch-next-buffer-current-function (buffer-live-p multi-isearch-current-buffer)) (switch-to-buffer multi-isearch-current-buffer)) (goto-char pos1) pos1))) isearch-search-string("a" nil t) isearch-search() isearch-search-and-update() isearch-process-search-string("a" "a") isearch-process-search-char(97 1) isearch-printing-char(97 1) funcall-interactively(isearch-printing-char 97 1) call-interactively(isearch-printing-char nil nil) command-execute(isearch-printing-char) But when I add (message "search-spaces-regexp: %S" search-spaces-regexp) at the top level in char-fold.el, then after its autoload from isearch, the *Message* buffer contains: search-spaces-regexp: "\\(\\s-\\| \\)+"