[Emacs-diffs] emacs/lisp/org ChangeLog org-colview.el org-rem...

[Carsten Dominik]

CVSROOT:        /sources/emacs
Module name:    emacs
Changes by:     Carsten Dominik <cdominik>      09/02/20 09:02:49

Modified files:
        lisp/org       : ChangeLog org-colview.el org-remember.el org.el 

Log message:
        2009-02-20  Carsten Dominik  <address@hidden>
        
                * 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.

CVSWeb URLs:
http://cvs.savannah.gnu.org/viewcvs/emacs/lisp/org/ChangeLog?cvsroot=emacs&r1=1.70&r2=1.71
http://cvs.savannah.gnu.org/viewcvs/emacs/lisp/org/org-colview.el?cvsroot=emacs&r1=1.23&r2=1.24
http://cvs.savannah.gnu.org/viewcvs/emacs/lisp/org/org-remember.el?cvsroot=emacs&r1=1.25&r2=1.26
http://cvs.savannah.gnu.org/viewcvs/emacs/lisp/org/org.el?cvsroot=emacs&r1=1.47&r2=1.48

Patches:
Index: ChangeLog
===================================================================
RCS file: /sources/emacs/emacs/lisp/org/ChangeLog,v
retrieving revision 1.70
retrieving revision 1.71
diff -u -b -r1.70 -r1.71
--- ChangeLog   19 Feb 2009 15:10:20 -0000      1.70
+++ ChangeLog   20 Feb 2009 09:02:49 -0000      1.71
@@ -1,3 +1,16 @@
+2009-02-20  Carsten Dominik  <address@hidden>
+
+       * 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  <address@hidden>
 
        * org.el (org-block-todo-from-children-or-siblings): Use

Index: org-colview.el
===================================================================
RCS file: /sources/emacs/emacs/lisp/org/org-colview.el,v
retrieving revision 1.23
retrieving revision 1.24
diff -u -b -r1.23 -r1.24
--- org-colview.el      2 Feb 2009 20:57:14 -0000       1.23
+++ org-colview.el      20 Feb 2009 09:02:49 -0000      1.24
@@ -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))))

Index: org-remember.el
===================================================================
RCS file: /sources/emacs/emacs/lisp/org/org-remember.el,v
retrieving revision 1.25
retrieving revision 1.26
diff -u -b -r1.25 -r1.26
--- org-remember.el     2 Feb 2009 20:57:17 -0000       1.25
+++ org-remember.el     20 Feb 2009 09:02:49 -0000      1.26
@@ -538,7 +538,7 @@
                           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

Index: org.el
===================================================================
RCS file: /sources/emacs/emacs/lisp/org/org.el,v
retrieving revision 1.47
retrieving revision 1.48
diff -u -b -r1.47 -r1.48
--- org.el      19 Feb 2009 15:10:22 -0000      1.47
+++ org.el      20 Feb 2009 09:02:49 -0000      1.48
@@ -6956,6 +6956,10 @@
     (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 @@
   (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 @@
     ;; 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 @@
          (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 "]") "")
                          ": ")