aboutsummaryrefslogtreecommitdiffstats
path: root/lisp/emulation
diff options
context:
space:
mode:
authorBartosz Duszel2017-04-28 11:25:26 +0300
committerEli Zaretskii2017-04-28 11:25:26 +0300
commit6a151cf8d5202ddde5d190dad542dadc26b66b93 (patch)
treeb5d97ffd1d8bced84ba407819db18e994a08893a /lisp/emulation
parentcee4128135d0d9fd6032a0134b649d5fc81370c0 (diff)
downloademacs-6a151cf8d5202ddde5d190dad542dadc26b66b93.tar.gz
emacs-6a151cf8d5202ddde5d190dad542dadc26b66b93.zip
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)
Diffstat (limited to 'lisp/emulation')
-rw-r--r--lisp/emulation/viper-cmd.el4
1 files changed, 2 insertions, 2 deletions
diff --git a/lisp/emulation/viper-cmd.el b/lisp/emulation/viper-cmd.el
index aa31fac32cc..831b9c1ac28 100644
--- a/lisp/emulation/viper-cmd.el
+++ b/lisp/emulation/viper-cmd.el
@@ -4346,7 +4346,7 @@ and regexp replace."
4346(defun viper-mark-beginning-of-buffer () 4346(defun viper-mark-beginning-of-buffer ()
4347 "Mark beginning of buffer." 4347 "Mark beginning of buffer."
4348 (interactive) 4348 (interactive)
4349 (push-mark (point)) 4349 (push-mark)
4350 (goto-char (point-min)) 4350 (goto-char (point-min))
4351 (exchange-point-and-mark) 4351 (exchange-point-and-mark)
4352 (message "Mark set at the beginning of buffer")) 4352 (message "Mark set at the beginning of buffer"))
@@ -4354,7 +4354,7 @@ and regexp replace."
4354(defun viper-mark-end-of-buffer () 4354(defun viper-mark-end-of-buffer ()
4355 "Mark end of buffer." 4355 "Mark end of buffer."
4356 (interactive) 4356 (interactive)
4357 (push-mark (point)) 4357 (push-mark)
4358 (goto-char (point-max)) 4358 (goto-char (point-max))
4359 (exchange-point-and-mark) 4359 (exchange-point-and-mark)
4360 (message "Mark set at the end of buffer")) 4360 (message "Mark set at the end of buffer"))