* org.el (org-columns-modify-value-for-display-function):

* org-table.el (org-table-convert-region): Fix typos in docstrings.

diff --git a/lisp/org/ChangeLog b/lisp/org/ChangeLog
index 9ebfe4dd0fe7e20f5e4ab6150990e7639b2fb3e2..82de83a0fe56c813e021171ea111a5fc082bb32d 100644 (file)
--- a/lisp/org/ChangeLog
+++ b/lisp/org/ChangeLog
@@ -1,3 +1,8 @@
+2008-11-04  Juanma Barranquero  <lekktu@gmail.com>
+
+       * org.el (org-columns-modify-value-for-display-function):
+       * org-table.el (org-table-convert-region): Fix typos in docstrings.
+
 2008-10-28  Glenn Morris  <rgm@gnu.org>
 
        * org-agenda.el (org-agenda-align-tags): Replace use of cl `adjoin'.

diff --git a/lisp/org/org-table.el b/lisp/org/org-table.el
index e57b83d95deb7de750becd5a685a700097742e70..08893a8d8f24bf897b071878b635f8d2f3c9975c 100644 (file)
--- a/lisp/org/org-table.el
+++ b/lisp/org/org-table.el
@@ -379,7 +379,7 @@ nil      When nil, the command tries to be smart and figure out the
          separator in the following way:
          - when each line contains a TAB, assume TAB-separated material
          - when each line contains a comme, assume CSV material
-         - else, assume one or more SPACE charcters as separator."
+         - else, assume one or more SPACE characters as separator."
   (interactive "rP")
   (let* ((beg (min beg0 end0))
         (end (max beg0 end0))
@@ -3490,7 +3490,7 @@ overwritten, and the table is not marked as requiring realignment."
        (self-insert-command N))
     (setq org-table-may-need-update t)
     (let (orgtbl-mode a)
-      (call-interactively 
+      (call-interactively
        (key-binding
        (or (and (listp function-key-map)
                 (setq a (assoc last-input-event function-key-map))
@@ -3569,7 +3569,7 @@ The table is taken from the parameter TXT, or from the buffer at point."
   (unless txt
     (unless (org-at-table-p)
       (error "No table at point")))
-  (let* ((txt (or txt 
+  (let* ((txt (or txt
                  (buffer-substring-no-properties (org-table-begin)
                                                  (org-table-end))))
         (lines (org-split-string txt "[ \t]*\n[ \t]*")))

diff --git a/lisp/org/org.el b/lisp/org/org.el
index 89695968e38dba47516308867e7ec82646a78324..b9ee2fc098da189c2f719e547d33ba30c16e7db5 100644 (file)
--- a/lisp/org/org.el
+++ b/lisp/org/org.el
@@ -1666,7 +1666,7 @@ end of the second format."
 org-mode generates a time duration."
   :group 'org-time
   :type 'string)
-  
+
 (defcustom org-deadline-warning-days 14
   "No. of days before expiration during which a deadline becomes active.
 This variable governs the display in sparse trees and in the agenda.
@@ -1938,7 +1938,7 @@ ellipses string, only part of the ellipses string will be shown."
 (defcustom org-columns-modify-value-for-display-function nil
   "Function that modifies values for display in column view.
 For example, it can be used to cut out a certain part from a time stamp.
-The function must take 2 argments:
+The function must take 2 arguments:
 
 column-title    The tite of the column (*not* the property name)
 value           The value that should be modified.
@@ -2532,7 +2532,7 @@ Otherwise, return nil."
                     (<= org-clock-marker (point-at-eol)))
            ;; The clock is running here
            (setq org-clock-start-time
-                 (apply 'encode-time 
+                 (apply 'encode-time
                         (org-parse-time-string (match-string 1))))
            (org-update-mode-line)))
         (t
@@ -2705,8 +2705,8 @@ collapsed state."
 ;; Autoload ID code
 
 (org-autoload "org-id"
- '(org-id-get-create org-id-new org-id-copy org-id-get 
-   org-id-get-with-outline-path-completion 
+ '(org-id-get-create org-id-new org-id-copy org-id-get
+   org-id-get-with-outline-path-completion
    org-id-get-with-outline-drilling
    org-id-goto org-id-find))
 
@@ -5624,7 +5624,7 @@ the language, a switch telling of the content should be in a single line."
           (string-match "\\<style=\"\\([^ \t\n\"]+\\)\"" m))
       (match-string 1 m))
      (t "fundamental"))))
-      
+
 (defun org-edit-src-exit ()
   "Exit special edit and protect problematic lines."
   (interactive)
@@ -7229,7 +7229,7 @@ on the system \"/user@host:\"."
   (while (string-match "/" s)
     (setq s (replace-match "\\" t t s)))
   s)
-    
+
 (defun org-get-outline-path ()
   "Return the outline path to the current entry, as a list."
   (let (rtn)
@@ -7333,7 +7333,7 @@ operation has put the subtree."
 (defun org-olpath-completing-read (prompt collection &rest args)
   "Read an outline path like a file name."
   (let ((thetable collection))
-    (apply 
+    (apply
      'completing-read prompt
      (lambda (string predicate &optional flag)
        (let (rtn r s f (l (length string)))
@@ -7490,7 +7490,7 @@ This function can be used in a hook."
 
 (defcustom org-structure-template-alist
   '(
-    ("s" "#+begin_src ?\n\n#+end_src" 
+    ("s" "#+begin_src ?\n\n#+end_src"
          "<src lang=\"?\">\n\n</src>")
     ("e" "#+begin_example\n?\n#+end_example"
          "<example>\n?\n</example>")
@@ -7553,7 +7553,7 @@ expands them."
        (t (newline))))
     (setq start (point))
     (if (string-match "%file" rpl)
-       (setq rpl (replace-match 
+       (setq rpl (replace-match
                   (concat
                    "\""
                    (save-match-data
@@ -7562,7 +7562,7 @@ expands them."
                   t t rpl)))
     (insert rpl)
     (if (re-search-backward "\\?" start t) (delete-char 1))))
-    
+
 
 (defun org-complete (&optional arg)
   "Perform completion on word at point.
@@ -7962,7 +7962,7 @@ For calling through lisp, arg is also interpreted in the following way:
            (condition-case nil
                (org-forward-same-level 1)
              (error (end-of-line 1)))))
-       (replace-match 
+       (replace-match
         (if is-percent
             (format "[%d%%]" (/ (* 100 cnt-done) (max 1 cnt-all)))
           (format "[%d/%d]" cnt-done cnt-all)))
@@ -7999,7 +7999,7 @@ when there is a statistics cookie in the headline!
       (setq changes (append changes (cdr (assoc 'done l)))))
     (dolist (c changes)
       (org-toggle-tag (car c) (if (cdr c) 'on 'off)))))
-        
+
 (defun org-local-logging (value)
   "Get logging settings from a property VALUE."
   (let* (words w a)
@@ -8401,7 +8401,7 @@ EXTRA is additional text that will be inserted into the notes buffer."
     (save-excursion
       (when findpos
        (org-back-to-heading t)
-       (narrow-to-region (point) (save-excursion 
+       (narrow-to-region (point) (save-excursion
                                    (outline-next-heading) (point)))
        (looking-at (concat outline-regexp "\\( *\\)[^\r\n]*"
                            "\\(\n[^\r\n]*?" org-keyword-time-not-clock-regexp
@@ -9628,12 +9628,12 @@ the scanner.  The following items can be given here:
      ((eq match t)   (setq matcher t))
      ((eq match nil) (setq matcher t))
      (t (setq matcher (if match (org-make-tags-matcher match) t))))
-    
+
     (when (eq scope 'tree)
       (org-back-to-heading t)
       (org-narrow-to-subtree)
       (setq scope nil))
-    
+
     (if (not scope)
        (progn
          (org-prepare-agenda-buffers
@@ -9968,7 +9968,7 @@ is set.")
              (move-marker org-entry-property-inherited-from (point))
              (throw 'ex tmp))
            (or (org-up-heading-safe) (throw 'ex nil)))))
-      (or tmp 
+      (or tmp
          (cdr (assoc property org-file-properties))
          (cdr (assoc property org-global-properties))
          (cdr (assoc property org-global-properties-fixed))))))
@@ -11488,11 +11488,11 @@ If EXCLUDE-TMP is non-nil, ignore temporary buffers."
            (lambda (b) (string-match "\*Org .*Export" (buffer-name b))))
           ((eq predicate 'agenda)
            (lambda (b)
-             (with-current-buffer b 
+             (with-current-buffer b
                (and (eq major-mode 'org-mode)
                     (setq bfn (buffer-file-name b))
                     (member (file-truename bfn) agenda-files)))))
-          (t (lambda (b) (with-current-buffer b 
+          (t (lambda (b) (with-current-buffer b
                            (or (eq major-mode 'org-mode)
                                (string-match "\*Org .*Export"
                                              (buffer-name b)))))))))
@@ -11710,7 +11710,7 @@ When a buffer is unmodified, it is just killed.  When modified, it is saved
                (append org-done-keywords-for-agenda org-done-keywords))
          (setq org-todo-keyword-alist-for-agenda
                (append org-todo-keyword-alist-for-agenda org-todo-key-alist))
-         (setq org-tag-alist-for-agenda 
+         (setq org-tag-alist-for-agenda
                (append org-tag-alist-for-agenda org-tag-alist))
 
          (save-excursion