;; You should have received a copy of the GNU General Public License
;; along with GNU Emacs; see the file COPYING. If not, write to the
-;; Free Software Foundation, Inc., 59 Temple Place - Suite 330,
-;; Boston, MA 02111-1307, USA.
+;; Free Software Foundation, Inc., 51 Franklin Street, Fifth Floor,
+;; Boston, MA 02110-1301, USA.
;;; Code:
(defconst riece-product-name "Riece")
-(defconst riece-version-number "0.2.1"
+(defconst riece-version-number "2.0.2"
"Version number for this version of Riece.")
(defconst riece-version (format "Riece v%s" riece-version-number)
"Version string for this version of Riece.")
(eval-when-compile
- (defvar xemacs-codename))
+ (defvar emacs-program-version)
+ (defvar xemacs-codename)
+ (defvar sxemacs-codename))
(defun riece-extended-version ()
"Stringified Riece version and Emacs version.
(if system-v
(concat " (" system-v ")")
"")))
- ((string-match
- "\\([A-Z]*[Mm][Aa][Cc][Ss]\\)[^(]*\\(\\((beta.*)\\|'\\)\\)?"
- emacs-version)
- (concat
- (match-string 1 emacs-version)
- (format "/%d.%d" emacs-major-version