Mercurial > emacs
diff lisp/org/org-colview.el @ 102148:b8dfb0b7d10f
2009-02-20 Carsten Dominik <dominik@science.uva.nl>
* org-remember.el (org-remember-apply-template): Turn off ido for
this completion.
* org.el (org-priority): Also find invisible headings, for remote
editing.
(org-completing-read-no-ido): New function.
(org-make-tags-matcher, org-set-property): Turn off ido for this completion.
* org-colview.el (org-columns-edit-value): No special treatment of
prefix arg.
| author | Carsten Dominik <dominik@science.uva.nl> |
|---|---|
| date | Fri, 20 Feb 2009 09:02:49 +0000 |
| parents | 6d71fc980cde |
| children | ac1a55cc2c38 |
line wrap: on
line diff
--- a/lisp/org/org-colview.el Fri Feb 20 06:18:51 2009 +0000 +++ b/lisp/org/org-colview.el Fri Feb 20 09:02:49 2009 +0000 @@ -383,8 +383,7 @@ 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)) @@ -406,9 +405,7 @@ (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))))) + (call-interactively 'org-todo)))) ((equal key "PRIORITY") (setq eval '(org-with-point-at pom (call-interactively 'org-priority))))