From: morioka <morioka>
Date: Tue, 19 May 1998 15:48:53 +0000 (+0000)
Subject: (mime-insert-button): Merge arguments of two 'insert.
X-Git-Tag: remi-1_4_0_90~4
X-Git-Url: http://git.chise.org/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=845dddc8d148eea750e31e330da2d845dd8c5f33;p=elisp%2Fsemi.git

(mime-insert-button): Merge arguments of two 'insert.
---

diff --git a/semi-def.el b/semi-def.el
index 3f1ae75..8fed6ed 100644
--- a/semi-def.el
+++ b/semi-def.el
@@ -75,21 +75,13 @@
     (add-text-properties from to (list 'mime-button-callback function))
     (and data
 	 (add-text-properties from to (list 'mime-button-data data)))
-    ;;(add-text-properties from to (list 'keymap widget-keymap))
     ))
 
 (defsubst mime-insert-button (string function &optional data)
   "Insert STRING as button with callback FUNCTION and DATA."
   (save-restriction
     (narrow-to-region (point)(point))
-    (insert (concat "[" string "]"))
-    ;; (widget-push-button-value-create
-    ;;  (widget-convert 'push-button
-    ;;                  :notify (lambda (&rest ignore)
-    ;;                            (mime-preview-play-current-entity)
-    ;;                            )
-    ;;                  string))
-    (insert "\n")
+    (insert (concat "[" string "]\n"))
     (mime-add-button (point-min)(point-max) function data)
     ))
 
@@ -105,8 +97,7 @@
 	    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)
@@ -185,8 +176,7 @@ FUNCTION.")
 
 (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)