From mboxrd@z Thu Jan 1 00:00:00 1970 Path: news.gmane.org!not-for-mail From: Andreas =?UTF-8?Q?R=C3=B6hler?= Newsgroups: gmane.emacs.bugs Subject: bug#20732: in-string-p fails Date: Fri, 05 Jun 2015 13:53:13 +0200 Message-ID: <55718DA9.8090709@easy-emacs.de> References: <55701A18.6050503@easy-emacs.de> <55702162.30808@yandex.ru> <55703B8E.30804@easy-emacs.de> <5570BDC8.1010800@yandex.ru> <55713B27.3040407@easy-emacs.de> <55717B4E.7000900@easy-emacs.de> NNTP-Posting-Host: plane.gmane.org Mime-Version: 1.0 Content-Type: text/plain; charset=utf-8; format=flowed Content-Transfer-Encoding: 8bit X-Trace: ger.gmane.org 1433505273 20110 80.91.229.3 (5 Jun 2015 11:54:33 GMT) X-Complaints-To: usenet@ger.gmane.org NNTP-Posting-Date: Fri, 5 Jun 2015 11:54:33 +0000 (UTC) To: 20732@debbugs.gnu.org Original-X-From: bug-gnu-emacs-bounces+geb-bug-gnu-emacs=m.gmane.org@gnu.org Fri Jun 05 13:54:18 2015 Return-path: Envelope-to: geb-bug-gnu-emacs@m.gmane.org Original-Received: from lists.gnu.org ([208.118.235.17]) by plane.gmane.org with esmtp (Exim 4.69) (envelope-from ) id 1Z0qCQ-0005py-75 for geb-bug-gnu-emacs@m.gmane.org; Fri, 05 Jun 2015 13:54:10 +0200 Original-Received: from localhost ([::1]:46687 helo=lists.gnu.org) by lists.gnu.org with esmtp (Exim 4.71) (envelope-from ) id 1Z0qCP-0006t2-ER for geb-bug-gnu-emacs@m.gmane.org; Fri, 05 Jun 2015 07:54:09 -0400 Original-Received: from eggs.gnu.org ([2001:4830:134:3::10]:38257) by lists.gnu.org with esmtp (Exim 4.71) (envelope-from ) id 1Z0qCM-0006sV-4R for bug-gnu-emacs@gnu.org; Fri, 05 Jun 2015 07:54:06 -0400 Original-Received: from Debian-exim by eggs.gnu.org with spam-scanned (Exim 4.71) (envelope-from ) id 1Z0qCI-0007o1-Sn for bug-gnu-emacs@gnu.org; Fri, 05 Jun 2015 07:54:06 -0400 Original-Received: from debbugs.gnu.org ([140.186.70.43]:59462) by eggs.gnu.org with esmtp (Exim 4.71) (envelope-from ) id 1Z0qCI-0007nv-Pu for bug-gnu-emacs@gnu.org; Fri, 05 Jun 2015 07:54:02 -0400 Original-Received: from Debian-debbugs by debbugs.gnu.org with local (Exim 4.80) (envelope-from ) id 1Z0qCI-00011o-Ji for bug-gnu-emacs@gnu.org; Fri, 05 Jun 2015 07:54:02 -0400 X-Loop: help-debbugs@gnu.org Resent-From: Andreas =?UTF-8?Q?R=C3=B6hler?= Original-Sender: "Debbugs-submit" Resent-CC: bug-gnu-emacs@gnu.org Resent-Date: Fri, 05 Jun 2015 11:54:02 +0000 Resent-Message-ID: Resent-Sender: help-debbugs@gnu.org X-GNU-PR-Message: followup 20732 X-GNU-PR-Package: emacs X-GNU-PR-Keywords: X-Debbugs-Original-To: bug-gnu-emacs@gnu.org Original-Received: via spool by submit@debbugs.gnu.org id=B.14335052083911 (code B ref -1); Fri, 05 Jun 2015 11:54:02 +0000 Original-Received: (at submit) by debbugs.gnu.org; 5 Jun 2015 11:53:28 +0000 Original-Received: from localhost ([127.0.0.1]:41204 helo=debbugs.gnu.org) by debbugs.gnu.org with esmtp (Exim 4.80) (envelope-from ) id 1Z0qBj-000110-QS for submit@debbugs.gnu.org; Fri, 05 Jun 2015 07:53:28 -0400 Original-Received: from eggs.gnu.org ([208.118.235.92]:52784) by debbugs.gnu.org with esmtp (Exim 4.80) (envelope-from ) id 1Z0qBh-00010o-Na for submit@debbugs.gnu.org; Fri, 05 Jun 2015 07:53:26 -0400 Original-Received: from Debian-exim by eggs.gnu.org with spam-scanned (Exim 4.71) (envelope-from ) id 1Z0qBb-0007Mb-Rd for submit@debbugs.gnu.org; Fri, 05 Jun 2015 07:53:20 -0400 Original-Received: from lists.gnu.org ([208.118.235.17]:54880) by eggs.gnu.org with esmtp (Exim 4.71) (envelope-from ) id 1Z0qBb-0007MV-Ok for submit@debbugs.gnu.org; Fri, 05 Jun 2015 07:53:19 -0400 Original-Received: from eggs.gnu.org ([2001:4830:134:3::10]:38055) by lists.gnu.org with esmtp (Exim 4.71) (envelope-from ) id 1Z0qBa-0006qY-Nr for bug-gnu-emacs@gnu.org; Fri, 05 Jun 2015 07:53:19 -0400 Original-Received: from Debian-exim by eggs.gnu.org with spam-scanned (Exim 4.71) (envelope-from ) id 1Z0qBX-0007Kn-Fb for bug-gnu-emacs@gnu.org; Fri, 05 Jun 2015 07:53:18 -0400 Original-Received: from mout.kundenserver.de ([212.227.17.24]:57340) by eggs.gnu.org with esmtp (Exim 4.71) (envelope-from ) id 1Z0qBX-0007KL-6V for bug-gnu-emacs@gnu.org; Fri, 05 Jun 2015 07:53:15 -0400 Original-Received: from [192.168.178.31] ([77.12.24.28]) by mrelayeu.kundenserver.de (mreue102) with ESMTPSA (Nemesis) id 0LrsPm-1ZDRbz45Og-013hvq for ; Fri, 05 Jun 2015 13:53:14 +0200 User-Agent: Mozilla/5.0 (X11; Linux i686; rv:31.0) Gecko/20100101 Thunderbird/31.4.0 In-Reply-To: <55717B4E.7000900@easy-emacs.de> X-Provags-ID: V03:K0:78vEW1OjJ5sqLMS2e8QXTi9I5FxfuC7shrdIwKVdbCE1K2+D2wj BDwXEMEBH/eu5SmvbQGgFJYgeX30VqtbWk4nKazre15m32ANYf82KGG0RLmdsJk/vuehXGe hxj+UR8gGVIImbz7xtsb/ins/Kn/nND10VxK1DpOVyPUqgfLZt1LkLuZwLuzXelccwVqVVH pbziafGcydnZbmreOq0sg== X-UI-Out-Filterresults: notjunk:1; X-detected-operating-system: by eggs.gnu.org: GNU/Linux 3.x [generic] X-detected-operating-system: by eggs.gnu.org: GNU/Linux 2.6.x X-BeenThere: debbugs-submit@debbugs.gnu.org X-Mailman-Version: 2.1.15 Precedence: list X-detected-operating-system: by eggs.gnu.org: GNU/Linux 3.x X-Received-From: 140.186.70.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-bounces+geb-bug-gnu-emacs=m.gmane.org@gnu.org Xref: news.gmane.org gmane.emacs.bugs:103608 Archived-At: Am 05.06.2015 um 12:34 schrieb Andreas Röhler: > > Am 05.06.2015 um 08:01 schrieb Andreas Röhler: >> > Meanwhile think calling "widen" here is a mistake. Rather accept > narrowing might change the buffers state WRT in-string-p > > Here the corrected forms: > > (defun ar-in-string-p () > "Return position, if inside or at opening delimiter. > > Otherwise return nil. " > (interactive) > (let* ((pps (parse-partial-sexp (point-min) (point))) > (erg (and (nth 3 pps) (nth 8 pps))) > (la (unless erg (when (eq (char-syntax (char-after)) 34) > (point))))) > (setq erg (or erg la)) > (when (interactive-p) (message "%s" erg)) > erg)) > > (defun ar-in-string-p-fast () > "Returns start position if inside, nil otherwise. " > (ignore-errors (nth 8 (parse-partial-sexp (point-min) (point))))) > > > Sorry, nth 8 would be not enough: (defun ar-in-string-p-fast () "Returns start position if inside, nil otherwise. " (ignore-errors (nth 3 (parse-partial-sexp (point-min) (point)))))