Lines Matching +defs:old +defs:mark
117 (defvar view-old-buffer-read-only nil)
118 (make-variable-buffer-local 'view-old-buffer-read-only)
120 (defvar view-old-Helper-return-blurb)
121 (make-variable-buffer-local 'view-old-Helper-return-blurb)
198 (define-key map "x" 'exchange-point-and-mark)
199 (define-key map "@" 'View-back-to-mark)
200 (define-key map "." 'set-mark-command)
347 (window-buffer win) ; Other windows old buffer.
419 . set the mark.
420 x exchanges point and mark.
421 \\[View-back-to-mark] return to mark and pops mark ring.
423 jump to line occurs. The mark is set on jump to buffer start or end.
472 view-old-buffer-read-only buffer-read-only
474 view-old-Helper-return-blurb (and (boundp 'Helper-return-blurb)
498 Helper-return-blurb view-old-Helper-return-blurb)
500 (setq buffer-read-only view-old-buffer-read-only)))
547 then all windows on RETURN-TO-ALIST are restored to their old state.
567 (sel-old (assq (selected-window) return-to-alist))
571 (sel-old ; Only selected window.
572 (list sel-old))))
573 (old-window (if sel-old (car (cdr sel-old)))))
574 (if all-win ; Follow chains of old-windows.
577 (or (not (window-live-p old-window))
578 (eq buffer (window-buffer old-window)))
579 (setq a (assq old-window alist)))
581 (setq old-window (car (cdr a))))
582 (if (or (zerop c) (not (window-live-p old-window)))
583 (setq old-window (selected-window)))))
591 (old-buf-info (cdr (cdr (car alist)))))
594 ((and (consp old-buf-info) ; Case 3.
595 (buffer-live-p (car old-buf-info)))
596 (set-window-buffer window (car old-buf-info)) ; old-buf
597 (set-window-start window (car (cdr old-buf-info)))
598 (set-window-point window (car (cdr (cdr old-buf-info)))))
599 ((eq old-buf-info 'quit-window)
601 ((not (eq old-buf-info t)) nil) ; Not case 2, do nothing.
617 (if (window-live-p old-window) ; still existing window
618 (select-window old-window))
634 (let ((view-old-buffer-read-only nil)
709 Also set the mark at the position where point was."
711 (push-mark)
723 ;Sets mark at starting position and pushes mark ring."
725 ; (push-mark)
734 Also set the mark at the position where point was."
736 (push-mark)
740 (defun View-back-to-mark (&optional ignore)
741 "Return to last mark set in View mode, else beginning of file.
743 This command pops the mark ring, so that successive
746 (goto-char (or (mark t) (point-min)))
747 (pop-mark)
903 Displays line found at center of window. Sets mark at starting position and
904 pushes mark ring.
922 Displays line found at center of window. Sets mark at starting position and
923 pushes mark ring.
940 Displays line found at center of window. Sets mark at starting position and
941 pushes mark ring.
950 Displays line found at center of window. Sets mark at starting position and
951 pushes mark ring.
991 (push-mark)