(cond ((or (and (fboundp 'featurep)
(featurep 'utf-2000))
(memq 'utf-2000 features))
- (concat " UTF-2000 v" utf-2000-version))
+ (concat " UTF-2000 v" utf-2000-version))
(t ""))
(substring emacs-build-time 0
(string-match " *[0-9]*:" emacs-build-time))
;; `what(1)' can extract from the executable or a core file. We don't
;; actually need this to be pointed to from lisp; pure objects can't
;; be GCed.
-(or (memq system-type '(windows-nt ms-dos))
- (purecopy (concat "\n@" "(#)" (emacs-version)
- "\n@" "(#)" "Configuration: "
- system-configuration "\n")))
+(purecopy (concat "\n@" "(#)" (emacs-version)
+ "\n@" "(#)" "Configuration: "
+ system-configuration "\n"))
;;Local variables:
;;version-control: never