Mercurial > hg > xemacs-beta
comparison lisp/vm/vm-summary.el @ 146:2af401a6ecca r20-2p1
Import from CVS: tag r20-2p1
author | cvs |
---|---|
date | Mon, 13 Aug 2007 09:34:46 +0200 |
parents | cca96a509cfe |
children | 43dd3413c7c7 |
comparison
equal
deleted
inserted
replaced
145:e13feca31ba6 | 146:2af401a6ecca |
---|---|
30 vm-summary-=> (if (stringp vm-summary-arrow) vm-summary-arrow "") | 30 vm-summary-=> (if (stringp vm-summary-arrow) vm-summary-arrow "") |
31 vm-summary-no-=> (make-string (length vm-summary-=>) ? ) | 31 vm-summary-no-=> (make-string (length vm-summary-=>) ? ) |
32 truncate-lines t) | 32 truncate-lines t) |
33 ;; horizontal scrollbar off by default | 33 ;; horizontal scrollbar off by default |
34 ;; user can turn it on in summary hook if desired. | 34 ;; user can turn it on in summary hook if desired. |
35 (and (fboundp 'set-specifier) | 35 (and vm-xemacs-p (featurep 'scrollbar) |
36 scrollbar-height | |
37 (set-specifier scrollbar-height (cons (current-buffer) 0))) | 36 (set-specifier scrollbar-height (cons (current-buffer) 0))) |
38 (use-local-map vm-summary-mode-map) | 37 (use-local-map vm-summary-mode-map) |
39 (and (vm-menu-support-possible-p) | 38 (and (vm-menu-support-possible-p) |
40 (vm-menu-install-menus)) | 39 (vm-menu-install-menus)) |
41 (and vm-mouse-track-summary | 40 (and vm-mouse-track-summary |