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: Thu, 04 Jun 2015 11:27:52 +0200 Message-ID: <55701A18.6050503@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: 7bit X-Trace: ger.gmane.org 1433410176 6096 80.91.229.3 (4 Jun 2015 09:29:36 GMT) X-Complaints-To: usenet@ger.gmane.org NNTP-Posting-Date: Thu, 4 Jun 2015 09:29:36 +0000 (UTC) To: 20732@debbugs.gnu.org Original-X-From: bug-gnu-emacs-bounces+geb-bug-gnu-emacs=m.gmane.org@gnu.org Thu Jun 04 11:29:24 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 1Z0RSa-0001bo-Sl for geb-bug-gnu-emacs@m.gmane.org; Thu, 04 Jun 2015 11:29:13 +0200 Original-Received: from localhost ([::1]:41155 helo=lists.gnu.org) by lists.gnu.org with esmtp (Exim 4.71) (envelope-from ) id 1Z0RSZ-0004fq-QC for geb-bug-gnu-emacs@m.gmane.org; Thu, 04 Jun 2015 05:29:11 -0400 Original-Received: from eggs.gnu.org ([2001:4830:134:3::10]:53159) by lists.gnu.org with esmtp (Exim 4.71) (envelope-from ) id 1Z0RSV-0004do-Qp for bug-gnu-emacs@gnu.org; Thu, 04 Jun 2015 05:29:08 -0400 Original-Received: from Debian-exim by eggs.gnu.org with spam-scanned (Exim 4.71) (envelope-from ) id 1Z0RSQ-0000Lc-R0 for bug-gnu-emacs@gnu.org; Thu, 04 Jun 2015 05:29:07 -0400 Original-Received: from debbugs.gnu.org ([140.186.70.43]:58139) by eggs.gnu.org with esmtp (Exim 4.71) (envelope-from ) id 1Z0RSQ-0000LR-N8 for bug-gnu-emacs@gnu.org; Thu, 04 Jun 2015 05:29:02 -0400 Original-Received: from Debian-debbugs by debbugs.gnu.org with local (Exim 4.80) (envelope-from ) id 1Z0RSQ-00085B-Am for bug-gnu-emacs@gnu.org; Thu, 04 Jun 2015 05:29: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: Thu, 04 Jun 2015 09:29:02 +0000 Resent-Message-ID: Resent-Sender: help-debbugs@gnu.org X-GNU-PR-Message: report 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.143341010131019 (code B ref -1); Thu, 04 Jun 2015 09:29:02 +0000 Original-Received: (at submit) by debbugs.gnu.org; 4 Jun 2015 09:28:21 +0000 Original-Received: from localhost ([127.0.0.1]:39881 helo=debbugs.gnu.org) by debbugs.gnu.org with esmtp (Exim 4.80) (envelope-from ) id 1Z0RRl-00084F-HU for submit@debbugs.gnu.org; Thu, 04 Jun 2015 05:28:21 -0400 Original-Received: from eggs.gnu.org ([208.118.235.92]:39313) by debbugs.gnu.org with esmtp (Exim 4.80) (envelope-from ) id 1Z0RRj-000842-KA for submit@debbugs.gnu.org; Thu, 04 Jun 2015 05:28:20 -0400 Original-Received: from Debian-exim by eggs.gnu.org with spam-scanned (Exim 4.71) (envelope-from ) id 1Z0RRd-0008EM-5n for submit@debbugs.gnu.org; Thu, 04 Jun 2015 05:28:14 -0400 Original-Received: from lists.gnu.org ([2001:4830:134:3::11]:42694) by eggs.gnu.org with esmtp (Exim 4.71) (envelope-from ) id 1Z0RRd-0008EC-39 for submit@debbugs.gnu.org; Thu, 04 Jun 2015 05:28:13 -0400 Original-Received: from eggs.gnu.org ([2001:4830:134:3::10]:52807) by lists.gnu.org with esmtp (Exim 4.71) (envelope-from ) id 1Z0RRb-0004XR-Qg for bug-gnu-emacs@gnu.org; Thu, 04 Jun 2015 05:28:12 -0400 Original-Received: from Debian-exim by eggs.gnu.org with spam-scanned (Exim 4.71) (envelope-from ) id 1Z0RRW-00089x-Rx for bug-gnu-emacs@gnu.org; Thu, 04 Jun 2015 05:28:11 -0400 Original-Received: from mout.kundenserver.de ([212.227.126.130]:63615) by eggs.gnu.org with esmtp (Exim 4.71) (envelope-from ) id 1Z0RRW-00089P-Hy for bug-gnu-emacs@gnu.org; Thu, 04 Jun 2015 05:28:06 -0400 Original-Received: from [192.168.178.31] ([77.12.118.52]) by mrelayeu.kundenserver.de (mreue004) with ESMTPSA (Nemesis) id 0LjfTA-1Zby7Z1P4q-00bbMp for ; Thu, 04 Jun 2015 11:28:05 +0200 User-Agent: Mozilla/5.0 (X11; Linux i686; rv:31.0) Gecko/20100101 Thunderbird/31.4.0 X-Provags-ID: V03:K0:WW2gIAE4DzQmFMfNYwlQE36+7JHDfpnIBQ/JdFD8BDUuCaZFPtg mUBlel0KmGf6X66JYnvI+Kduv5VLsyPgJ9ja5B2J5YO3Dv8kh2/bqzrujEpgT/g1CPUIYyC 2DIMhHDL+chfBo5FHbGQPajLO7GJVKIW9f1dfSUHB0zHIItjfKKuGgrKTszH7qP449sFbCA VaJSxZ/NX+l1uPWVx3mVA== 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:103558 Archived-At: Cursor at 4th line before sdsd: "asdf (defun foo1 (&optional beg end) sdsd " ;;; (in-string-p) returns falsely nil, because it scans from "(defun " This would do it (defun ar-in-string-p () "Return delimiters start position, if inside, otherwise return nil. " (interactive) (save-restriction (widen) (let* ((erg (nth 8 (parse-partial-sexp (point-min) (point)))) (la (unless erg (when (looking-at "\\s\"") (match-beginning 0))))) (setq erg (or erg la)) (when (interactive-p) (message "%s" erg)) erg))) Introduced "widen" - IMO there is no reliability without. It also returns t if at the first char of a string-delimiter. Source: http://bazaar.launchpad.net/~a-roehler/s-x-emacs-werkstatt/trunk/view/head:/misc-utils.el