2321 |
(goto-char (mark t)) |
(goto-char (mark t)) |
2322 |
(pop-mark))) |
(pop-mark))) |
2323 |
|
|
2324 |
(defun push-mark-command (arg) |
(defun push-mark-command (arg &optional nomsg) |
2325 |
"Set mark at where point is. |
"Set mark at where point is. |
2326 |
If no prefix arg and mark is already set there, just activate it." |
If no prefix arg and mark is already set there, just activate it. |
2327 |
|
Display `Mark set' unless the optional second arg NOMSG is non-nil." |
2328 |
(interactive "P") |
(interactive "P") |
2329 |
(let ((mark (marker-position (mark-marker)))) |
(let ((mark (marker-position (mark-marker)))) |
2330 |
(if (or arg (null mark) (/= mark (point))) |
(if (or arg (null mark) (/= mark (point))) |
2331 |
(push-mark nil nil t) |
(push-mark nil nomsg t) |
2332 |
(setq mark-active t) |
(setq mark-active t) |
2333 |
(message "Mark activated")))) |
(unless nomsg |
2334 |
|
(message "Mark activated"))))) |
2335 |
|
|
2336 |
(defun set-mark-command (arg) |
(defun set-mark-command (arg) |
2337 |
"Set mark at where point is, or jump to mark. |
"Set mark at where point is, or jump to mark. |