26.0.90: mark-defun problem in c-mode

26.0.90: mark-defun problem in c-mode

[zhang cc]

[-- Attachment #1: Type: text/plain, Size: 283 bytes --]

When cursor is in the second function body, mark-defun can’t mark the second function. But c-mark-defun can, and also the mark-defun in Emacs 25.3. Is it intended?

int test_func1(int a)
{
  int i;

  return 0;
}
int test_func2(int a)
{
  int i;

  return 0;
}




[-- Attachment #2: Type: text/html, Size: 968 bytes --]

Re: 26.0.90: mark-defun problem in c-mode

[Eli Zaretskii]

> From: zhang cc <ccsmile2008@outlook.com>
> Date: Sat, 30 Dec 2017 09:49:17 +0000
> 
> When cursor is in the second function body, mark-defun can’t mark
> the second function.

"M-x mark-defun" works fine here with your example.  Where exactly
should cursor be in the second function body to reproduce the problem?

Re: 26.0.90: mark-defun problem in c-mode

[Alan Mackenzie]

Hello, Eli and Zhang.

On Sat, Dec 30, 2017 at 12:30:29 +0200, Eli Zaretskii wrote:
> > From: zhang cc <ccsmile2008@outlook.com>
> > Date: Sat, 30 Dec 2017 09:49:17 +0000
> > 
> > When cursor is in the second function body, mark-defun can’t mark
> > the second function.

> "M-x mark-defun" works fine here with your example.  Where exactly
> should cursor be in the second function body to reproduce the problem?

I see the error, with point anywhere in the body of the second function.
Critical seems to be there being no blank line between the functions.

I think there's a bug in beginning-of-defun-comments, which I'm in the
middle of edebugging.  It moves point into the first function.

-- 
Alan Mackenzie (Nuremberg, Germany).

beginning-of-defun-comments bug [was: Re: 26.0.90: mark-defun problem in c-mode]

[Alan Mackenzie]

Hello, Eli.

On Sat, Dec 30, 2017 at 10:34:32 +0000, Alan Mackenzie wrote:
> On Sat, Dec 30, 2017 at 12:30:29 +0200, Eli Zaretskii wrote:
> > > From: zhang cc <ccsmile2008@outlook.com>
> > > Date: Sat, 30 Dec 2017 09:49:17 +0000

> > > When cursor is in the second function body, mark-defun can’t mark
> > > the second function.

> > "M-x mark-defun" works fine here with your example.  Where exactly
> > should cursor be in the second function body to reproduce the problem?

> I see the error, with point anywhere in the body of the second function.
> Critical seems to be there being no blank line between the functions.

> I think there's a bug in beginning-of-defun-comments, which I'm in the
> middle of edebugging.  It moves point into the first function.

beginning-of-defun-comments has a bug.  On doing M-x
beginning-of-defun-comments from the inside of a function, when there's
no blank lines between it and the previous function, point ends up
inside that previous function, not at the comments which may separate
them.

Perhaps this bug should be fixed before the next Emacs-26 pretest.

-- 
Alan Mackenzie (Nuremberg, Germany).

Re: beginning-of-defun-comments bug [was: Re: 26.0.90: mark-defun problem in c-mode]

[Eli Zaretskii]

> Date: Sat, 30 Dec 2017 12:01:36 +0000
> Cc: emacs-devel@gnu.org, zhang cc <ccsmile2008@outlook.com>,
>   Noam Postavsky <npostavs@gmail.com>
> From: Alan Mackenzie <acm@muc.de>
> 
> > I see the error, with point anywhere in the body of the second function.
> > Critical seems to be there being no blank line between the functions.
> 
> > I think there's a bug in beginning-of-defun-comments, which I'm in the
> > middle of edebugging.  It moves point into the first function.
> 
> beginning-of-defun-comments has a bug.  On doing M-x
> beginning-of-defun-comments from the inside of a function, when there's
> no blank lines between it and the previous function, point ends up
> inside that previous function, not at the comments which may separate
> them.
> 
> Perhaps this bug should be fixed before the next Emacs-26 pretest.

How old is this problem?  It looks like it's new in Emacs 26?  If so,
we should try fixing it on the release branch.

Re: beginning-of-defun-comments bug [was: Re: 26.0.90: mark-defun problem in c-mode]

[Alan Mackenzie]

Hello, Eli.

On Sat, Dec 30, 2017 at 14:53:27 +0200, Eli Zaretskii wrote:
> > Date: Sat, 30 Dec 2017 12:01:36 +0000
> > Cc: emacs-devel@gnu.org, zhang cc <ccsmile2008@outlook.com>,
> >   Noam Postavsky <npostavs@gmail.com>
> > From: Alan Mackenzie <acm@muc.de>

> > > I see the error, with point anywhere in the body of the second function.
> > > Critical seems to be there being no blank line between the functions.

> > > I think there's a bug in beginning-of-defun-comments, which I'm in the
> > > middle of edebugging.  It moves point into the first function.

> > beginning-of-defun-comments has a bug.  On doing M-x
> > beginning-of-defun-comments from the inside of a function, when there's
> > no blank lines between it and the previous function, point ends up
> > inside that previous function, not at the comments which may separate
> > them.

> > Perhaps this bug should be fixed before the next Emacs-26 pretest.

> How old is this problem?  It looks like it's new in Emacs 26?  If so,
> we should try fixing it on the release branch.

beginning-of-defun-comments came into existence on 2017-03-31, so this
problem is definitely new in Emacs 26.

I've diagnosed the bug.  At one place, it is necessary to scan a line of
text from BOL to detect any non-comment/non-space character.  The
current code tries to do this by using parse-partial-sexp with the
fourth argument STOPBEFORE non-nil.

This STOPBEFORE causes the scanning to stop at any character which
begins a sexp.  A closing brace doesn't fit into this category.  The
scan therefore reaches EOL, and the code therefore falsely assumes there
are no non-syntactic-ws characters on that line.

I'm sure I can fix this today.

-- 
Alan Mackenzie (Nuremberg, Germany).

Re: beginning-of-defun-comments bug [was: Re: 26.0.90: mark-defun problem in c-mode]

[Marcin Borkowski]

On 2017-12-30, at 14:05, Alan Mackenzie <acm@muc.de> wrote:

> Hello, Eli.
>
> On Sat, Dec 30, 2017 at 14:53:27 +0200, Eli Zaretskii wrote:
>> > Date: Sat, 30 Dec 2017 12:01:36 +0000
>> > Cc: emacs-devel@gnu.org, zhang cc <ccsmile2008@outlook.com>,
>> >   Noam Postavsky <npostavs@gmail.com>
>> > From: Alan Mackenzie <acm@muc.de>
>
>> > > I see the error, with point anywhere in the body of the second function.
>> > > Critical seems to be there being no blank line between the functions.
>
>> > > I think there's a bug in beginning-of-defun-comments, which I'm in the
>> > > middle of edebugging.  It moves point into the first function.
>
>> > beginning-of-defun-comments has a bug.  On doing M-x
>> > beginning-of-defun-comments from the inside of a function, when there's
>> > no blank lines between it and the previous function, point ends up
>> > inside that previous function, not at the comments which may separate
>> > them.
>
>> > Perhaps this bug should be fixed before the next Emacs-26 pretest.
>
>> How old is this problem?  It looks like it's new in Emacs 26?  If so,
>> we should try fixing it on the release branch.
>
> beginning-of-defun-comments came into existence on 2017-03-31, so this
> problem is definitely new in Emacs 26.

Yep, it was committed by me.  Sorry for the mess.  And I thought I had
tested that thoroughly...

> I've diagnosed the bug.  At one place, it is necessary to scan a line of
> text from BOL to detect any non-comment/non-space character.  The
> current code tries to do this by using parse-partial-sexp with the
> fourth argument STOPBEFORE non-nil.
>
> This STOPBEFORE causes the scanning to stop at any character which
> begins a sexp.  A closing brace doesn't fit into this category.  The
> scan therefore reaches EOL, and the code therefore falsely assumes there
> are no non-syntactic-ws characters on that line.
>
> I'm sure I can fix this today.

Any success?  If not, can I help in any way?  (At the very least,
I could write some more tests to cover this case.)

Best,

-- 
Marcin Borkowski

Re: beginning-of-defun-comments bug [was: Re: 26.0.90: mark-defun problem in c-mode]

[Alan Mackenzie]

Hello, Marcin.

On Wed, Jan 03, 2018 at 05:51:35 +0100, Marcin Borkowski wrote:

> On 2017-12-30, at 14:05, Alan Mackenzie <acm@muc.de> wrote:
> > On Sat, Dec 30, 2017 at 14:53:27 +0200, Eli Zaretskii wrote:
> >> > Date: Sat, 30 Dec 2017 12:01:36 +0000
> >> > Cc: emacs-devel@gnu.org, zhang cc <ccsmile2008@outlook.com>,
> >> >   Noam Postavsky <npostavs@gmail.com>
> >> > From: Alan Mackenzie <acm@muc.de>

> >> > > I see the error, with point anywhere in the body of the second function.
> >> > > Critical seems to be there being no blank line between the functions.

> >> > > I think there's a bug in beginning-of-defun-comments, which I'm in the
> >> > > middle of edebugging.  It moves point into the first function.

> >> > beginning-of-defun-comments has a bug.  On doing M-x
> >> > beginning-of-defun-comments from the inside of a function, when there's
> >> > no blank lines between it and the previous function, point ends up
> >> > inside that previous function, not at the comments which may separate
> >> > them.

> >> > Perhaps this bug should be fixed before the next Emacs-26 pretest.

> >> How old is this problem?  It looks like it's new in Emacs 26?  If so,
> >> we should try fixing it on the release branch.

> > beginning-of-defun-comments came into existence on 2017-03-31, so this
> > problem is definitely new in Emacs 26.

> Yep, it was committed by me.  Sorry for the mess.  And I thought I had
> tested that thoroughly...

These things are tricky to test properly.  ;-)

> > I've diagnosed the bug.  At one place, it is necessary to scan a line of
> > text from BOL to detect any non-comment/non-space character.  The
> > current code tries to do this by using parse-partial-sexp with the
> > fourth argument STOPBEFORE non-nil.

> > This STOPBEFORE causes the scanning to stop at any character which
> > begins a sexp.  A closing brace doesn't fit into this category.  The
> > scan therefore reaches EOL, and the code therefore falsely assumes there
> > are no non-syntactic-ws characters on that line.

> > I'm sure I can fix this today.

> Any success?  If not, can I help in any way?  (At the very least,
> I could write some more tests to cover this case.)

Sorry, I got distracted by the turn of the year, and one or two other
things.  Please try this:



diff --git a/lisp/emacs-lisp/lisp.el b/lisp/emacs-lisp/lisp.el
index 6952ef4cf4..28605cd35c 100644
--- a/lisp/emacs-lisp/lisp.el
+++ b/lisp/emacs-lisp/lisp.el
@@ -405,12 +405,13 @@ beginning-of-defun--in-emptyish-line-p
 ;; See https://lists.gnu.org/r/help-gnu-emacs/2016-08/msg00141.html
   (save-excursion
     (forward-line 0)
-    (< (line-end-position)
-       (let ((ppss (syntax-ppss)))
-         (when (nth 4 ppss)
-           (goto-char (nth 8 ppss)))
-         (forward-comment (point-max))
-         (point)))))
+    (let ((ppss (syntax-ppss)))
+      (and (null (nth 3 ppss))
+           (< (line-end-position)
+              (progn (when (nth 4 ppss)
+                       (goto-char (nth 8 ppss)))
+                     (forward-comment (point-max))
+                     (point)))))))
 
 (defun beginning-of-defun-comments (&optional arg)
   "Move to the beginning of ARGth defun, including comments."
@@ -428,10 +429,7 @@ beginning-of-defun-comments
                   (progn (skip-syntax-backward
                           "-" (line-beginning-position))
                          (not (bolp))) ; Check for blank line.
-                  (progn (parse-partial-sexp
-                          (line-beginning-position) (line-end-position)
-                          nil t (syntax-ppss (line-beginning-position)))
-                         (eolp))))) ; Check for non-comment text.
+                  (beginning-of-defun--in-emptyish-line-p)))) ; Check for non-comment text.
     (forward-line (if first-line-p 0 1))))
 
 (defvar end-of-defun-function


> Best,

> -- 
> Marcin Borkowski

-- 
Alan Mackenzie (Nuremberg, Germany).

Re: beginning-of-defun-comments bug [was: Re: 26.0.90: mark-defun problem in c-mode]

[zhang cc]

[-- Attachment #1: Type: text/plain, Size: 1913 bytes --]


On 4 Jan 2018, 12:28 AM +0800, Alan Mackenzie <acm@muc.de>, wrote:

Sorry, I got distracted by the turn of the year, and one or two other
things. Please try this:



diff --git a/lisp/emacs-lisp/lisp.el b/lisp/emacs-lisp/lisp.el
index 6952ef4cf4..28605cd35c 100644
--- a/lisp/emacs-lisp/lisp.el
+++ b/lisp/emacs-lisp/lisp.el
@@ -405,12 +405,13 @@ beginning-of-defun--in-emptyish-line-p
;; See https://lists.gnu.org/r/help-gnu-emacs/2016-08/msg00141.html
(save-excursion
(forward-line 0)
- (< (line-end-position)
- (let ((ppss (syntax-ppss)))
- (when (nth 4 ppss)
- (goto-char (nth 8 ppss)))
- (forward-comment (point-max))
- (point)))))
+ (let ((ppss (syntax-ppss)))
+ (and (null (nth 3 ppss))
+ (< (line-end-position)
+ (progn (when (nth 4 ppss)
+ (goto-char (nth 8 ppss)))
+ (forward-comment (point-max))
+ (point)))))))

