(defun running-emacs-version-or-newer (major minor)
(or (> emacs-major-version major)
(and (= emacs-major-version major)
(>= emacs-minor-version minor))))
(cond ((and running-xemacs
(running-emacs-version-or-newer 19 6))
;;
;; Code requiring XEmacs/Lucid Emacs version 19.6
;; or newer goes here
;;
))
(cond ((>= emacs-major-version 19)
;;
;; Code for any vintage-19 emacs goes here
;;
))
(cond ((and (not running-xemacs)
(>= emacs-major-version 19))
;;
;; Code specific to FSF Emacs 19 (not XEmacs/Lucid
;; Emacs)
;; goes here
;;
))
(cond ((< emacs-major-version 19)
;;
;; Code specific to emacs 18 goes here
;;
))
Vous ne disposez pas encore de certaines options comme la visualisation de l'heure et de la date.
Ne pas oublier de faire <Entrer> à la fin de chaque ligne. Activer cette option en évaluant le Buffer ( Voir Fig 1.11).
(set-variable 'inhibit-startup-message 't)