Mercurial > emacs
comparison lisp/mh-e/mh-folder.el @ 86202:794e428cd497
* eshell/esh-util.el (eshell-under-xemacs-p): Remove.
* eshell/esh-mode.el (eshell-mode-syntax-table)
(command-running-p):
* eshell/esh-ext.el (eshell-external-command):
* eshell/esh-cmd.el (require):
* eshell/em-unix.el (eshell-plain-locate-behavior):
* eshell/em-cmpl.el (eshell-cmpl-initialize): Replace
eshell-under-xemacs-p with (featurep 'xemacs).
* eshell/esh-mode.el (characterp,char-int): Remove unused
conditional defaliases.
* pcomplete.el (pcomplete-event-matches-key-specifier-p): Rename
from event-matches-key-specifier-p, define unconditionally.
(event-basic-type): Remove unused defalias.
(pcomplete-show-completions):
Use pcomplete-event-matches-key-specifier-p.
* mh-e.el (mh-xemacs-flag): Remove.
(mh-min-colors-defined-flag):
* mh-xface.el (mh-show-xface-function):
* mh-utils.el (mh-colors-available-p):
* mh-show.el (mh-show-mode):
* mh-gnus.el (mh-gnus-local-map-property):
* mh-folder.el (mh-folder-mode-map)
(mh-remove-xemacs-horizontal-scrollbar, mh-folder-mode):
* mh-comp.el (mh-insert-x-mailer): Replace uses of mh-xemacs-flag
with (featurep 'xemacs).
author | Dan Nicolaescu <dann@ics.uci.edu> |
---|---|
date | Sat, 17 Nov 2007 17:35:09 +0000 |
parents | c490a6236b89 |
children | 107ccd98fa12 |
comparison
equal
deleted
inserted
replaced
86201:ea8415c6aa5b | 86202:794e428cd497 |
---|---|
349 "\t" mh-next-button | 349 "\t" mh-next-button |
350 [backtab] mh-prev-button | 350 [backtab] mh-prev-button |
351 "\M-\t" mh-prev-button) | 351 "\M-\t" mh-prev-button) |
352 | 352 |
353 (cond | 353 (cond |
354 (mh-xemacs-flag | 354 ((featurep 'xemacs) |
355 (define-key mh-folder-mode-map [button2] 'mh-show-mouse)) | 355 (define-key mh-folder-mode-map [button2] 'mh-show-mouse)) |
356 (t | 356 (t |
357 (define-key mh-folder-mode-map [mouse-2] 'mh-show-mouse))) | 357 (define-key mh-folder-mode-map [mouse-2] 'mh-show-mouse))) |
358 | 358 |
359 ;; "C-c /" prefix is used in mh-folder-mode by pgp.el and mailcrypt | 359 ;; "C-c /" prefix is used in mh-folder-mode by pgp.el and mailcrypt |
511 | 511 |
512 ;;; MH-Folder Mode | 512 ;;; MH-Folder Mode |
513 | 513 |
514 (defmacro mh-remove-xemacs-horizontal-scrollbar () | 514 (defmacro mh-remove-xemacs-horizontal-scrollbar () |
515 "Get rid of the horizontal scrollbar that XEmacs insists on putting in." | 515 "Get rid of the horizontal scrollbar that XEmacs insists on putting in." |
516 (when mh-xemacs-flag | 516 (when (featurep 'xemacs) |
517 `(if (and (featurep 'scrollbar) | 517 `(if (and (featurep 'scrollbar) |
518 (fboundp 'set-specifier)) | 518 (fboundp 'set-specifier)) |
519 (set-specifier horizontal-scrollbar-visible-p nil | 519 (set-specifier horizontal-scrollbar-visible-p nil |
520 (cons (current-buffer) nil))))) | 520 (cons (current-buffer) nil))))) |
521 | 521 |
654 (easy-menu-add mh-folder-sequence-menu) | 654 (easy-menu-add mh-folder-sequence-menu) |
655 (easy-menu-add mh-folder-message-menu) | 655 (easy-menu-add mh-folder-message-menu) |
656 (easy-menu-add mh-folder-folder-menu) | 656 (easy-menu-add mh-folder-folder-menu) |
657 (mh-inc-spool-make) | 657 (mh-inc-spool-make) |
658 (mh-set-help mh-folder-mode-help-messages) | 658 (mh-set-help mh-folder-mode-help-messages) |
659 (if (and mh-xemacs-flag | 659 (if (and (featurep 'xemacs) |
660 font-lock-auto-fontify) | 660 font-lock-auto-fontify) |
661 (turn-on-font-lock))) ; Force font-lock in XEmacs. | 661 (turn-on-font-lock))) ; Force font-lock in XEmacs. |
662 | 662 |
663 | 663 |
664 | 664 |