(defun beginning-of-defun-comments (&optional arg)
"Move to the beginning of ARGth defun, including comments."
@@ -428,10 +429,7 @@ beginning-of-defun-comments
(progn (skip-syntax-backward
"-" (line-beginning-position))
(not (bolp))) ; Check for blank line.
- (progn (parse-partial-sexp
- (line-beginning-position) (line-end-position)
- nil t (syntax-ppss (line-beginning-position)))
- (eolp))))) ; Check for non-comment text.
+ (beginning-of-defun--in-emptyish-line-p)))) ; Check for non-comment text.
(forward-line (if first-line-p 0 1))))

(defvar end-of-defun-function


Best,

--
Marcin Borkowski

--
Alan Mackenzie (Nuremberg, Germany).


I applied the patch, and I can’t reproduce the problem now. But there is something I don’t known if it is intended.

With the following c code, run mark-defun with cursor in the body of the second function, and the comment above of the function is also marked.

int test_func1(int a)
{
int i;

return 0;
}
/*
 * aa
 */
int test_func2(int a)
{
int i;

return 0;
}


[-- Attachment #2: Type: text/html, Size: 3430 bytes --]

Re: beginning-of-defun-comments bug [was: Re: 26.0.90: mark-defun problem in c-mode]

[Alan Mackenzie]

Hello, Zhang, Eli, and Marcin.

On Fri, Jan 05, 2018 at 14:55:54 +0000, zhang cc wrote:

> On 4 Jan 2018, 12:28 AM +0800, Alan Mackenzie <acm@muc.de>, wrote:

> I applied the patch, and I can’t reproduce the problem now. But there
> is something I don’t known if it is intended.

Thanks for doing this test.

> With the following c code, run mark-defun with cursor in the body of
> the second function, and the comment above of the function is also
> marked.

There was a long discussion about this and related matters on
emacs-devel about a year ago, I think.  I'm assuming that this marking of
the preceding comment is in accordance with that thread on emacs-devel.

> int test_func1(int a)
> {
> int i;

> return 0;
> }
> /*
>  * aa
>  */
> int test_func2(int a)
> {
> int i;

> return 0;
> }

I've committed the change to the emacs-26 branch.

-- 
Alan Mackenzie (Nuremberg, Germany).

Re: beginning-of-defun-comments bug [was: Re: 26.0.90: mark-defun problem in c-mode]

[zhang cc]

[-- Attachment #1: Type: text/plain, Size: 181 bytes --]


On 6 Jan 2018, 8:04 PM +0800, Alan Mackenzie <acm@muc.de>, wrote:

I've committed the change to the emacs-26 branch.

--
Alan Mackenzie (Nuremberg, Germany).

Ok. Thanks.

[-- Attachment #2: Type: text/html, Size: 673 bytes --]

Re: beginning-of-defun-comments bug [was: Re: 26.0.90: mark-defun problem in c-mode]

[Marcin Borkowski]

On 2018-01-06, at 13:00, Alan Mackenzie <acm@muc.de> wrote:

> There was a long discussion about this and related matters on
> emacs-devel about a year ago, I think.  I'm assuming that this marking of
> the preceding comment is in accordance with that thread on emacs-devel.

More or less, yes.

The rationale is that in many languages, the comment preceding the
function is basically its docstring.  Thus marking the function should
also mark that comment.

> I've committed the change to the emacs-26 branch.

Thanks a lot for working on this.

Best,

-- 
Marcin Borkowski

Re: beginning-of-defun-comments bug [was: Re: 26.0.90: mark-defun problem in c-mode]

[Marcin Borkowski]

[-- Attachment #1: Type: text/plain, Size: 312 bytes --]


On 2018-01-03, at 17:24, Alan Mackenzie <acm@muc.de> wrote:

> These things are tricky to test properly.  ;-)

Fair enough.  But we should at least try to prepare a regression test
when a bug pops its head. ;-)

I attach a set of two patches wit such a test.  WDYT?

Best,

-- 
Marcin Borkowski
http://mbork.pl

[-- Warning: decoded text below may be mangled, UTF-8 assumed --]
[-- Attachment #2: 0001-Add-a-more-general-tests-with-temp-buffer-macro.patch --]
[-- Type: text/x-patch; size=2.61KiB, Size: 2671 bytes --]

From fb6fa889ec026f2b5d265a043ae5c7e0813aa7c5 Mon Sep 17 00:00:00 2001
From: Marcin Borkowski <mbork@mbork.pl>
Date: Tue, 6 Mar 2018 06:46:10 +0100
Subject: [PATCH 1/2] Add a more general "tests-with-temp-buffer" macro

---
 test/lisp/emacs-lisp/lisp-tests.el | 15 ++++++++++-----
 1 file changed, 10 insertions(+), 5 deletions(-)

diff --git a/test/lisp/emacs-lisp/lisp-tests.el b/test/lisp/emacs-lisp/lisp-tests.el
index 07eddb74d5..ec197602b6 100644
--- a/test/lisp/emacs-lisp/lisp-tests.el
+++ b/test/lisp/emacs-lisp/lisp-tests.el
@@ -307,12 +307,12 @@ backward-up-list-basic
 ;;; Helpers
 
 (eval-and-compile
-  (defvar elisp-test-point-position-regex "=!\\([a-zA-Z0-9-]+\\)="
+  (defvar test-point-position-regex "=!\\([a-zA-Z0-9-]+\\)="
     "A regexp matching placeholders for point position for
 `elisp-tests-with-temp-buffer'."))
 
 ;; Copied and heavily modified from `python-tests-with-temp-buffer'
-(defmacro elisp-tests-with-temp-buffer (contents &rest body)
+(defmacro tests-with-temp-buffer (mode contents &rest body)
   "Create an `emacs-lisp-mode' enabled temp buffer with CONTENTS.
 BODY is the code to be executed within the temp buffer.  Point is
 always located at the beginning of buffer.  CONTENTS is an
@@ -320,12 +320,12 @@ elisp-tests-with-temp-buffer
 of the form =!NAME= in CONTENTS are removed, and a for each one a
 variable called NAME is bound to the position of the word's
 start."
-  (declare (indent 1) (debug (def-form body)))
+  (declare (indent 2) (debug (def-form body)))
   (let* ((var-pos nil)
          (text (with-temp-buffer
                  (insert (eval contents))
                  (goto-char (point-min))
-                 (while (re-search-forward elisp-test-point-position-regex nil t)
+                 (while (re-search-forward test-point-position-regex nil t)
                    (push (list (intern (match-string-no-properties 1))
                                (match-beginning 0))
                          var-pos)
@@ -333,7 +333,7 @@ elisp-tests-with-temp-buffer
                                   (match-end 0)))
                  (buffer-string))))
     `(with-temp-buffer
-       (emacs-lisp-mode)
+       (,mode)
        (insert ,text)
        (goto-char (point-min))
        (let ,var-pos
@@ -341,6 +341,11 @@ elisp-tests-with-temp-buffer
          ,@(mapcar (lambda (v-p) `(ignore ,(car v-p))) var-pos)
          ,@body))))
 
+(defmacro elisp-tests-with-temp-buffer (contents &rest body)
+  "Use TESTS-WITH-TEMP-BUFFER with Emacs Lisp mode."
+  (declare (indent 1) (debug (def-form body)))
+  `(tests-with-temp-buffer emacs-lisp-mode ,contents ,@body))
+
 ;;; mark-defun
 
 (eval-and-compile
-- 
2.16.2


[-- Warning: decoded text below may be mangled, UTF-8 assumed --]
[-- Attachment #3: 0002-Add-a-regression-test-for-beginning-of-defun-comment.patch --]
[-- Type: text/x-patch; size=1.09KiB, Size: 1116 bytes --]

From 098f49607e19a3246b087afbebb624a3736ef300 Mon Sep 17 00:00:00 2001
From: Marcin Borkowski <mbork@mbork.pl>
Date: Mon, 19 Mar 2018 06:17:31 +0100
Subject: [PATCH 2/2] Add a regression test for `beginning-of-defun-comments`

---
 test/lisp/emacs-lisp/lisp-tests.el | 20 ++++++++++++++++++++
 1 file changed, 20 insertions(+)

diff --git a/test/lisp/emacs-lisp/lisp-tests.el b/test/lisp/emacs-lisp/lisp-tests.el
index ec197602b6..b456a65737 100644
--- a/test/lisp/emacs-lisp/lisp-tests.el
+++ b/test/lisp/emacs-lisp/lisp-tests.el
@@ -372,6 +372,26 @@ elisp-tests-with-temp-buffer
 "
     "Test buffer for `mark-defun'."))
 
+(ert-deftest mark-defun-c-mode ()
+  "Test `mark-defun` in C mode."
+  (setq last-command nil)
+  (tests-with-temp-buffer c-mode
+      "int test_func1(int a)
+{
+  int i;
+
+  return 0;
+}
+=!beg-of-defun=int test_func2(int a)
+{
+  int i=!inside-2=;
+
+  return 0;
+}"
+    (goto-char inside-2)
+    (mark-defun)
+    (should (= (point) beg-of-defun))))
+
 (ert-deftest mark-defun-no-arg-region-inactive ()
   "Test `mark-defun' with no prefix argument and inactive
 region."
-- 
2.16.2

Re: beginning-of-defun-comments bug [was: Re: 26.0.90: mark-defun problem in c-mode]

[Alan Mackenzie]

Hello, Eli.

On Sat, Dec 30, 2017 at 14:53:27 +0200, Eli Zaretskii wrote:
> > Date: Sat, 30 Dec 2017 12:01:36 +0000
> > Cc: emacs-devel@gnu.org, zhang cc <ccsmile2008@outlook.com>,
> >   Noam Postavsky <npostavs@gmail.com>
> > From: Alan Mackenzie <acm@muc.de>

> > > I see the error, with point anywhere in the body of the second function.
> > > Critical seems to be there being no blank line between the functions.

> > > I think there's a bug in beginning-of-defun-comments, which I'm in the
> > > middle of edebugging.  It moves point into the first function.

> > beginning-of-defun-comments has a bug.  On doing M-x
> > beginning-of-defun-comments from the inside of a function, when there's
> > no blank lines between it and the previous function, point ends up
> > inside that previous function, not at the comments which may separate
> > them.

> > Perhaps this bug should be fixed before the next Emacs-26 pretest.

> How old is this problem?  It looks like it's new in Emacs 26?  If so,
> we should try fixing it on the release branch.

OK.  I've hacked together the following, which seems to work, but I'm not
altogether happy with it.  non-syntactic-ws-in-line should not be so hard
to write; ideally, it should be available directly from
parse-partial-sexp, possibly by enhancing the meaning of argument
STOPBEFORE.

Also, non-syntactic-ws-in-line doesn't really seem to belong in this file.
Possibly it should be in syntax.el.

I also think somebody else should eyeball non-syntactic-ws-in-line to try
and catch some wierd case I've missed.

The following is based on the emacs-26 branch.



diff --git a/lisp/emacs-lisp/lisp.el b/lisp/emacs-lisp/lisp.el
index 6952ef4cf4..251db2cb08 100644
--- a/lisp/emacs-lisp/lisp.el
+++ b/lisp/emacs-lisp/lisp.el
@@ -412,6 +412,35 @@ beginning-of-defun--in-emptyish-line-p
          (forward-comment (point-max))
          (point)))))
 
+(defun non-syntactic-ws-in-line ()
+  "Is there a non-whitespace, non-comment character in the current line?
+If so, return the position of the first such character, otherwise return
+ nil."
+  (save-excursion
+    (forward-line 0)                    ; to BOL.
+    (let ((ppss (syntax-ppss))
+          (eol (save-excursion (end-of-line) (point)))
+          (start (point))
+          end
+          )
+      (if (nth 3 ppss)                  ; in a string
+          start
+        (when (nth 4 ppss)              ; in a comment
+          (setq ppss
+                (parse-partial-sexp (point) eol nil nil ppss 'syntax-table)))
+        (catch 'got-it
+          (while (< (point) eol)
+            (setq start (point))
+            (setq ppss (parse-partial-sexp (point) eol nil nil ppss t))
+            (setq end (if (nth 4 ppss) (nth 8 ppss) eol))
+            (goto-char start)
+            (skip-syntax-forward "-" end)
+            (when (< (point) end)
+              (throw 'got-it (point)))
+            (unless (forward-comment 1) ; comment straddles line break.
+              (throw 'got-it nil))
+            (setq ppss (syntax-ppss))))))))
+
 (defun beginning-of-defun-comments (&optional arg)
   "Move to the beginning of ARGth defun, including comments."
   (interactive "^p")
@@ -428,10 +457,7 @@ beginning-of-defun-comments
                   (progn (skip-syntax-backward
                           "-" (line-beginning-position))
                          (not (bolp))) ; Check for blank line.
-                  (progn (parse-partial-sexp
-                          (line-beginning-position) (line-end-position)
-                          nil t (syntax-ppss (line-beginning-position)))
-                         (eolp))))) ; Check for non-comment text.
+                  (not (non-syntactic-ws-in-line))))) ; Check for non-comment text.
     (forward-line (if first-line-p 0 1))))
 
 (defvar end-of-defun-function


-- 
Alan Mackenzie (Nuremberg, Germany).

Re: beginning-of-defun-comments bug [was: Re: 26.0.90: mark-defun problem in c-mode]

[Stephen Leake]

Alan Mackenzie <acm@muc.de> writes:

> +          (eol (save-excursion (end-of-line) (point)))

You can use `line-end-position' for this.


-- 
-- Stephe

Re: beginning-of-defun-comments bug [was: Re: 26.0.90: mark-defun problem in c-mode]

[Alan Mackenzie]

Hello, Stephen.

On Sat, Dec 30, 2017 at 12:43:02 -0600, Stephen Leake wrote:
> Alan Mackenzie <acm@muc.de> writes:

> > +          (eol (save-excursion (end-of-line) (point)))

> You can use `line-end-position' for this.

Thanks!  I thought there was some function like that, but I couldn't
find `end-of-line-position', so gave up looking.

As it turns out, there's an already existing function
beginning-of-defun--in-emptyish-line-p in the same place in the code
which I ought to have spotted and used, which I surely will use in the
near future.

> -- 
> -- Stephe

-- 
Alan Mackenzie (Nuremberg, Germany).

Re: beginning-of-defun-comments bug [was: Re: 26.0.90: mark-defun problem in c-mode]

[Stefan Monnier]

> +      (if (nth 3 ppss)                  ; in a string
> +          start
> +        (when (nth 4 ppss)              ; in a comment
> +          (setq ppss
> +                (parse-partial-sexp (point) eol nil nil ppss 'syntax-table)))
> +        (catch 'got-it
> +          (while (< (point) eol)
> +            (setq start (point))
> +            (setq ppss (parse-partial-sexp (point) eol nil nil ppss t))
> +            (setq end (if (nth 4 ppss) (nth 8 ppss) eol))
> +            (goto-char start)
> +            (skip-syntax-forward "-" end)
> +            (when (< (point) end)
> +              (throw 'got-it (point)))
> +            (unless (forward-comment 1) ; comment straddles line break.
> +              (throw 'got-it nil))
> +            (setq ppss (syntax-ppss))))))))

Why not use something like

   (>= (forward-comment (point-max)) (line-end-position))

?


        Stefan

Re: beginning-of-defun-comments bug [was: Re: 26.0.90: mark-defun problem in c-mode]

[Alan Mackenzie]

Hello, Stefan.

On Sat, Dec 30, 2017 at 23:26:24 -0500, Stefan Monnier wrote:
> > +      (if (nth 3 ppss)                  ; in a string
> > +          start
> > +        (when (nth 4 ppss)              ; in a comment
> > +          (setq ppss
> > +                (parse-partial-sexp (point) eol nil nil ppss 'syntax-table)))
> > +        (catch 'got-it
> > +          (while (< (point) eol)
> > +            (setq start (point))
> > +            (setq ppss (parse-partial-sexp (point) eol nil nil ppss t))
> > +            (setq end (if (nth 4 ppss) (nth 8 ppss) eol))
> > +            (goto-char start)
> > +            (skip-syntax-forward "-" end)
> > +            (when (< (point) end)
> > +              (throw 'got-it (point)))
> > +            (unless (forward-comment 1) ; comment straddles line break.
> > +              (throw 'got-it nil))
> > +            (setq ppss (syntax-ppss))))))))

> Why not use something like

>    (>= (forward-comment (point-max)) (line-end-position))

> ?

Indeed.  Why not just use beginning-of-defun--in-emptyish-line-p, which
is in the same file, in the same place as I coded
non-syntactic-ws-in-line, yet I failed to notice it?  It is also
somewhat more elegantly coded than my new function.

However, beginning-of-defun--in-emptyish-line-p isn't quite right, in
that it fails to check whether BOL is inside a string.  Something like
the following (untested) should fix it:

(defun beginning-of-defun--in-emptyish-line-p ()
  "Return non-nil if the point is in an \"emptyish\" line.
This means a line that consists entirely of comments and/or
whitespace."
;; See https://lists.gnu.org/r/help-gnu-emacs/2016-08/msg00141.html
  (save-excursion
    (forward-line 0)
    (let ((ppss (syntax-ppss)))
      (and (null (nth 3 ppss))
           (< (line-end-position)
              (progn (when (nth 4 ppss)
                       (goto-char (nth 8 ppss)))
                     (forward-comment (point-max))
                     (point)))))))

Happy New Year!

>         Stefan

-- 
Alan Mackenzie (Nuremberg, Germany).