From mboxrd@z Thu Jan 1 00:00:00 1970 Path: news.gmane.org!.POSTED!not-for-mail From: dptd dptd Newsgroups: gmane.emacs.bugs Subject: bug#25565: mark-whole-buffer and unnecessary (point) call Date: Sat, 28 Jan 2017 23:24:02 +0200 Message-ID: <63A9E421-58EB-4E02-9F71-B250ADFB0BCD@gmail.com> References: <50AC4AE1-C37B-4BD7-BBB1-8680E60DCB1F@gmail.com> <83vaszxart.fsf@gnu.org> NNTP-Posting-Host: blaine.gmane.org Mime-Version: 1.0 (Mac OS X Mail 10.2 \(3259\)) Content-Type: text/plain; charset=utf-8 Content-Transfer-Encoding: quoted-printable X-Trace: blaine.gmane.org 1485638737 30384 195.159.176.226 (28 Jan 2017 21:25:37 GMT) X-Complaints-To: usenet@blaine.gmane.org NNTP-Posting-Date: Sat, 28 Jan 2017 21:25:37 +0000 (UTC) Cc: 25565@debbugs.gnu.org To: Eli Zaretskii Original-X-From: bug-gnu-emacs-bounces+geb-bug-gnu-emacs=m.gmane.org@gnu.org Sat Jan 28 22:25:29 2017 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 1cXaUn-0006Ku-Sn for geb-bug-gnu-emacs@m.gmane.org; Sat, 28 Jan 2017 22:25:18 +0100 Original-Received: from localhost ([::1]:53197 helo=lists.gnu.org) by lists.gnu.org with esmtp (Exim 4.71) (envelope-from ) id 1cXaUt-0005a8-Ax for geb-bug-gnu-emacs@m.gmane.org; Sat, 28 Jan 2017 16:25:23 -0500 Original-Received: from eggs.gnu.org ([2001:4830:134:3::10]:47955) by lists.gnu.org with esmtp (Exim 4.71) (envelope-from ) id 1cXaUe-0005Tb-Ee for bug-gnu-emacs@gnu.org; Sat, 28 Jan 2017 16:25:14 -0500 Original-Received: from Debian-exim by eggs.gnu.org with spam-scanned (Exim 4.71) (envelope-from ) id 1cXaUY-0004Mb-CO for bug-gnu-emacs@gnu.org; Sat, 28 Jan 2017 16:25:08 -0500 Original-Received: from debbugs.gnu.org ([208.118.235.43]:51278) by eggs.gnu.org with esmtps (TLS1.0:RSA_AES_128_CBC_SHA1:16) (Exim 4.71) (envelope-from ) id 1cXaUY-0004MX-8M for bug-gnu-emacs@gnu.org; Sat, 28 Jan 2017 16:25:02 -0500 Original-Received: from Debian-debbugs by debbugs.gnu.org with local (Exim 4.84_2) (envelope-from ) id 1cXaUY-0003VA-2e for bug-gnu-emacs@gnu.org; Sat, 28 Jan 2017 16:25:02 -0500 X-Loop: help-debbugs@gnu.org Resent-From: dptd dptd Original-Sender: "Debbugs-submit" Resent-CC: bug-gnu-emacs@gnu.org Resent-Date: Sat, 28 Jan 2017 21:25:02 +0000 Resent-Message-ID: Resent-Sender: help-debbugs@gnu.org X-GNU-PR-Message: followup 25565 X-GNU-PR-Package: emacs X-GNU-PR-Keywords: Original-Received: via spool by 25565-submit@debbugs.gnu.org id=B25565.148563865313395 (code B ref 25565); Sat, 28 Jan 2017 21:25:02 +0000 Original-Received: (at 25565) by debbugs.gnu.org; 28 Jan 2017 21:24:13 +0000 Original-Received: from localhost ([127.0.0.1]:49477 helo=debbugs.gnu.org) by debbugs.gnu.org with esmtp (Exim 4.84_2) (envelope-from ) id 1cXaTk-0003Tz-IN for submit@debbugs.gnu.org; Sat, 28 Jan 2017 16:24:13 -0500 Original-Received: from mail-wm0-f67.google.com ([74.125.82.67]:34711) by debbugs.gnu.org with esmtp (Exim 4.84_2) (envelope-from ) id 1cXaTi-0003Tl-LT for 25565@debbugs.gnu.org; Sat, 28 Jan 2017 16:24:11 -0500 Original-Received: by mail-wm0-f67.google.com with SMTP id c85so67120152wmi.1 for <25565@debbugs.gnu.org>; Sat, 28 Jan 2017 13:24:10 -0800 (PST) DKIM-Signature: v=1; a=rsa-sha256; c=relaxed/relaxed; d=gmail.com; s=20161025; h=mime-version:subject:from:in-reply-to:date:cc :content-transfer-encoding:message-id:references:to; bh=szXNOpMr+G8hd13LTQ2fNGqO+XH0gXnga4cF+m3Dciw=; b=NPry84IDWm1T1pj0pEa6gebGn+AVvHzx6Iw7fK+rwQFIt+UjIa3sDEoSO0Uhr+2522 6ImdgB44E4aYAcalcgrjaYrVye6FPR2xVn0+hAN2piHba1dqJfFxWqQ4jsZs1/RdCgsq 51ESh7h+maWdB0WBQvzRj41kOGzmbCpWqTUMhawUHXhX5Ef21NudB5OumrM5YeRbkdIe PE1SXbR2Yqpor0K8No4z1rItXguSMhHKcBfNVx/bq+o8lbIBxoGCwxBJxwDZ0S6ici/m wTQMsnPbSAZOe2aYM6bokoZRKaeuk06PkV6pTFCwpQeAP2BFRXl3fHyinTDs1RBzJE9D Miwg== X-Google-DKIM-Signature: v=1; a=rsa-sha256; c=relaxed/relaxed; d=1e100.net; s=20161025; h=x-gm-message-state:mime-version:subject:from:in-reply-to:date:cc :content-transfer-encoding:message-id:references:to; bh=szXNOpMr+G8hd13LTQ2fNGqO+XH0gXnga4cF+m3Dciw=; b=bukwIEnVteXQ8Z2SJz8xAAoZY0Y0S2xNmK8Vk5hiRERDubV5H2vQ3UULgJ63U89jb8 +BFcKAYat57B7yekUq7IgD07AD2ieTVtG12uagS8mOG2zGC9OxV5b5xPLZQE6taxEmPD 6rfKuhpfv1GA7vowt0YW2dsMXM2rhr7qxiw/3AxcD34pPHNHk7qgqTSRUNS0AODZa+yn kSv9qL7VrvVvjzorzUqVhMMtogF6n3sEx4qrdF7E7IKNCatyw+VHBh0uVXybW235emzr d0F495+L8hKeYhLrqbeLLAY6oIqlWxe4bWKugmnoC8cti0QWvyYEyxFqwwL4Es5EZjFi BtwQ== X-Gm-Message-State: AIkVDXK0Wx6ElSa24QjaO4Q6Nv1q/6mecVHpqhhSOJD3B45Ac7yc5uxlLEEiPOExB0c8Iw== X-Received: by 10.223.131.193 with SMTP id 59mr12569291wre.186.1485638644422; Sat, 28 Jan 2017 13:24:04 -0800 (PST) Original-Received: from [192.168.60.140] ([212.50.23.124]) by smtp.gmail.com with ESMTPSA id l37sm14632443wrc.41.2017.01.28.13.24.03 (version=TLS1_2 cipher=ECDHE-RSA-AES128-GCM-SHA256 bits=128/128); Sat, 28 Jan 2017 13:24:03 -0800 (PST) In-Reply-To: <83vaszxart.fsf@gnu.org> X-Mailer: Apple Mail (2.3259) 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:128738 Archived-At: > On 28 Jan 2017, at 21:08, Eli Zaretskii wrote: >=20 >> From: dptd dptd >> Date: Sat, 28 Jan 2017 17:33:00 +0200 >>=20 >> This is my first patch so please let me know if I am doing something = wrong in the process. >> I do not know if I should sent just the plain diff file without any = =E2=80=98introduction=E2=80=99 but let me just >> say that today I have created thread (same name) on emacs-devel = mailing list about this >> change and I am not pasting it here because I do not (yet!) know if I = should. >=20 > Thanks. This lacks a ChangeLog-style commit log message, naming every > function where you made a change. See CONTRIBUTE for the details. >=20 > Other than that, we will wait until your legal paperwork is done. Perfect. I wasn=E2=80=99t able to find similar case to mine in the = current git log where someone has changed the same function in plenty of files. It looks really strange to = copy-and-paste the same explanation for each file / function. Hope it is better now. Btw. why in = my patch next to the ID is so strange date? Mon Sep 17 00:00:00 2001? =46rom 0398ad77868139db089a61dc2700230c98964f3a Mon Sep 17 00:00:00 2001 From: Bartosz Duszel Date: Sat, 28 Jan 2017 13:00:12 +0200 Subject: [PATCH] Removed explicit call to (point) function in = (push-mark) calls * lisp/allout.el (allout-mark-topic): When there are no arguments passed = to the (push-mark) function then current point position is being used by default. * lisp/cedet/semantic/senator.el (senator-mark-defun): When there are no arguments passed to the (push-mark) function then current point position is being used by default. * lisp/emulation/viper-cmd.el (viper-mark-beginning-of-buffer): When there are no arguments passed to the (push-mark) function then current point position is being used by default. * lisp/emulation/viper-cmd.el (viper-mark-end-of-buffer): When there are no arguments passed to the (push-mark) function then current point position is being used by default. * lisp/hexl.el (hexl-beginning-of-buffer): When there are no arguments passed to the (push-mark) function then current point position is being used by default. * lisp/hexl.el (hexl-end-of-buffer): When there are no arguments passed = to the (push-mark) function then current point position is being used by default. * lisp/mail/sendmail.el (mail-yank-original): When there are no arguments passed to the (push-mark) function then current point position is being used by default. * lisp/menu-bar.el (menu-bar-select-yank): When there are no arguments passed to the (push-mark) function then current point position is = being used by default. * lisp/mouse.el (mouse-yank-primary): When there are no arguments passed = to the (push-mark) function then current point position is being used by default. * lisp/obsolete/vi.el (vi-put-before): When there are no arguments = passed to the (push-mark) function then current point position is being used by default. * lisp/obsolete/vip.el (ex-goto): When there are no arguments passed to the (push-mark) function then current point position is being used by default. * lisp/progmodes/cc-cmds.el (c-mark-function): When there are no arguments passed to the (push-mark) function then current point position is being used by default. * lisp/progmodes/icon.el (mark-icon-function): When there are no arguments passed to the (push-mark) function then current point position is being used by default. * lisp/progmodes/meta-mode.el (meta-mark-defun): When there are no arguments passed to the (push-mark) function then current point position is being used by default. * lisp/progmodes/pascal.el (pascal-mark-defun): When there are no arguments passed to the (push-mark) function then current point position is being used by default. * lisp/progmodes/perl-mode.el (perl-mark-function): When there are no arguments passed to the (push-mark) function then current point position is being used by default. * lisp/progmodes/verilog-mode.el (verilog-mark-defun): When there are no arguments passed to the (push-mark) function then current point position is being used by default. * lisp/progmodes/xscheme.el (xscheme-yank): When there are no arguments passed to the (push-mark) function then current point position is being used by default. * lisp/ses.el (ses--advice-yank): When there are no arguments passed to the (push-mark) function then current point position is being used by default. * lisp/ses.el (ses-mark-row): When there are no arguments passed to the (push-mark) function then current point position is being used by default. * lisp/ses.el (ses-mark-column): When there are no arguments passed to the (push-mark) function then current point position is being used by default. * lisp/simple.el (mark-whole-buffer): When there are no arguments passed = to the (push-mark) function then current point position is being used by default. * lisp/simple.el (yank): When there are no arguments passed to the (push-mark) function then current point position is being used by default. * lisp/textmodes/bib-mode.el (mark-bib): When there are no arguments = passed to the (push-mark) function then current point position is being used by default. --- lisp/allout.el | 2 +- lisp/cedet/semantic/senator.el | 2 +- lisp/emulation/viper-cmd.el | 4 ++-- lisp/hexl.el | 4 ++-- lisp/mail/sendmail.el | 2 +- lisp/menu-bar.el | 2 +- lisp/mouse.el | 2 +- lisp/obsolete/vi.el | 2 +- lisp/obsolete/vip.el | 2 +- lisp/progmodes/cc-cmds.el | 2 +- lisp/progmodes/icon.el | 4 ++-- lisp/progmodes/meta-mode.el | 2 +- lisp/progmodes/pascal.el | 4 ++-- lisp/progmodes/perl-mode.el | 4 ++-- lisp/progmodes/verilog-mode.el | 4 ++-- lisp/progmodes/xscheme.el | 2 +- lisp/ses.el | 6 +++--- lisp/simple.el | 4 ++-- lisp/textmodes/bib-mode.el | 2 +- 19 files changed, 28 insertions(+), 28 deletions(-) diff --git a/lisp/allout.el b/lisp/allout.el index 4a0aeeedf6..c6368cd54d 100644 --- a/lisp/allout.el +++ b/lisp/allout.el @@ -6504,7 +6504,7 @@ allout-mark-topic (let ((inhibit-field-text-motion t)) (beginning-of-line)) (allout-goto-prefix-doublechecked) - (push-mark (point)) + (push-mark) (allout-end-of-current-subtree) (exchange-point-and-mark)) ;;;_ : UI: diff --git a/lisp/cedet/semantic/senator.el = b/lisp/cedet/semantic/senator.el index 407bb05add..f1918c4091 100644 --- a/lisp/cedet/semantic/senator.el +++ b/lisp/cedet/semantic/senator.el @@ -659,7 +659,7 @@ senator-mark-defun (end (progn (senator-end-of-defun) (point))) (start (progn (senator-beginning-of-defun) (point)))) (goto-char origin) - (push-mark (point)) + (push-mark) (goto-char end) ;; end-of-defun (push-mark (point) nil t) (goto-char start) ;; beginning-of-defun diff --git a/lisp/emulation/viper-cmd.el b/lisp/emulation/viper-cmd.el index 86364282dc..e71bf0e37a 100644 --- a/lisp/emulation/viper-cmd.el +++ b/lisp/emulation/viper-cmd.el @@ -4346,7 +4346,7 @@ viper-query-replace (defun viper-mark-beginning-of-buffer () "Mark beginning of buffer." (interactive) - (push-mark (point)) + (push-mark) (goto-char (point-min)) (exchange-point-and-mark) (message "Mark set at the beginning of buffer")) @@ -4354,7 +4354,7 @@ viper-mark-beginning-of-buffer (defun viper-mark-end-of-buffer () "Mark end of buffer." (interactive) - (push-mark (point)) + (push-mark) (goto-char (point-max)) (exchange-point-and-mark) (message "Mark set at the end of buffer")) diff --git a/lisp/hexl.el b/lisp/hexl.el index b5e9c1ff33..0a598b22f6 100644 --- a/lisp/hexl.el +++ b/lisp/hexl.el @@ -730,13 +730,13 @@ hexl-beginning-of-buffer Leaves `hexl-mark' at previous position. With prefix arg N, puts point N bytes of the way from the true = beginning." (interactive "p") - (push-mark (point)) + (push-mark) (hexl-goto-address (+ 0 (1- arg)))) =20 (defun hexl-end-of-buffer (arg) "Go to `hexl-max-address' minus ARG." (interactive "p") - (push-mark (point)) + (push-mark) (hexl-goto-address (- hexl-max-address (1- arg)))) =20 (defun hexl-beginning-of-line () diff --git a/lisp/mail/sendmail.el b/lisp/mail/sendmail.el index 70c8ea1f93..4121cd773b 100644 --- a/lisp/mail/sendmail.el +++ b/lisp/mail/sendmail.el @@ -1676,7 +1676,7 @@ mail-yank-original ;; Call yank function, and set the mark if it doesn't. (apply (car original) (cdr original)) (if (eq omark (mark t)) - (push-mark (point)))) + (push-mark))) ;; If the original message is in another window in the same ;; frame, delete that window to save space. (delete-windows-on original t) diff --git a/lisp/menu-bar.el b/lisp/menu-bar.el index 28464f13df..c2733a5892 100644 --- a/lisp/menu-bar.el +++ b/lisp/menu-bar.el @@ -1971,7 +1971,7 @@ menu-bar-select-yank "Insert the stretch of previously-killed text selected from menu. The menu shows all the killed text sequences stored in `kill-ring'." (interactive "*") - (push-mark (point)) + (push-mark) (insert last-command-event)) =20 =0C diff --git a/lisp/mouse.el b/lisp/mouse.el index 0f1d446040..0520fd1ab9 100644 --- a/lisp/mouse.el +++ b/lisp/mouse.el @@ -1135,7 +1135,7 @@ mouse-yank-primary (deactivate-mark))) (or mouse-yank-at-point (mouse-set-point click)) (let ((primary (gui-get-primary-selection))) - (push-mark (point)) + (push-mark) (insert-for-yank primary))) =20 (defun mouse-kill-ring-save (click) diff --git a/lisp/obsolete/vi.el b/lisp/obsolete/vi.el index 081b229ebc..5b611aa2d0 100644 --- a/lisp/obsolete/vi.el +++ b/lisp/obsolete/vi.el @@ -1128,7 +1128,7 @@ vi-put-before (progn (forward-line 1) (beginning-of-line)) (beginning-of-line)) (if after-p (forward-char 1))) - (push-mark (point)) + (push-mark) (insert put-text) (exchange-point-and-mark) ;; (back-to-indentation) ; this is not allowed if we allow = yank-pop diff --git a/lisp/obsolete/vip.el b/lisp/obsolete/vip.el index ca0bfe712c..4d70d6a5df 100644 --- a/lisp/obsolete/vip.el +++ b/lisp/obsolete/vip.el @@ -2596,7 +2596,7 @@ ex-goto "ex goto command" (if (null ex-addresses) (setq ex-addresses (cons (point) nil))) - (push-mark (point)) + (push-mark) (goto-char (car ex-addresses)) (beginning-of-line)) =20 diff --git a/lisp/progmodes/cc-cmds.el b/lisp/progmodes/cc-cmds.el index 561e6767e1..a5ddcb4b92 100644 --- a/lisp/progmodes/cc-cmds.el +++ b/lisp/progmodes/cc-cmds.el @@ -2041,7 +2041,7 @@ c-mark-function (push-mark-p (and (eq this-command 'c-mark-function) (not extend-region-p) (not (c-region-is-active-p))))) - (if push-mark-p (push-mark (point))) + (if push-mark-p (push-mark)) (if extend-region-p (progn (exchange-point-and-mark) diff --git a/lisp/progmodes/icon.el b/lisp/progmodes/icon.el index 0c699a00e8..92a89fef70 100644 --- a/lisp/progmodes/icon.el +++ b/lisp/progmodes/icon.el @@ -459,9 +459,9 @@ icon-backward-to-start-of-if (defun mark-icon-function () "Put mark at end of Icon function, point at beginning." (interactive) - (push-mark (point)) + (push-mark) (end-of-icon-defun) - (push-mark (point)) + (push-mark) (beginning-of-line 0) (beginning-of-icon-defun)) =20 diff --git a/lisp/progmodes/meta-mode.el b/lisp/progmodes/meta-mode.el index 3db3b8ad73..3377226388 100644 --- a/lisp/progmodes/meta-mode.el +++ b/lisp/progmodes/meta-mode.el @@ -780,7 +780,7 @@ meta-mark-defun "Put mark at end of the environment, point at the beginning. The environment marked is the one that contains point or follows = point." (interactive) - (push-mark (point)) + (push-mark) (meta-end-of-defun) (push-mark (point) nil t) (meta-beginning-of-defun)) diff --git a/lisp/progmodes/pascal.el b/lisp/progmodes/pascal.el index bf49ba4a36..a7d0624a74 100644 --- a/lisp/progmodes/pascal.el +++ b/lisp/progmodes/pascal.el @@ -507,9 +507,9 @@ pascal-mark-defun "Mark the current Pascal function (or procedure). This puts the mark at the end, and point at the beginning." (interactive) - (push-mark (point)) + (push-mark) (pascal-end-of-defun) - (push-mark (point)) + (push-mark) (pascal-beg-of-defun) (when (featurep 'xemacs) (zmacs-activate-region))) diff --git a/lisp/progmodes/perl-mode.el b/lisp/progmodes/perl-mode.el index a516f07e72..1880bdd040 100644 --- a/lisp/progmodes/perl-mode.el +++ b/lisp/progmodes/perl-mode.el @@ -1102,9 +1102,9 @@ 'mark-perl-function (defun perl-mark-function () "Put mark at end of Perl function, point at beginning." (interactive) - (push-mark (point)) + (push-mark) (perl-end-of-function) - (push-mark (point)) + (push-mark) (perl-beginning-of-function) (backward-paragraph)) =20 diff --git a/lisp/progmodes/verilog-mode.el = b/lisp/progmodes/verilog-mode.el index 48ee55500f..9f3bad1c1a 100644 --- a/lisp/progmodes/verilog-mode.el +++ b/lisp/progmodes/verilog-mode.el @@ -4212,9 +4212,9 @@ verilog-mark-defun (interactive) (if (featurep 'xemacs) (progn - (push-mark (point)) + (push-mark) (verilog-end-of-defun) - (push-mark (point)) + (push-mark) (verilog-beg-of-defun) (if (fboundp 'zmacs-activate-region) (zmacs-activate-region))) diff --git a/lisp/progmodes/xscheme.el b/lisp/progmodes/xscheme.el index 4502c6d33f..bdfe30af50 100644 --- a/lisp/progmodes/xscheme.el +++ b/lisp/progmodes/xscheme.el @@ -580,7 +580,7 @@ xscheme-yank (xscheme-rotate-yank-pointer (if (listp arg) 0 (if (eq arg '-) -1 (1- arg)))) - (push-mark (point)) + (push-mark) (insert (car xscheme-expressions-ring-yank-pointer)) (if (consp arg) (exchange-point-and-mark))) diff --git a/lisp/ses.el b/lisp/ses.el index 76d4ca577d..f8fd17d0de 100644 --- a/lisp/ses.el +++ b/lisp/ses.el @@ -3023,7 +3023,7 @@ ses--advice-yank (eq (get-text-property (point) 'keymap) = 'ses-mode-print-map))) (apply yank-fun arg args) ; Normal non-SES yank. (ses-check-curcell 'end) - (push-mark (point)) + (push-mark) (let ((text (current-kill (cond ((listp arg) 0) ((eq arg '-) -1) @@ -3290,7 +3290,7 @@ ses-mark-row (interactive) (ses-check-curcell 'range) (let ((row (car (ses-sym-rowcol (or (car-safe ses--curcell) = ses--curcell))))) - (push-mark (point)) + (push-mark) (ses-goto-print (1+ row) 0) (push-mark (point) nil t) (ses-goto-print row 0))) @@ -3301,7 +3301,7 @@ ses-mark-column (ses-check-curcell 'range) (let ((col (cdr (ses-sym-rowcol (or (car-safe ses--curcell) = ses--curcell)))) (row 0)) - (push-mark (point)) + (push-mark) (ses-goto-print (1- ses--numrows) col) (forward-char 1) (push-mark (point) nil t) diff --git a/lisp/simple.el b/lisp/simple.el index bdc6abde1f..281d9766aa 100644 --- a/lisp/simple.el +++ b/lisp/simple.el @@ -1105,7 +1105,7 @@ mark-whole-buffer that uses or sets the mark." (declare (interactive-only t)) (interactive) - (push-mark (point)) + (push-mark) (push-mark (point-max) nil t) ;; This is really `point-min' in most cases, but if we're in the ;; minibuffer, this is at the end of the prompt. @@ -4858,7 +4858,7 @@ yank ;; If we don't get all the way thru, make last-command indicate that ;; for the following command. (setq this-command t) - (push-mark (point)) + (push-mark) (insert-for-yank (current-kill (cond ((listp arg) 0) ((eq arg '-) -2) diff --git a/lisp/textmodes/bib-mode.el b/lisp/textmodes/bib-mode.el index 74d214496e..2f3c17b3b2 100644 --- a/lisp/textmodes/bib-mode.el +++ b/lisp/textmodes/bib-mode.el @@ -181,7 +181,7 @@ mark-bib (re-search-backward "^ *$" nil 2) (re-search-forward "^%") (beginning-of-line nil) - (push-mark (point)) + (push-mark) (re-search-forward "^ *$" nil 2) (forward-line 1) (beginning-of-line nil)) --=20 2.11.0