Mercurial > emacs
comparison 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 |
comparison
equal
deleted
inserted
replaced
| 102147:4112729ac2e4 | 102148:b8dfb0b7d10f |
|---|---|
| 381 (defun org-columns-edit-value (&optional key) | 381 (defun org-columns-edit-value (&optional key) |
| 382 "Edit the value of the property at point in column view. | 382 "Edit the value of the property at point in column view. |
| 383 Where possible, use the standard interface for changing this line." | 383 Where possible, use the standard interface for changing this line." |
| 384 (interactive) | 384 (interactive) |
| 385 (org-columns-check-computed) | 385 (org-columns-check-computed) |
| 386 (let* ((external-key key) | 386 (let* ((col (current-column)) |
| 387 (col (current-column)) | |
| 388 (key (or key (get-char-property (point) 'org-columns-key))) | 387 (key (or key (get-char-property (point) 'org-columns-key))) |
| 389 (value (get-char-property (point) 'org-columns-value)) | 388 (value (get-char-property (point) 'org-columns-value)) |
| 390 (bol (point-at-bol)) (eol (point-at-eol)) | 389 (bol (point-at-bol)) (eol (point-at-eol)) |
| 391 (pom (or (get-text-property bol 'org-hd-marker) | 390 (pom (or (get-text-property bol 'org-hd-marker) |
| 392 (point))) ; keep despite of compiler waring | 391 (point))) ; keep despite of compiler waring |
| 404 ((equal key "ITEM") | 403 ((equal key "ITEM") |
| 405 (setq eval '(org-with-point-at pom | 404 (setq eval '(org-with-point-at pom |
| 406 (org-edit-headline)))) | 405 (org-edit-headline)))) |
| 407 ((equal key "TODO") | 406 ((equal key "TODO") |
| 408 (setq eval '(org-with-point-at pom | 407 (setq eval '(org-with-point-at pom |
| 409 (let ((current-prefix-arg | 408 (call-interactively 'org-todo)))) |
| 410 (if external-key current-prefix-arg '(4)))) | |
| 411 (call-interactively 'org-todo))))) | |
| 412 ((equal key "PRIORITY") | 409 ((equal key "PRIORITY") |
| 413 (setq eval '(org-with-point-at pom | 410 (setq eval '(org-with-point-at pom |
| 414 (call-interactively 'org-priority)))) | 411 (call-interactively 'org-priority)))) |
| 415 ((equal key "TAGS") | 412 ((equal key "TAGS") |
| 416 (setq eval '(org-with-point-at pom | 413 (setq eval '(org-with-point-at pom |