Mercurial > emacs
comparison lisp/view.el @ 96229:f0fef621a168
Fix up comments.
| author | Stefan Monnier <monnier@iro.umontreal.ca> |
|---|---|
| date | Tue, 24 Jun 2008 13:29:28 +0000 |
| parents | ee5932bf781d |
| children | f1a064081e2e |
comparison
equal
deleted
inserted
replaced
| 96228:39e0a654d387 | 96229:f0fef621a168 |
|---|---|
| 180 (let ((map (make-sparse-keymap))) | 180 (let ((map (make-sparse-keymap))) |
| 181 (define-key map "C" 'View-kill-and-leave) | 181 (define-key map "C" 'View-kill-and-leave) |
| 182 (define-key map "c" 'View-leave) | 182 (define-key map "c" 'View-leave) |
| 183 (define-key map "Q" 'View-quit-all) | 183 (define-key map "Q" 'View-quit-all) |
| 184 (define-key map "E" 'View-exit-and-edit) | 184 (define-key map "E" 'View-exit-and-edit) |
| 185 ; (define-key map "v" 'View-exit) | 185 ;; (define-key map "v" 'View-exit) |
| 186 (define-key map "e" 'View-exit) | 186 (define-key map "e" 'View-exit) |
| 187 (define-key map "q" 'View-quit) | 187 (define-key map "q" 'View-quit) |
| 188 ; (define-key map "N" 'View-search-last-regexp-backward) | 188 ;; (define-key map "N" 'View-search-last-regexp-backward) |
| 189 (define-key map "p" 'View-search-last-regexp-backward) | 189 (define-key map "p" 'View-search-last-regexp-backward) |
| 190 (define-key map "n" 'View-search-last-regexp-forward) | 190 (define-key map "n" 'View-search-last-regexp-forward) |
| 191 ; (define-key map "?" 'View-search-regexp-backward) ; Less does this. | 191 ;; (define-key map "?" 'View-search-regexp-backward) ; Less does this. |
| 192 (define-key map "\\" 'View-search-regexp-backward) | 192 (define-key map "\\" 'View-search-regexp-backward) |
| 193 (define-key map "/" 'View-search-regexp-forward) | 193 (define-key map "/" 'View-search-regexp-forward) |
| 194 (define-key map "r" 'isearch-backward) | 194 (define-key map "r" 'isearch-backward) |
| 195 (define-key map "s" 'isearch-forward) | 195 (define-key map "s" 'isearch-forward) |
| 196 (define-key map "m" 'point-to-register) | 196 (define-key map "m" 'point-to-register) |
| 197 (define-key map "'" 'register-to-point) | 197 (define-key map "'" 'register-to-point) |
| 198 (define-key map "x" 'exchange-point-and-mark) | 198 (define-key map "x" 'exchange-point-and-mark) |
| 199 (define-key map "@" 'View-back-to-mark) | 199 (define-key map "@" 'View-back-to-mark) |
| 200 (define-key map "." 'set-mark-command) | 200 (define-key map "." 'set-mark-command) |
| 201 (define-key map "%" 'View-goto-percent) | 201 (define-key map "%" 'View-goto-percent) |
| 202 ; (define-key map "G" 'View-goto-line-last) | 202 ;; (define-key map "G" 'View-goto-line-last) |
| 203 (define-key map "g" 'View-goto-line) | 203 (define-key map "g" 'View-goto-line) |
| 204 (define-key map "=" 'what-line) | 204 (define-key map "=" 'what-line) |
| 205 (define-key map "F" 'View-revert-buffer-scroll-page-forward) | 205 (define-key map "F" 'View-revert-buffer-scroll-page-forward) |
| 206 ; (define-key map "k" 'View-scroll-line-backward) | 206 ;; (define-key map "k" 'View-scroll-line-backward) |
| 207 (define-key map "y" 'View-scroll-line-backward) | 207 (define-key map "y" 'View-scroll-line-backward) |
| 208 ; (define-key map "j" 'View-scroll-line-forward) | 208 ;; (define-key map "j" 'View-scroll-line-forward) |
| 209 (define-key map "\n" 'View-scroll-line-forward) | 209 (define-key map "\n" 'View-scroll-line-forward) |
| 210 (define-key map "\r" 'View-scroll-line-forward) | 210 (define-key map "\r" 'View-scroll-line-forward) |
| 211 (define-key map "u" 'View-scroll-half-page-backward) | 211 (define-key map "u" 'View-scroll-half-page-backward) |
| 212 (define-key map "d" 'View-scroll-half-page-forward) | 212 (define-key map "d" 'View-scroll-half-page-forward) |
| 213 (define-key map "z" 'View-scroll-page-forward-set-page-size) | 213 (define-key map "z" 'View-scroll-page-forward-set-page-size) |
| 214 (define-key map "w" 'View-scroll-page-backward-set-page-size) | 214 (define-key map "w" 'View-scroll-page-backward-set-page-size) |
| 215 ; (define-key map "b" 'View-scroll-page-backward) | 215 ;; (define-key map "b" 'View-scroll-page-backward) |
| 216 (define-key map "\C-?" 'View-scroll-page-backward) | 216 (define-key map "\C-?" 'View-scroll-page-backward) |
| 217 ; (define-key map "f" 'View-scroll-page-forward) | 217 ;; (define-key map "f" 'View-scroll-page-forward) |
| 218 (define-key map " " 'View-scroll-page-forward) | 218 (define-key map " " 'View-scroll-page-forward) |
| 219 (define-key map "o" 'View-scroll-to-buffer-end) | 219 (define-key map "o" 'View-scroll-to-buffer-end) |
| 220 (define-key map ">" 'end-of-buffer) | 220 (define-key map ">" 'end-of-buffer) |
| 221 (define-key map "<" 'beginning-of-buffer) | 221 (define-key map "<" 'beginning-of-buffer) |
| 222 (define-key map "-" 'negative-argument) | 222 (define-key map "-" 'negative-argument) |
| 693 ;; old-window is still alive => select it. | 693 ;; old-window is still alive => select it. |
| 694 (select-window old-window)) | 694 (select-window old-window)) |
| 695 (when exit-action | 695 (when exit-action |
| 696 ;; Don't do that: If the user wants to quit the *Help* buffer a | 696 ;; Don't do that: If the user wants to quit the *Help* buffer a |
| 697 ;; second time it won't have any effect. | 697 ;; second time it won't have any effect. |
| 698 ;;; (setq view-exit-action nil) | 698 ;;(setq view-exit-action nil) |
| 699 (funcall exit-action buffer)) | 699 (funcall exit-action buffer)) |
| 700 (force-mode-line-update)))) | 700 (force-mode-line-update)))) |
| 701 | 701 |
| 702 (defun View-exit () | 702 (defun View-exit () |
| 703 "Exit View mode but stay in current buffer." | 703 "Exit View mode but stay in current buffer." |
| 741 | 741 |
| 742 (defun view-window-size () | 742 (defun view-window-size () |
| 743 ;; Window height excluding mode line. | 743 ;; Window height excluding mode line. |
| 744 (1- (window-height))) | 744 (1- (window-height))) |
| 745 | 745 |
| 746 ;(defun view-last-command (&optional who what) | 746 ;; (defun view-last-command (&optional who what) |
| 747 ; (setq view-last-command-entry this-command) | 747 ;; (setq view-last-command-entry this-command) |
| 748 ; (setq view-last-command who) | 748 ;; (setq view-last-command who) |
| 749 ; (setq view-last-command-argument what)) | 749 ;; (setq view-last-command-argument what)) |
| 750 | 750 |
| 751 ;(defun View-repeat-last-command () | 751 ;; (defun View-repeat-last-command () |
| 752 ; "Repeat last command issued in View mode." | 752 ;; "Repeat last command issued in View mode." |
| 753 ; (interactive) | 753 ;; (interactive) |
| 754 ; (if (and view-last-command | 754 ;; (if (and view-last-command |
| 755 ; (eq view-last-command-entry last-command)) | 755 ;; (eq view-last-command-entry last-command)) |
| 756 ; (funcall view-last-command view-last-command-argument)) | 756 ;; (funcall view-last-command view-last-command-argument)) |
| 757 ; (setq this-command view-last-command-entry)) | 757 ;; (setq this-command view-last-command-entry)) |
| 758 | 758 |
| 759 (defun view-recenter () | 759 (defun view-recenter () |
| 760 ;; Center point in window. | 760 ;; Center point in window. |
| 761 (recenter (/ (view-window-size) 2))) | 761 (recenter (/ (view-window-size) 2))) |
| 762 | 762 |
| 791 (floor (* (- (point-max) (point-min)) 0.01 | 791 (floor (* (- (point-max) (point-min)) 0.01 |
| 792 (max 0 (min 100 (prefix-numeric-value percent)))))) | 792 (max 0 (min 100 (prefix-numeric-value percent)))))) |
| 793 (point-max))) | 793 (point-max))) |
| 794 (view-recenter)) | 794 (view-recenter)) |
| 795 | 795 |
| 796 ;(defun View-goto-line-last (&optional line) | 796 ;; (defun View-goto-line-last (&optional line) |
| 797 ;"Move to last (or prefix LINE) line in View mode. | 797 ;; "Move to last (or prefix LINE) line in View mode. |
| 798 ;Display is centered at LINE. | 798 ;; Display is centered at LINE. |
| 799 ;Sets mark at starting position and pushes mark ring." | 799 ;; Sets mark at starting position and pushes mark ring." |
| 800 ; (interactive "P") | 800 ;; (interactive "P") |
| 801 ; (push-mark) | 801 ;; (push-mark) |
| 802 ; (if line (goto-line (prefix-numeric-value line)) | 802 ;; (if line (goto-line (prefix-numeric-value line)) |
| 803 ; (goto-char (point-max)) | 803 ;; (goto-char (point-max)) |
| 804 ; (beginning-of-line)) | 804 ;; (beginning-of-line)) |
| 805 ; (view-recenter)) | 805 ;; (view-recenter)) |
| 806 | 806 |
| 807 (defun View-goto-line (&optional line) | 807 (defun View-goto-line (&optional line) |
| 808 "Move to first (or prefix LINE) line in View mode. | 808 "Move to first (or prefix LINE) line in View mode. |
| 809 Display is centered at LINE. | 809 Display is centered at LINE. |
| 810 Also set the mark at the position where point was." | 810 Also set the mark at the position where point was." |