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 14:52:34 +0200 Message-ID: <55719B92.5090101@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> <55718DA9.8090709@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 1433508805 13439 80.91.229.3 (5 Jun 2015 12:53:25 GMT) X-Complaints-To: usenet@ger.gmane.org NNTP-Posting-Date: Fri, 5 Jun 2015 12:53:25 +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 14:53:13 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 1Z0r7W-0006yV-1V for geb-bug-gnu-emacs@m.gmane.org; Fri, 05 Jun 2015 14:53:10 +0200 Original-Received: from localhost ([::1]:47162 helo=lists.gnu.org) by lists.gnu.org with esmtp (Exim 4.71) (envelope-from ) id 1Z0r7V-0001U2-Ev for geb-bug-gnu-emacs@m.gmane.org; Fri, 05 Jun 2015 08:53:09 -0400 Original-Received: from eggs.gnu.org ([2001:4830:134:3::10]:51705) by lists.gnu.org with esmtp (Exim 4.71) (envelope-from ) id 1Z0r7R-0001To-49 for bug-gnu-emacs@gnu.org; Fri, 05 Jun 2015 08:53:05 -0400 Original-Received: from Debian-exim by eggs.gnu.org with spam-scanned (Exim 4.71) (envelope-from ) id 1Z0r7O-00079I-EQ for bug-gnu-emacs@gnu.org; Fri, 05 Jun 2015 08:53:05 -0400 Original-Received: from debbugs.gnu.org ([140.186.70.43]:59485) by eggs.gnu.org with esmtp (Exim 4.71) (envelope-from ) id 1Z0r7O-00079D-An for bug-gnu-emacs@gnu.org; Fri, 05 Jun 2015 08:53:02 -0400 Original-Received: from Debian-debbugs by debbugs.gnu.org with local (Exim 4.80) (envelope-from ) id 1Z0r7N-0002Px-Sw for bug-gnu-emacs@gnu.org; Fri, 05 Jun 2015 08:53:01 -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 12:53:01 +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.14335087709274 (code B ref -1); Fri, 05 Jun 2015 12:53:01 +0000 Original-Received: (at submit) by debbugs.gnu.org; 5 Jun 2015 12:52:50 +0000 Original-Received: from localhost ([127.0.0.1]:41227 helo=debbugs.gnu.org) by debbugs.gnu.org with esmtp (Exim 4.80) (envelope-from ) id 1Z0r7B-0002PW-PO for submit@debbugs.gnu.org; Fri, 05 Jun 2015 08:52:50 -0400 Original-Received: from eggs.gnu.org ([208.118.235.92]:38149) by debbugs.gnu.org with esmtp (Exim 4.80) (envelope-from ) id 1Z0r79-0002PI-Ji for submit@debbugs.gnu.org; Fri, 05 Jun 2015 08:52:48 -0400 Original-Received: from Debian-exim by eggs.gnu.org with spam-scanned (Exim 4.71) (envelope-from ) id 1Z0r73-00076k-74 for submit@debbugs.gnu.org; Fri, 05 Jun 2015 08:52:42 -0400 Original-Received: from lists.gnu.org ([2001:4830:134:3::11]:36246) by eggs.gnu.org with esmtp (Exim 4.71) (envelope-from ) id 1Z0r73-00076g-5F for submit@debbugs.gnu.org; Fri, 05 Jun 2015 08:52:41 -0400 Original-Received: from eggs.gnu.org ([2001:4830:134:3::10]:51643) by lists.gnu.org with esmtp (Exim 4.71) (envelope-from ) id 1Z0r72-0001Ra-8g for bug-gnu-emacs@gnu.org; Fri, 05 Jun 2015 08:52:41 -0400 Original-Received: from Debian-exim by eggs.gnu.org with spam-scanned (Exim 4.71) (envelope-from ) id 1Z0r6z-00075F-CK for bug-gnu-emacs@gnu.org; Fri, 05 Jun 2015 08:52:40 -0400 Original-Received: from mout.kundenserver.de ([212.227.17.24]:57123) by eggs.gnu.org with esmtp (Exim 4.71) (envelope-from ) id 1Z0r6z-00074s-34 for bug-gnu-emacs@gnu.org; Fri, 05 Jun 2015 08:52:37 -0400 Original-Received: from [192.168.178.31] ([77.12.24.28]) by mrelayeu.kundenserver.de (mreue103) with ESMTPSA (Nemesis) id 0Lar3w-1ZTLFT136m-00kNye for ; Fri, 05 Jun 2015 14:52:35 +0200 User-Agent: Mozilla/5.0 (X11; Linux i686; rv:31.0) Gecko/20100101 Thunderbird/31.4.0 In-Reply-To: <55718DA9.8090709@easy-emacs.de> X-Provags-ID: V03:K0:XvCL4wUlQ7nIVluL6xoegdk0kfPAXpk4EkUuEUK5mqq3jXAmJ3p jBffBju6ECKvmCD1zR6MP4jU1vxVQAJdtvaKMojmBSpFNnj2BRsVytWOSViCvgMDh/uUW+D kZZmnN3EQjopFtEouFR+LHyexZ/MAWs+AorLxcSKzSTJ6kYiw0y3Yq6cmrW214idkI2XzCr VNur7ogyhAAKp3NPmpu1Q== 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: Error: Malformed IPv6 address (bad octet value). 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:103610 Archived-At: Am 05.06.2015 um 13:53 schrieb Andreas Röhler: > > 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))))) > > > > and correct the doc-string (defun ar-in-string-p-fast () "If inside, return character which delimits the string, nil otherwise. " (ignore-errors (nth 3 (parse-partial-sexp (point-min) (point)))))