allow command override

hayamiz · Jan 18, 2010 · 8a7db54 · 8a7db54
1 parent b2d0606
commit 8a7db54
Show file tree

Hide file tree

Showing 2 changed files with 7 additions and 2 deletions.
diff --git a/ChangeLog b/ChangeLog
@@ -777,6 +777,8 @@
 
 	* twittering-mode.el (twittering-status-not-blank-p): fix invalid escape sequence
 	(twittering-tinyurl-replace-at-point): disabled when 'mm-url' doesn't exist.
+	(twittering-command-prompt): allow command
+	override
 
 2009-12-12  Alberto Garcia  <agarcia@igalia.com>
 

diff --git a/twittering-mode.el b/twittering-mode.el
@@ -2904,8 +2904,11 @@ The return value is nil or a positive integer less than POS."
   (unless (symbolp function)
     (error (format "twittering-defcommand: `function' must be as symbol")))
   (setq command (format "%s" command))
-  (add-to-list 'twittering-commands
-	       (cons command function)))
+  (let ((entry (assoc command twittering-commands)))
+    (if entry
+	(setcdr entry function)
+      (add-to-list 'twittering-commands
+		   (cons command function)))))
 
 (defun twittering-command-prompt ()
   (interactive)