emacs/lisp/view.el

42 ;; (define-key ctl-x-5-map "v" 'view-file-other-frame)  ; ^x5v
45 ;; view-buffer-other-frame to keys.
65 ;; is now controlled by the presence of a value in `view-return-to-alist'.
81 (defcustom view-remove-frame-by-deleting nil
82   "*Determine how View mode removes a frame no longer needed.
83 If nil, make an icon of the frame.  If non-nil, delete the frame."
91 `view-return-to-alist'.
139 (defvar view-return-to-alist nil
146 `view-return-to-alist'.")
147 (make-variable-buffer-local 'view-return-to-alist)
148 (put 'view-return-to-alist 'permanent-local t)
168 (unless (assq 'view-mode minor-mode-alist)
169   (setq minor-mode-alist
174 	      minor-mode-alist)))
238 (or (assq 'view-mode minor-mode-map-alist)
239     (setq minor-mode-map-alist
240 	  (cons (cons 'view-mode view-mode-map) minor-mode-map-alist)))
285 (defun view-file-other-frame (file)
286   "View FILE in View mode in another frame.
287 Maybe delete other frame and/or return to previous buffer when done.
295   (interactive "fIn other frame view file: ")
298     (view-buffer-other-frame (find-file-noselect file) nil
355 (defun view-buffer-other-frame (buffer &optional not-return exit-action)
356   "View BUFFER in View mode in another frame.
369   (interactive "bView buffer in other frame: \nP")
372     (switch-to-buffer-other-frame buffer)
391 arguments.  Page commands default to \"page size\" lines which is almost a whole
392 window full, or number of lines set by \\[View-scroll-page-forward-set-page-size] or \\[View-scroll-page-backward-set-page-size].  Half page commands default to
394 commands default to a repeat count of one.
417 \\[View-goto-percent]	goes prefix argument (default 100) percent into buffer.
418 \\[View-goto-line]	goes to line given by prefix argument (default first line).
447 entered by view-file, view-file-other-window, view-file-other-frame, or
449 \\[view-file-other-frame], or the Dired mode v command),
452 \\[view-buffer-other-window], \\[view-buffer-other frame], \\[view-file],
453 \\[view-file-other-window], or \\[view-file-other-frame],
505 If RETURN-TO is non-nil it is added as an element to the buffer local alist
506 `view-return-to-alist'.
517 2) t         Delete WINDOW or, if it is the only window, its frame.
526       (let ((entry (assq (car return-to) view-return-to-alist)))
528 	  (setq view-return-to-alist (cons return-to view-return-to-alist)))))
539 (defun view-mode-exit (&optional return-to-alist exit-action all-win)
544 RETURN-TO-ALIST is an alist that for some of the windows displaying the
555 2) t         Delete WINDOW and, if it is the only window, its frame.
563 	(and return-to-alist (or all-win view-exits-all-viewing-windows)))
567 	     (sel-old (assq (selected-window) return-to-alist))
568 	     (alist (cond
570 		      (append return-to-alist nil)) ; Copy.
575 	    (let ((c (length alist)) a)
579 			  (setq a (assq old-window alist)))
586 	(while alist			; Restore windows with info.
588 	  (if (and (window-live-p (setq window (car (car alist))))
590 	      (let ((frame (window-frame window))
591 		    (old-buf-info (cdr (cdr (car alist)))))
603 		 ((not (eq frame (next-frame)))
604 		  ;; Not the only frame, so can safely be removed.
605 		  (if view-remove-frame-by-deleting
606 		      (delete-frame frame)
608 		    (iconify-frame frame))))))
609 	  ;; If a frame is removed by iconifying it, then the window is not
611 	  ;; view-return-to-alist so that if the user deiconifies the frame
612 	  ;; and then press q, then the frame is iconified again.
614 	    (setq view-return-to-alist
615 		  (delete (car alist) view-return-to-alist)))
616 	  (setq alist (cdr alist)))
641   (view-mode-exit view-return-to-alist))
648   (view-mode-exit view-return-to-alist view-exit-action))
655   (view-mode-exit view-return-to-alist view-exit-action t))
660   (view-mode-exit view-return-to-alist (or view-exit-action 'kill-buffer) t))
687 (defun view-page-size-default (lines)
689   (let ((default (- (view-window-size) next-screen-context-lines)))
691 	default
692       (min (abs lines) default))))
694 (defun view-set-half-page-size-default (lines)
701 	    (view-page-size-default lines)))))
751 (defun view-scroll-lines (lines backward default maxdefault)
758       (setq lines default))
761   (setq default (view-page-size-default nil)) ; Max scrolled at a time.
762   (if maxdefault (setq lines (min lines default)))
769    (t (while (> lines default)
770 	(scroll-up default)
771 	(setq lines (- lines default))
803   (if view-return-to-alist
827   (view-scroll-lines lines nil (view-page-size-default view-page-size) nil))
833   (view-scroll-lines lines t (view-page-size-default view-page-size) nil))
838 \\[View-scroll-page-backward] scroll by default.
845 		     (setq view-page-size (view-page-size-default lines))
853 		     (setq view-page-size (view-page-size-default lines))
875   (view-scroll-lines lines nil (view-set-half-page-size-default lines) t))
881   (view-scroll-lines lines t (view-set-half-page-size-default lines) t))
897     (view-scroll-lines lines nil (view-page-size-default view-page-size) nil)))