comparison lisp/auto-show.el @ 267:966663fcf606 r20-5b32

Import from CVS: tag r20-5b32
author cvs
date Mon, 13 Aug 2007 10:26:29 +0200
parents 41ff10fd062f
children 70ad99077275
comparison
equal deleted inserted replaced
266:18d185df8c54 267:966663fcf606
189 ;; move point). 189 ;; move point).
190 ;; Do auto-scrolling after commands. 190 ;; Do auto-scrolling after commands.
191 ;;(add-hook 'post-command-hook 'auto-show-make-point-visible) 191 ;;(add-hook 'post-command-hook 'auto-show-make-point-visible)
192 192
193 ;; If being dumped, turn it on right away. 193 ;; If being dumped, turn it on right away.
194 (when (boundp 'load-gc) 194 (when (boundp 'pureload)
195 (auto-show-mode 1)) 195 (auto-show-mode 1))
196 196
197 ;; Do auto-scrolling in comint buffers after process output also. 197 ;; Do auto-scrolling in comint buffers after process output also.
198 ; XEmacs -- don't do this now, it messes up comint. 198 ; XEmacs -- don't do this now, it messes up comint.
199 ;(add-hook 'comint-output-filter-functions 'auto-show-make-point-visible t) 199 ;(add-hook 'comint-output-filter-functions 'auto-show-make-point-visible t)