[Emacs-diffs] emacs/lisp/org ChangeLog org-agenda.el org-atta...

[Juanma Barranquero]

CVSROOT:        /cvsroot/emacs
Module name:    emacs
Changes by:     Juanma Barranquero <lektu>      09/09/23 23:55:28

Modified files:
        lisp/org       : ChangeLog org-agenda.el org-attach.el 
                         org-docbook.el org-html.el org-id.el 
                         org-table.el org.el 

Log message:
        * org.el (org-tree-to-indirect-buffer, org-convert-to-oddeven-levels)
          (org-shiftselect-error, org-ctrl-c-ctrl-c):
        * org-agenda.el (org-agenda-undo, org-check-for-org-mode):
        * org-attach.el (org-attach-check-absolute-path):
        * org-docbook.el (org-export-as-docbook):
        * org-html.el (org-export-as-html):
        * org-id.el (org-id-update-id-locations):
        * org-table.el (org-table-fedit-lisp-indent, orgtbl-send-table):
        Fix typos in error messages.

CVSWeb URLs:
http://cvs.savannah.gnu.org/viewcvs/emacs/lisp/org/ChangeLog?cvsroot=emacs&r1=1.85&r2=1.86
http://cvs.savannah.gnu.org/viewcvs/emacs/lisp/org/org-agenda.el?cvsroot=emacs&r1=1.31&r2=1.32
http://cvs.savannah.gnu.org/viewcvs/emacs/lisp/org/org-attach.el?cvsroot=emacs&r1=1.19&r2=1.20
http://cvs.savannah.gnu.org/viewcvs/emacs/lisp/org/org-docbook.el?cvsroot=emacs&r1=1.6&r2=1.7
http://cvs.savannah.gnu.org/viewcvs/emacs/lisp/org/org-html.el?cvsroot=emacs&r1=1.4&r2=1.5
http://cvs.savannah.gnu.org/viewcvs/emacs/lisp/org/org-id.el?cvsroot=emacs&r1=1.25&r2=1.26
http://cvs.savannah.gnu.org/viewcvs/emacs/lisp/org/org-table.el?cvsroot=emacs&r1=1.30&r2=1.31
http://cvs.savannah.gnu.org/viewcvs/emacs/lisp/org/org.el?cvsroot=emacs&r1=1.51&r2=1.52

Patches:
Index: ChangeLog
===================================================================
RCS file: /cvsroot/emacs/emacs/lisp/org/ChangeLog,v
retrieving revision 1.85
retrieving revision 1.86
diff -u -b -r1.85 -r1.86
--- ChangeLog   17 Sep 2009 16:43:25 -0000      1.85
+++ ChangeLog   23 Sep 2009 23:55:26 -0000      1.86
@@ -1,3 +1,15 @@
+2009-09-23  Juanma Barranquero  <address@hidden>
+
+       * org.el (org-tree-to-indirect-buffer, org-convert-to-oddeven-levels)
+       (org-shiftselect-error, org-ctrl-c-ctrl-c):
+       * org-agenda.el (org-agenda-undo, org-check-for-org-mode):
+       * org-attach.el (org-attach-check-absolute-path):
+       * org-docbook.el (org-export-as-docbook):
+       * org-html.el (org-export-as-html):
+       * org-id.el (org-id-update-id-locations):
+       * org-table.el (org-table-fedit-lisp-indent, orgtbl-send-table):
+       Fix typos in error messages.
+
 2009-09-17  Stefan Monnier  <address@hidden>
 
        * org-ascii.el: Require CL for the `loop' macro.

Index: org-agenda.el
===================================================================
RCS file: /cvsroot/emacs/emacs/lisp/org/org-agenda.el,v
retrieving revision 1.31
retrieving revision 1.32
diff -u -b -r1.31 -r1.32
--- org-agenda.el       3 Sep 2009 07:19:15 -0000       1.31
+++ org-agenda.el       23 Sep 2009 23:55:26 -0000      1.32
@@ -1592,7 +1592,7 @@
 that have been changed along."
   (interactive)
   (or org-agenda-allow-remote-undo
-      (error "Check the variable `org-agenda-allow-remote-undo' to activate 
remote undo."))
+      (error "Check the variable `org-agenda-allow-remote-undo' to activate 
remote undo"))
   (if (not (eq this-command last-command))
       (setq org-agenda-undo-has-started-in nil
            org-agenda-pending-undo-list org-agenda-undo-list))
@@ -2387,7 +2387,7 @@
 (defun org-check-for-org-mode ()
   "Make sure current buffer is in org-mode.  Error if not."
   (or (org-mode-p)
-      (error "Cannot execute org-mode agenda command on buffer in %s."
+      (error "Cannot execute org-mode agenda command on buffer in %s"
             major-mode)))
 
 (defun org-fit-agenda-window ()

Index: org-attach.el
===================================================================
RCS file: /cvsroot/emacs/emacs/lisp/org/org-attach.el,v
retrieving revision 1.19
retrieving revision 1.20
diff -u -b -r1.19 -r1.20
--- org-attach.el       2 Sep 2009 12:59:53 -0000       1.19
+++ org-attach.el       23 Sep 2009 23:55:27 -0000      1.20
@@ -217,7 +217,7 @@
   (or (and dir (file-name-absolute-p dir))
       (file-name-absolute-p org-attach-directory)
       (buffer-file-name (buffer-base-buffer))
-      (error "Need absolute `org-attach-directory' to attach in buffers 
without filename.")))
+      (error "Need absolute `org-attach-directory' to attach in buffers 
without filename")))
 
 (defun org-attach-set-directory ()
   "Set the ATTACH_DIR property of the current entry.

Index: org-docbook.el
===================================================================
RCS file: /cvsroot/emacs/emacs/lisp/org/org-docbook.el,v
retrieving revision 1.6
retrieving revision 1.7
diff -u -b -r1.6 -r1.7
--- org-docbook.el      17 Sep 2009 23:49:15 -0000      1.6
+++ org-docbook.el      23 Sep 2009 23:55:27 -0000      1.7
@@ -387,7 +387,7 @@
        (org-set-local 'buffer-file-name
                       (with-current-buffer (buffer-base-buffer)
                         buffer-file-name))
-      (error "Need a file name to be able to export.")))
+      (error "Need a file name to be able to export")))
 
   (message "Exporting...")
   (setq-default org-todo-line-regexp org-todo-line-regexp)

Index: org-html.el
===================================================================
RCS file: /cvsroot/emacs/emacs/lisp/org/org-html.el,v
retrieving revision 1.4
retrieving revision 1.5
diff -u -b -r1.4 -r1.5
--- org-html.el 2 Sep 2009 12:59:54 -0000       1.4
+++ org-html.el 23 Sep 2009 23:55:27 -0000      1.5
@@ -544,7 +544,7 @@
        (org-set-local 'buffer-file-name
                       (with-current-buffer (buffer-base-buffer)
                         buffer-file-name))
-      (error "Need a file name to be able to export.")))
+      (error "Need a file name to be able to export")))
 
   (message "Exporting...")
   (setq-default org-todo-line-regexp org-todo-line-regexp)

