Mercurial > hg > xemacs-beta

comparison lisp/emulators/tpu-doc.el @ 2:ac2d302a0011 r19-15b2

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r19-15b2
author cvs
date Mon, 13 Aug 2007 08:46:35 +0200
parents 376386a54a3c
children 0293115a14e9
comparison
equal deleted inserted replaced
1:c0c6a60d29db 2:ac2d302a0011
299 299
300 ;; Uncomment this line to set scroll margins 10% (top) and 15% (bottom). 300 ;; Uncomment this line to set scroll margins 10% (top) and 15% (bottom).
301 ;(and (fboundp 'tpu-set-scroll-margins) (tpu-set-scroll-margins "10%" "15%")) 301 ;(and (fboundp 'tpu-set-scroll-margins) (tpu-set-scroll-margins "10%" "15%"))
302 302
303 ;; Load the vtxxx terminal control functions, but don't complain if 303 ;; Load the vtxxx terminal control functions, but don't complain if
304 ;; if the file is not found. 304 ;; the file is not found.
305 (load "vt-control" t) 305 (load "vt-control" t)
306 306
307 ;; TPU-edt treats words like EDT; here's how to add word separators. 307 ;; TPU-edt treats words like EDT; here's how to add word separators.
308 ;; Note that backslash (\) and double quote (") are quoted with '\'. 308 ;; Note that backslash (\) and double quote (") are quoted with '\'.
309 (tpu-add-word-separators "]\\[-_,.\"=+()'/*#:!&;$") 309 (tpu-add-word-separators "]\\[-_,.\"=+()'/*#:!&;$")