From 6a151cf8d5202ddde5d190dad542dadc26b66b93 Mon Sep 17 00:00:00 2001 From: Bartosz Duszel Date: Fri, 28 Apr 2017 11:25:26 +0300 Subject: Don't pass the value of point to 'push-mark', as that's the default. * lisp/textmodes/bib-mode.el (mark-bib): * lisp/simple.el (mark-whole-buffer, yank): * lisp/ses.el (ses--advice-yank, ses-mark-row, ses-mark-column): * lisp/progmodes/xscheme.el (xscheme-yank): * lisp/progmodes/verilog-mode.el (verilog-mark-defun): * lisp/progmodes/perl-mode.el (perl-mark-function): * lisp/progmodes/pascal.el (pascal-mark-defun): * lisp/progmodes/meta-mode.el (meta-mark-defun): * lisp/progmodes/icon.el (mark-icon-function): * lisp/progmodes/cc-cmds.el (c-mark-function): * lisp/obsolete/vip.el (ex-goto): * lisp/obsolete/vi.el (vi-put-before): * lisp/mouse.el (mouse-yank-primary): * lisp/menu-bar.el (menu-bar-select-yank): * lisp/mail/sendmail.el (mail-yank-original): * lisp/hexl.el (hexl-beginning-of-buffer, hexl-end-of-buffer): * lisp/emulation/viper-cmd.el (viper-mark-beginning-of-buffer) (viper-mark-end-of-buffer): * lisp/cedet/semantic/senator.el (senator-mark-defun): * lisp/allout.el (allout-mark-topic): Remove unnecessary argument `(point)' from calls to `push-mark'. (Bug#25565) --- lisp/progmodes/pascal.el | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) (limited to 'lisp/progmodes/pascal.el') diff --git a/lisp/progmodes/pascal.el b/lisp/progmodes/pascal.el index bf49ba4a363..a7d0624a74a 100644 --- a/lisp/progmodes/pascal.el +++ b/lisp/progmodes/pascal.el @@ -507,9 +507,9 @@ See also the user variables `pascal-type-keywords', `pascal-start-keywords' and "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))) -- cgit v1.2.3