Lines Matching defs:emacs
30 (defconst emacs-version "22.1" "\
33 (defconst emacs-major-version
34 (progn (string-match "^[0-9]+" emacs-version)
35 (string-to-number (match-string 0 emacs-version)))
39 (defconst emacs-minor-version
40 (progn (string-match "^[0-9]+\\.\\([0-9]+\\)" emacs-version)
41 (string-to-number (match-string 1 emacs-version)))
45 (defconst emacs-build-time (current-time) "\
48 (defconst emacs-build-system (system-name))
50 (defun emacs-version (&optional here) "\
60 emacs-version
75 (format-time-string "%Y-%m-%d" emacs-build-time)
76 emacs-build-system)))
84 (defalias 'version 'emacs-version)
88 (purecopy (concat "\n$Id: " (subst-char-in-string ?\n ?\s (emacs-version))