(twittering-edit-replace-at-point): new defun to call 'twittering-edi…

…t-length-check' forcefully.

(twittering-edit-mode-map): bind F4 to it instead of 'twittering-tinyurl-replace-at-point'.
(twittering-edit-length-check): make all arguments optional.

ChangeLog

@@ -1,3 +1,11 @@
+2010-03-07  Satoshi Yatagawa  <yata_github@y.hauN.org>
+
+	* twittering-mode.el (twittering-edit-replace-at-point): New defun
+	to call `twittering-edit-length-check' forcefully.
+	(twittering-edit-mode-map): Bind F4 to it instead of
+	`twittering-tinyurl-replace-at-point'.
+	(twittering-edit-length-check): Make all arguments optional.
+
 2010-03-06  Tadashi MATSUO  <tad@mymail.twin.jp>
 
 	* twittering-mode.el (twittering-server-info-alist): new variable

twittering-mode.el

@@ -1356,9 +1356,9 @@ The alist consists of pairs of field-name and field-value, such as
     (define-key km (kbd "C-c C-k") 'twittering-edit-cancel-status)
     (define-key km (kbd "M-n") 'twittering-edit-next-history)
     (define-key km (kbd "M-p") 'twittering-edit-previous-history)
-    (define-key km (kbd "<f4>") 'twittering-tinyurl-replace-at-point)))
+    (define-key km (kbd "<f4>") 'twittering-edit-replace-at-point)))
 
-(defun twittering-edit-length-check (&rest args)
+(defun twittering-edit-length-check (&optional beg end len)
   (let* ((status (twittering-edit-extract-status))
 	 (sign-str (twittering-sign-string))
 	 (maxlen (- 140 (length sign-str)))
@@ -1479,6 +1479,12 @@ The alist consists of pairs of field-name and field-value, such as
       (goto-char (point-min))))
   )
 
+(defun twittering-edit-replace-at-point ()
+  (interactive)
+  (when (eq major-mode 'twittering-edit-mode)
+    (twittering-tinyurl-replace-at-point)
+    (twittering-edit-length-check)))
+
 ;;;
 ;;; Basic HTTP functions
 ;;;