projects
/
riece
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
* Riece: Version 0.1.8 released.
[riece]
/
lisp
/
riece-version.el
diff --git
a/lisp/riece-version.el
b/lisp/riece-version.el
index
985fe5b
..
94b0951
100644
(file)
--- a/
lisp/riece-version.el
+++ b/
lisp/riece-version.el
@@
-48,7
+48,7
@@
string, be sure to use a valid format, see RFC 2616."
(defconst riece-product-name "Riece")
(defconst riece-product-name "Riece")
-(defconst riece-version-number "0.1.
0
"
+(defconst riece-version-number "0.1.
8
"
"Version number for this version of Riece.")
(defconst riece-version (format "Riece v%s" riece-version-number)
"Version number for this version of Riece.")
(defconst riece-version (format "Riece v%s" riece-version-number)
@@
-60,7
+60,6
@@
string, be sure to use a valid format, see RFC 2616."
(defun riece-extended-version ()
"Stringified Riece version and Emacs version.
See the variable `riece-user-agent'."
(defun riece-extended-version ()
"Stringified Riece version and Emacs version.
See the variable `riece-user-agent'."
- (interactive)
(let* ((riece-v
(concat riece-product-name "/"
(prin1-to-string riece-version-number t)))
(let* ((riece-v
(concat riece-product-name "/"
(prin1-to-string riece-version-number t)))
@@
-103,6
+102,14
@@
See the variable `riece-user-agent'."
(when emacs-v
(concat " " emacs-v))))))
(when emacs-v
(concat " " emacs-v))))))
+(defun riece-version (&optional arg)
+ "Version number of this version of Riece.
+If ARG, use user-agent format."
+ (interactive "P")
+ (if arg
+ (message "%s" (riece-extended-version))
+ (message "%s" riece-version)))
+
(provide 'riece-version)
;;; riece-version.el ends here
(provide 'riece-version)
;;; riece-version.el ends here