Mercurial > emacs
comparison lisp/mh-e/mh-comp.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 | af7dc7457402 |
children | 107ccd98fa12 53108e6cea98 |
comparison
equal
deleted
inserted
replaced
86201:ea8415c6aa5b | 86202:794e428cd497 |
---|---|
926 ;; Lazily initialize mh-x-mailer-string. | 926 ;; Lazily initialize mh-x-mailer-string. |
927 (when (and mh-insert-x-mailer-flag (null mh-x-mailer-string)) | 927 (when (and mh-insert-x-mailer-flag (null mh-x-mailer-string)) |
928 (setq mh-x-mailer-string | 928 (setq mh-x-mailer-string |
929 (format "MH-E %s; %s; %sEmacs %s" | 929 (format "MH-E %s; %s; %sEmacs %s" |
930 mh-version mh-variant-in-use | 930 mh-version mh-variant-in-use |
931 (if mh-xemacs-flag "X" "GNU ") | 931 (if (featurep 'xemacs) "X" "GNU ") |
932 (cond ((not mh-xemacs-flag) | 932 (cond ((not (featurep 'xemacs)) |
933 (string-match "[0-9]+\\.[0-9]+\\(\\.[0-9]+\\)?" | 933 (string-match "[0-9]+\\.[0-9]+\\(\\.[0-9]+\\)?" |
934 emacs-version) | 934 emacs-version) |
935 (match-string 0 emacs-version)) | 935 (match-string 0 emacs-version)) |
936 ((string-match "[0-9.]*\\( +\([ a-z]+[0-9]+\)\\)?" | 936 ((string-match "[0-9.]*\\( +\([ a-z]+[0-9]+\)\\)?" |
937 emacs-version) | 937 emacs-version) |