Mercurial > hg > xemacs-beta

comparison lisp/auto-show.el @ 355:182f72e8cd0d r21-1-7

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r21-1-7
author cvs
date Mon, 13 Aug 2007 10:56:21 +0200
parents 70ad99077275
children cc15677e0335
comparison
equal deleted inserted replaced
354:3729bef672e0 355:182f72e8cd0d
90 If point is before this column, we try to scroll to make the left margin 90 If point is before this column, we try to scroll to make the left margin
91 visible. Setting this to 0 disables this feature." 91 visible. Setting this to 0 disables this feature."
92 :type 'number 92 :type 'number
93 :group 'auto-show) 93 :group 'auto-show)
94 94
95 (defun auto-show-truncationp ()
96 "True if line truncation is enabled for the selected window."
97 ;; XEmacs change (use specifiers)
98 ;; ### There should be a more straightforward way to do this from elisp.
99 (or truncate-lines
100 (and truncate-partial-width-windows
101 (< (+ (window-width)
102 (specifier-instance left-margin-width)
103 (specifier-instance right-margin-width))
104 (frame-width)))))
105
106 (defun auto-show-mode (arg) 95 (defun auto-show-mode (arg)
107 "Turn automatic horizontal scroll mode on or off. 96 "Turn automatic horizontal scroll mode on or off.
108 With arg, turn auto scrolling on if arg is positive, off otherwise. 97 With arg, turn auto scrolling on if arg is positive, off otherwise.
109 This mode is enabled or disabled for each buffer individually. 98 This mode is enabled or disabled for each buffer individually.
110 It takes effect only when `truncate-lines' is non-nil." 99 It takes effect only when `truncate-lines' is non-nil."
126 "Commands that inhibit auto-show behavior. 115 "Commands that inhibit auto-show behavior.
127 This normally includes the horizontal scrollbar commands.") 116 This normally includes the horizontal scrollbar commands.")
128 117
129 ;; XEmacs addition: 118 ;; XEmacs addition:
130 (defun auto-show-should-take-action-p () 119 (defun auto-show-should-take-action-p ()
131 (and auto-show-mode (auto-show-truncationp) 120 (and auto-show-mode (window-truncated-p)
132 (equal (window-buffer) (current-buffer)) 121 (equal (window-buffer) (current-buffer))
133 (not (memq this-command auto-show-inhibiting-commands)))) 122 (not (memq this-command auto-show-inhibiting-commands))))
134 123
135 ;; XEmacs addition: 124 ;; XEmacs addition:
136 (defun auto-show-make-region-visible (start end) 125 (defun auto-show-make-region-visible (start end)