* ess-custom.el (ess-revision): extraordinary attempts

	to get revision number


git-svn-id: https://svn.r-project.org/ESS/trunk@4777 0bbaf3bd-34e0-0310-bf65-c717079852d4

lisp/ChangeLog

@@ -1,3 +1,8 @@
+2012-04-05  Rodney Sparapani  <rsparapa@mcw.edu>
+
+	* ess-custom.el (ess-revision): extraordinary attempts
+	to get revision number
+
 2012-04-03  Martin Maechler  <maechler@stat.math.ethz.ch>
 
 	* ess-inf.el (ess-force-buffer-current): use no-autostart, instead

lisp/ess-custom.el

@@ -35,6 +35,7 @@
 ;;; Code:
 
 (require 'custom)
+(require 'executable)
 
 ;; Customization Groups
 
@@ -131,11 +132,17 @@
   :prefix "ess-")
 ;; Variables (not user-changeable)
 
-(defvar ess-version "YY.MM"
-  "Version of ESS currently loaded (populated by make).")
+(defvar ess-version "12.04"
+  "Version of ESS currently loaded.")
 
-(defvar ess-revision "YY-MM-rNNNN"
-  "SVN revision of ESS currently loaded (populated by make).")
+(defvar ess-revision "rNNNN"
+  "SVN revision of ESS currently loaded.")
+
+(if (equal ess-revision "rNNNN") (progn
+  (if (executable-find "svnversion") (progn
+      (setq ess-revision (shell-command-to-string "svnversion"))
+      (if (equal ess-revision "exported") (setq ess-revision "$Rev$")))
+    (setq ess-revision "$Rev$"))))
 
 (defvar no-doc
   "This function is part of ESS, but has not yet been loaded.