(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:
(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
(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"))
(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"))
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))))
(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))))
(defun hexl-beginning-of-line ()
;; 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)
"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))
\f
(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)))
(defun mouse-kill-ring-save (click)
(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
"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))
(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)
(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))
"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))
"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)))
(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))
(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)))
(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)))
(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)
(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)))
(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)
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.
;; 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)
(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))
projects / emacs.git / commitdiff