[Emacs-diffs] Changes to emacs/lisp/textmodes/org.el

[D . Goel]

Index: emacs/lisp/textmodes/org.el
diff -c emacs/lisp/textmodes/org.el:1.35 emacs/lisp/textmodes/org.el:1.36
*** emacs/lisp/textmodes/org.el:1.35    Wed Aug 31 10:28:38 2005
--- emacs/lisp/textmodes/org.el Sun Sep 18 12:28:29 2005
***************
*** 2805,2811 ****
                      (assoc completion table))
                 (insert " "))
             (if (and (equal type :opt) (assoc completion table))
!                (message (substitute-command-keys
                           "Press \\[org-complete] again to insert example 
settings"))))
            (t
             (message "Making completion list...")
--- 2805,2811 ----
                      (assoc completion table))
                 (insert " "))
             (if (and (equal type :opt) (assoc completion table))
!                (message "%s" (substitute-command-keys
                           "Press \\[org-complete] again to insert example 
settings"))))
            (t
             (message "Making completion list...")
***************
*** 2912,2918 ****
     org-deadline-string " "
     (format-time-string (car org-time-stamp-formats)
                       (org-read-date nil 'to-time)))
!   (message (substitute-command-keys
            "Use \\[org-timestamp-up-day] and \\[org-timestamp-down-day] to 
change the date.")))
  
  (defun org-schedule ()
--- 2912,2918 ----
     org-deadline-string " "
     (format-time-string (car org-time-stamp-formats)
                       (org-read-date nil 'to-time)))
!   (message "%s" (substitute-command-keys
            "Use \\[org-timestamp-up-day] and \\[org-timestamp-down-day] to 
change the date.")))
  
  (defun org-schedule ()
***************
*** 2924,2930 ****
     org-scheduled-string " "
     (format-time-string (car org-time-stamp-formats)
                       (org-read-date nil 'to-time)))
!   (message (substitute-command-keys
            "Use \\[org-timestamp-up-day] and \\[org-timestamp-down-day] to 
change the date.")))
  
  
--- 2924,2930 ----
     org-scheduled-string " "
     (format-time-string (car org-time-stamp-formats)
                       (org-read-date nil 'to-time)))
!   (message "%s" (substitute-command-keys
            "Use \\[org-timestamp-up-day] and \\[org-timestamp-down-day] to 
change the date.")))
  
  
***************
*** 2997,3003 ****
        (setq current org-default-priority))
        (cond
         ((eq action 'set)
!       (message (format "Priority A-%c, SPC to remove: " org-lowest-priority))
        (setq new (read-char-exclusive))
        (cond ((equal new ?\ ) (setq remove t))
              ((or (< (upcase new) ?A) (> (upcase new) org-lowest-priority))
--- 2997,3003 ----
        (setq current org-default-priority))
        (cond
         ((eq action 'set)
!       (message "Priority A-%c, SPC to remove: " org-lowest-priority)
        (setq new (read-char-exclusive))
        (cond ((equal new ?\ ) (setq remove t))
              ((or (< (upcase new) ?A) (> (upcase new) org-lowest-priority))
***************
*** 7014,7022 ****
                     (format "%d:%02d:%02d" h m s))))
        (kill-new sres)
        (if (interactive-p)
!           (message (substitute-command-keys
!                     (format "Sum of %d items: %-20s     (\\[yank] will insert 
result into buffer)"
!                             (length numbers) sres))))
        sres))))
  
  (defun org-table-get-number-for-summing (s)
--- 7014,7026 ----
                     (format "%d:%02d:%02d" h m s))))
        (kill-new sres)
        (if (interactive-p)
!           (message "%s"
!                    (concat
!                     (format "Sum of %d items: %-20s     "  (length numbers) 
sres)
!                     (substitute-command-keys
!                      "(\\[yank] will insert result into buffer)")
!                     ))
!         )
        sres))))
  
  (defun org-table-get-number-for-summing (s)