mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2025-12-15 10:30:25 -08:00
Code Issues Projects Releases Wiki Activity

2009-02-20 Carsten Dominik <dominik@science.uva.nl>

Browse source 
* 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.
This commit is contained in:
Carsten Dominik 2009-02-20 09:02:49 +00:00
parent 49b5c0e87e
commit 9148fdd002
4 changed files with 23 additions and 9 deletions
Download patch file Download diff file Expand all files Collapse all files

13
lisp/org/ChangeLog
View file

@ -1,3 +1,16 @@
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.
2009-02-19 Carsten Dominik <dominik@science.uva.nl>
* org.el (org-block-todo-from-children-or-siblings): Use

7
lisp/org/org-colview.el
View file

@ -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))
@ -406,9 +405,7 @@ Where possible, use the standard interface for changing this line."
(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))))

2
lisp/org/org-remember.el
View file

@ -538,7 +538,7 @@ to be run from that hook to function properly."
propprompt
(mapcar 'list (org-split-string allowed "[ \t]+"))
nil 'req-match)
(org-completing-read propprompt existing nil nil
(org-completing-read-no-ido propprompt existing nil nil
"" nil ""))))
(org-set-property prop val)))
(char

10
lisp/org/org.el
View file

@ -6956,6 +6956,10 @@ used as the link location instead of reading one interactively."
(org-defkey minibuffer-local-completion-map "?" 'self-insert-command)
(apply 'org-ido-completing-read args)))
(defun org-completing-read-no-ido (&rest args)
(let (org-completion-use-ido)
(apply 'org-completing-read args)))
(defun org-ido-completing-read (&rest args)
"Completing-read using `ido-mode' speedups if available"
(if (and org-completion-use-ido
@ -9391,7 +9395,7 @@ ACTION can be `set', `up', `down', or a character."
(setq action (or action 'set))
(let (current new news have remove)
(save-excursion
(org-back-to-heading)
(org-back-to-heading t)
(if (looking-at org-priority-regexp)
(setq current (string-to-char (match-string 2))
have t)
@ -9652,7 +9656,7 @@ also TODO lines."
;; Get a new match request, with completion
(let ((org-last-tags-completion-table
(org-global-tags-completion-table)))
(setq match (org-completing-read
(setq match (org-completing-read-no-ido
"Match: " 'org-tags-completion-function nil nil nil
'org-tags-history))))
@ -10889,7 +10893,7 @@ in the current file."
(existing (mapcar 'list (org-property-values prop)))
(val (if allowed
(org-completing-read "Value: " allowed nil 'req-match)
(org-completing-read
(org-completing-read-no-ido
(concat "Value" (if (and cur (string-match "\\S-" cur))
(concat "[" cur "]") "")
": ")