Index: org-id.el
===================================================================
RCS file: /cvsroot/emacs/emacs/lisp/org/org-id.el,v
retrieving revision 1.25
retrieving revision 1.26
diff -u -b -r1.25 -r1.26
--- org-id.el   2 Sep 2009 12:59:55 -0000       1.25
+++ org-id.el   23 Sep 2009 23:55:27 -0000      1.26
@@ -390,7 +390,7 @@
 When CHECK is given, prepare detailed information about duplicate IDs."
   (interactive)
   (if (not org-id-track-globally)
-      (error "Please turn on `org-id-track-globally' if you want to track 
IDs.")
+      (error "Please turn on `org-id-track-globally' if you want to track IDs")
     (let ((files
           (or files
               (append

Index: org-table.el
===================================================================
RCS file: /cvsroot/emacs/emacs/lisp/org/org-table.el,v
retrieving revision 1.30
retrieving revision 1.31
diff -u -b -r1.30 -r1.31
--- org-table.el        2 Sep 2009 12:59:56 -0000       1.30
+++ org-table.el        23 Sep 2009 23:55:27 -0000      1.31
@@ -2993,7 +2993,7 @@
       (call-interactively 'lisp-indent-line))
      ((looking-at "[$&@0-9a-zA-Z]+ *= *[^ \t\n']") (goto-char pos))
      ((not (fboundp 'pp-buffer))
-      (error "Cannot pretty-print.  Command `pp-buffer' is not available."))
+      (error "Cannot pretty-print.  Command `pp-buffer' is not available"))
      ((looking-at "[$&@0-9a-zA-Z]+ *= *'(")
       (goto-char (- (match-end 0) 2))
       (setq beg (point))
@@ -3783,7 +3783,7 @@
                                               (org-table-end)))
          (ntbl 0))
       (unless dests (if maybe (throw 'exit nil)
-                     (error "Don't know how to transform this table.")))
+                     (error "Don't know how to transform this table")))
       (dolist (dest dests)
        (let* ((name (plist-get dest :name))
               (transform (plist-get dest :transform))

Index: org.el
===================================================================
RCS file: /cvsroot/emacs/emacs/lisp/org/org.el,v
retrieving revision 1.51
retrieving revision 1.52
diff -u -b -r1.51 -r1.52
--- org.el      2 Sep 2009 12:59:56 -0000       1.51
+++ org.el      23 Sep 2009 23:55:27 -0000      1.52
@@ -5661,7 +5661,7 @@
       (switch-to-buffer ibuf))
      ((eq org-indirect-buffer-display 'other-window)
       (pop-to-buffer ibuf))
-     (t (error "Invalid value.")))
+     (t (error "Invalid value")))
     (if (featurep 'xemacs)
         (save-excursion (org-mode) (turn-on-font-lock)))
     (narrow-to-region beg end)
@@ -6073,7 +6073,7 @@
   ;; First check if there are no even levels
   (when (re-search-forward "^\\(\\*\\*\\)+ " nil t)
     (org-show-context t)
-    (error "Not all levels are odd in this file.  Conversion not possible."))
+    (error "Not all levels are odd in this file.  Conversion not possible"))
   (when (yes-or-no-p "Are you sure you want to globally change levels to 
odd-even? ")
     (let ((org-odd-levels-only nil) n)
       (save-excursion
@@ -14589,8 +14589,8 @@
 (defun org-shiftselect-error ()
   "Throw an error because Shift-Cursor command was applied in wrong context."
   (if (and (boundp 'shift-select-mode) shift-select-mode)
-      (error "To use shift-selection with Org-mode, customize 
`org-support-shift-select'.")
-    (error "This command works only in special context like headlines or 
timestamps.")))
+      (error "To use shift-selection with Org-mode, customize 
`org-support-shift-select'")
+    (error "This command works only in special context like headlines or 
timestamps")))
 
 (defun org-call-for-shift-select (cmd)
   (let ((this-command-keys-shift-translated t))
@@ -15029,7 +15029,7 @@
        (let ((org-inhibit-startup t)) (org-mode-restart))
        (message "Local setup has been refreshed"))))
      ((org-clock-update-time-maybe))
-     (t (error "C-c C-c can do nothing useful at this location.")))))
+     (t (error "C-c C-c can do nothing useful at this location")))))
 
 (defun org-mode-restart ()
   "Restart Org-mode, to scan again for special lines.