diff options
| author | Bartosz Duszel <bartosz.duszel@gmail.com> | 2017-04-28 11:25:26 +0300 |
|---|---|---|
| committer | Eli Zaretskii <eliz@gnu.org> | 2017-04-28 11:25:26 +0300 |
| commit | 6a151cf8d5202ddde5d190dad542dadc26b66b93 (patch) | |
| tree | b5d97ffd1d8bced84ba407819db18e994a08893a /lisp/ses.el | |
| parent | cee4128135d0d9fd6032a0134b649d5fc81370c0 (diff) | |
| download | emacs-6a151cf8d5202ddde5d190dad542dadc26b66b93.tar.gz | |
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/ses.el')
| -rw-r--r-- | lisp/ses.el | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/lisp/ses.el b/lisp/ses.el index 0fcd50c9734..fd7174d383d 100644 --- a/lisp/ses.el +++ b/lisp/ses.el @@ -3028,7 +3028,7 @@ as symbols." (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) @@ -3295,7 +3295,7 @@ The top row is row 1. Selecting row 0 displays the default header 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))) @@ -3306,7 +3306,7 @@ The top row is row 1. Selecting row 0 displays the default header row." (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) |