projects
/
elisp
/
semi.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
Sync up with semi-1_4_5.
[elisp/semi.git]
/
semi-def.el
diff --git
a/semi-def.el
b/semi-def.el
index
ec35a03
..
4cce381
100644
(file)
--- a/
semi-def.el
+++ b/
semi-def.el
@@
-29,20
+29,13
@@
(eval-when-compile (require 'cl))
(eval-when-compile (require 'cl))
-(defconst mime-module-version '("WEMI" "
\e
,DR
\e
(Biso" 1 4 4)
+(defconst mime-module-version '("WEMI" "Ninomiya" 1 4 5)
"Implementation name, version name and numbers of MIME-kernel package.")
(autoload 'mule-caesar-region "mule-caesar"
"Caesar rotation of current region." t)
"Implementation name, version name and numbers of MIME-kernel package.")
(autoload 'mule-caesar-region "mule-caesar"
"Caesar rotation of current region." t)
-;;; @ variables
-;;;
-
-(defvar mime/use-multi-frame
- (and (>= emacs-major-version 19) window-system))
-
-
;;; @ constants
;;;
;;; @ constants
;;;
@@
-105,8
+98,7
@@
point (point)
func (get-text-property (point) 'mime-button-callback)
data (get-text-property (point) 'mime-button-data)
point (point)
func (get-text-property (point) 'mime-button-callback)
data (get-text-property (point) 'mime-button-data)
- )
- )
+ ))
(save-excursion
(set-buffer buf)
(goto-char point)
(save-excursion
(set-buffer buf)
(goto-char point)
@@
-185,8
+177,7
@@
FUNCTION.")
(defmacro pgp-function (method)
"Return function to do service METHOD."
(defmacro pgp-function (method)
"Return function to do service METHOD."
- `(cadr (assq ,method (symbol-value 'pgp-function-alist)))
- )
+ `(cadr (assq ,method (symbol-value 'pgp-function-alist))))
(mapcar (function
(lambda (method)
(mapcar (function
(lambda (method)
@@
-262,16
+253,6
@@
FUNCTION.")
))
))
-;;; @ RCS version
-;;;
-
-(defsubst get-version-string (id)
- "Return a version-string from RCS ID."
- (and (string-match ",v \\([0-9][0-9.][0-9.]+\\)" id)
- (substring id (match-beginning 1)(match-end 1))
- ))
-
-
;;; @ Other Utility
;;;
;;; @ Other Utility
;;;