Column view: Fix bug when editing TODO field.

Since we now have org-use-fast-todo-selection set by default,
there is no reason for special treatment of the prefix argument
anymore.

Reported by Wanrong Lin.

lisp/ChangeLog

@@ -1,5 +1,11 @@
 2009-02-20  Carsten Dominik  <carsten.dominik@gmail.com>
 
+	* org-colview-xemacs.el (org-columns-edit-value): No special
+	treatment for `org-todo' prefix.
+
+	* org-colview.el (org-columns-edit-value): No special treatment
+	for `org-todo' prefix.
+
 	* org-remember.el (org-remember-apply-template): Use
 	`org-completing-read-no-ido'.
 

lisp/org-colview-xemacs.el

@@ -576,8 +576,7 @@ If yes, throw an error indicating that changing it does not make sense."
 Where possible, use the standard interface for changing this line."
   (interactive)
   (org-columns-check-computed)
-  (let* ((external-key key)
-	 (col (current-column))
+  (let* ((col (current-column))
 	 (key (or key (get-char-property (point) 'org-columns-key)))
 	 (value (get-char-property (point) 'org-columns-value))
 	 (bol (point-at-bol)) (eol (point-at-eol))
@@ -599,9 +598,7 @@ Where possible, use the standard interface for changing this line."
      ((equal key "TODO")
       (setq eval '(org-with-point-at
 		   pom
-		   (let ((current-prefix-arg
-			  (if external-key current-prefix-arg '(4))))
-		     (call-interactively 'org-todo)))))
+		   (call-interactively 'org-todo))))
      ((equal key "PRIORITY")
       (setq eval '(org-with-point-at pom
 				     (call-interactively 'org-priority))))

lisp/org-colview.el

@@ -383,8 +383,7 @@ If yes, throw an error indicating that changing it does not make sense."
 Where possible, use the standard interface for changing this line."
   (interactive)
   (org-columns-check-computed)
-  (let* ((external-key key)
-	 (col (current-column))
+  (let* ((col (current-column))
 	 (key (or key (get-char-property (point) 'org-columns-key)))
 	 (value (get-char-property (point) 'org-columns-value))
 	 (bol (point-at-bol)) (eol (point-at-eol))
@@ -405,10 +404,9 @@ Where possible, use the standard interface for changing this line."
       (setq eval '(org-with-point-at pom
 		    (org-edit-headline))))
      ((equal key "TODO")
-      (setq eval '(org-with-point-at pom
-		    (let ((current-prefix-arg
-			   (if external-key current-prefix-arg '(4))))
-		      (call-interactively 'org-todo)))))
+      (setq eval '(org-with-point-at
+		   pom
+		   (call-interactively 'org-todo))))
      ((equal key "PRIORITY")
       (setq eval '(org-with-point-at pom
 		    (call-interactively 'org-priority))))