Mercurial > hg > xemacs-beta

comparison lisp/modes/view.el @ 70:131b0175ea99 r20-0b30

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r20-0b30
author cvs
date Mon, 13 Aug 2007 09:02:59 +0200
parents ec9a17fef872
children 6a378aca36af
comparison
equal deleted inserted replaced
69:804d1389bcd6 70:131b0175ea99
33 ;; XEmacs: We don't autoload this because we use `view-less' instead. 33 ;; XEmacs: We don't autoload this because we use `view-less' instead.
34 ;; #### I junked the old version and replaced it with FSF's latest version. 34 ;; #### I junked the old version and replaced it with FSF's latest version.
35 ;; Perhaps something needs integrating into view-less. 35 ;; Perhaps something needs integrating into view-less.
36 36
37 ;;; Code: 37 ;;; Code:
38
39 ;; XEmacs (to try to forestall complaints).
40 (when (featurep 'view-less)
41 (error "Can't load view.el and view-less.el in same session."))
42 38
43 (defvar view-highlight-face 'highlight 39 (defvar view-highlight-face 'highlight
44 ;; XEmacs change 40 ;; XEmacs change
45 "*The extent face used for highlighting the match found by View mode search.") 41 "*The extent face used for highlighting the match found by View mode search.")
46 42
357 (if (>= (- lines) (view-window-size)) 353 (if (>= (- lines) (view-window-size))
358 (scroll-down nil) 354 (scroll-down nil)
359 (scroll-up lines))) 355 (scroll-up lines)))
360 (cond ((pos-visible-in-window-p (point-max)) 356 (cond ((pos-visible-in-window-p (point-max))
361 (goto-char (point-max)) 357 (goto-char (point-max))
362 (message "%s" 358 (message "%"
363 (substitute-command-keys 359 (substitute-command-keys
364 "End. Type \\[view-exit] to quit viewing.")))) 360 "End. Type \\[view-exit] to quit viewing."))))
365 (move-to-window-line -1) 361 (move-to-window-line -1)
366 (beginning-of-line))) 362 (beginning-of-line)))
367 363