From mboxrd@z Thu Jan 1 00:00:00 1970 Path: news.gmane.org!.POSTED!not-for-mail From: Marcin Borkowski Newsgroups: gmane.emacs.bugs Subject: bug#21072: 24.5; inconsistent behaviour of `C-M-h (mark-defun)' in Emacs Lisp Date: Wed, 02 Nov 2016 08:28:16 +0100 Message-ID: <87shra8hnz.fsf@mbork.pl> References: <55A74B3C.8030608@gmail.com> <87k2jm2bay.fsf@amu.edu.pl> <83r3dln1ez.fsf@gnu.org> <87y47tzn0v.fsf@mbork.pl> <83lh3tmyzv.fsf@gnu.org> <87twihzhni.fsf@mbork.pl> <83fuu1mu25.fsf@gnu.org> <87eg9jynn0.fsf@mbork.pl> <83h9edkhjs.fsf@gnu.org> <874mabe5h6.fsf@mbork.pl> <83twibfil2.fsf@gnu.org> <87y47mcywp.fsf@mbork.pl> <87bmyrvzh1.fsf@mbork.pl> <878ttux198.fsf@mbork.pl> <366cfd22-c35c-4980-bc81-7f6df6c180a0@default> NNTP-Posting-Host: blaine.gmane.org Mime-Version: 1.0 Content-Type: text/plain X-Trace: blaine.gmane.org 1478071942 26541 195.159.176.226 (2 Nov 2016 07:32:22 GMT) X-Complaints-To: usenet@blaine.gmane.org NNTP-Posting-Date: Wed, 2 Nov 2016 07:32:22 +0000 (UTC) User-Agent: mu4e 0.9.17; emacs 26.0.50.3 Cc: rfflrccrd@gmail.com, 21072@debbugs.gnu.org To: Drew Adams Original-X-From: bug-gnu-emacs-bounces+geb-bug-gnu-emacs=m.gmane.org@gnu.org Wed Nov 02 08:32:18 2016 Return-path: Envelope-to: geb-bug-gnu-emacs@m.gmane.org Original-Received: from lists.gnu.org ([208.118.235.17]) by blaine.gmane.org with esmtp (Exim 4.84_2) (envelope-from ) id 1c1q1q-0005Uv-1K for geb-bug-gnu-emacs@m.gmane.org; Wed, 02 Nov 2016 08:32:10 +0100 Original-Received: from localhost ([::1]:53115 helo=lists.gnu.org) by lists.gnu.org with esmtp (Exim 4.71) (envelope-from ) id 1c1q1s-00072u-QC for geb-bug-gnu-emacs@m.gmane.org; Wed, 02 Nov 2016 03:32:12 -0400 Original-Received: from eggs.gnu.org ([2001:4830:134:3::10]:42116) by lists.gnu.org with esmtp (Exim 4.71) (envelope-from ) id 1c1pyr-0004Yp-S3 for bug-gnu-emacs@gnu.org; Wed, 02 Nov 2016 03:29:06 -0400 Original-Received: from Debian-exim by eggs.gnu.org with spam-scanned (Exim 4.71) (envelope-from ) id 1c1pyo-0008HD-NY for bug-gnu-emacs@gnu.org; Wed, 02 Nov 2016 03:29:05 -0400 Original-Received: from debbugs.gnu.org ([208.118.235.43]:52548) by eggs.gnu.org with esmtps (TLS1.0:RSA_AES_128_CBC_SHA1:16) (Exim 4.71) (envelope-from ) id 1c1pyo-0008H1-K0 for bug-gnu-emacs@gnu.org; Wed, 02 Nov 2016 03:29:02 -0400 Original-Received: from Debian-debbugs by debbugs.gnu.org with local (Exim 4.84_2) (envelope-from ) id 1c1pyn-0001PO-QA for bug-gnu-emacs@gnu.org; Wed, 02 Nov 2016 03:29:01 -0400 X-Loop: help-debbugs@gnu.org Resent-From: Marcin Borkowski Original-Sender: "Debbugs-submit" Resent-CC: bug-gnu-emacs@gnu.org Resent-Date: Wed, 02 Nov 2016 07:29:01 +0000 Resent-Message-ID: Resent-Sender: help-debbugs@gnu.org X-GNU-PR-Message: followup 21072 X-GNU-PR-Package: emacs X-GNU-PR-Keywords: Original-Received: via spool by 21072-submit@debbugs.gnu.org id=B21072.14780716975356 (code B ref 21072); Wed, 02 Nov 2016 07:29:01 +0000 Original-Received: (at 21072) by debbugs.gnu.org; 2 Nov 2016 07:28:17 +0000 Original-Received: from localhost ([127.0.0.1]:39714 helo=debbugs.gnu.org) by debbugs.gnu.org with esmtp (Exim 4.84_2) (envelope-from ) id 1c1py4-0001OJ-TF for submit@debbugs.gnu.org; Wed, 02 Nov 2016 03:28:17 -0400 Original-Received: from mail.mojserwer.eu ([195.110.48.8]:49543) by debbugs.gnu.org with esmtp (Exim 4.84_2) (envelope-from ) id 1c1py3-0001OB-30 for 21072@debbugs.gnu.org; Wed, 02 Nov 2016 03:28:15 -0400 Original-Received: from localhost (localhost [127.0.0.1]) by mail.mojserwer.eu (Postfix) with ESMTP id B1C2721200B; Wed, 2 Nov 2016 08:28:13 +0100 (CET) X-Virus-Scanned: Debian amavisd-new at mail.mojserwer.eu Original-Received: from mail.mojserwer.eu ([127.0.0.1]) by localhost (mail.mojserwer.eu [127.0.0.1]) (amavisd-new, port 10024) with ESMTP id fueBi8ZD9W-s; Wed, 2 Nov 2016 08:28:11 +0100 (CET) Original-Received: from localhost (static-dwadziewiec-jedenpiec7.echostar.pl [109.232.29.157]) by mail.mojserwer.eu (Postfix) with ESMTPSA id 20AB4212009; Wed, 2 Nov 2016 08:28:11 +0100 (CET) In-reply-to: <366cfd22-c35c-4980-bc81-7f6df6c180a0@default> 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: 208.118.235.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:125260 Archived-At: On 2016-10-11, at 23:15, Drew Adams wrote: > 3. With this at the top of *scratch* (note the blank line at top) > and point between the comment and the defun, each of `M-- C-M-h' > and `C-M-h' seems to loop indefinitely. > > -------------8<---------------- > > ;; This buffer is for notes you don't want to save, and for Lisp evaluation. > ;; If you want to create a file, visit that file with C-x C-f, > ;; then enter the text in that file's own buffer. > > (defun a () > nil) > -------------8<---------------- > > 4. And with the same thing, but without the blank line at the top, > both `M-- C-M-h' and `C-M-h' select the defun plus the comment, > except that they do not select the first comment line. Intended? Well, both these behaviors are manifestations of the same bug. Below is the corrected version. (And below that a question.) --8<---------------cut here---------------start------------->8--- (defun mark-defun (&optional arg) "Put mark at end of this defun, point at beginning. The defun marked is the one that contains point or follows point. With positive ARG, mark this and that many next defuns. If the mark is active, it marks the next defun after the one(s) already marked. With positive ARG, mark that many more defuns. With negative ARG, mark that many more previous defuns." (interactive "p") (setq arg (or arg 1)) (cond ((use-region-p) (if (>= arg 0) (set-mark (save-excursion (goto-char (mark)) ;; change the dotimes below to (end-of-defun arg) once bug #24427 is fixed (dotimes (_ignore arg) (end-of-defun)) (point))) (beginning-of-defun-comments (- arg)))) (t (let ((opoint (point)) beg end) (push-mark opoint) ;; Try first in this order for the sake of languages with nested ;; functions where several can end at the same place as with the ;; offside rule, e.g. Python. (beginning-of-defun-comments) (setq beg (point)) (end-of-defun) (setq end (point)) (when (and (<= (point) opoint) (> arg 0)) ;; beginning-of-defun moved back one defun so we got the wrong ;; one. If ARG < 0, however, we actually want to go back. (goto-char opoint) (end-of-defun) (setq end (point)) (beginning-of-defun-comments) (setq beg (point))) (goto-char beg) (cond ((> arg 0) ;; change the dotimes below to (end-of-defun arg) once bug #24427 is fixed (dotimes (_ignore arg) (end-of-defun)) (setq end (point)) (push-mark end nil t) (goto-char beg)) (t (goto-char beg) (beginning-of-defun (1- (- arg))) (push-mark end nil t)))))) (while (progn (forward-line -1) (and (looking-at "^\\s-*$") (not (bobp))))) (or (bobp) (forward-line 1))) --8<---------------cut here---------------end--------------->8--- > 6. Interactively, I would rather see repeated use of `C-M-h', after an > initial use of `C-M-h' with a negative prefix arg (e.g. `M-- C-M-h'), > continue to select defuns backward. IOW, not need to use `M--' > explicitly for each `C-M-h'. > > You can just hold down `C-M-h', to select multiple defuns forward. > I would like to be able to do the same thing, but backward, by > using `M-- C-M-h C-M-h C-M-h C-M-h...' (just hold down the chord). > > If you do that, then a negative prefix arg should not mean backward; > it should just mean change direction (backward if previous command > was not `mark-defun'). Just to be sure: you mean only the minus sign as argument, not a negative number? I'm also wondering whether to allow that for non-interactive use, too: I'm pretty sure nobody would want to call (mark-defun '-) from Lisp code, and it might make testing slightly easier. Best, -- Marcin Borkowski