diff options
author | Bastien Guerry <bzg@altern.org> | 2012-09-28 17:47:48 +0200 |
---|---|---|
committer | Bastien Guerry <bzg@altern.org> | 2012-09-28 17:47:48 +0200 |
commit | 222eae4033d2634dbba72a2e6b0229fc3d1b6a74 (patch) | |
tree | 3d5c8e628a0271331ec6277594209622fafddf79 | |
parent | ac25422286a4737fb5eca232d4f38783e3d12456 (diff) | |
download | org-mode-222eae4033d2634dbba72a2e6b0229fc3d1b6a74.tar.gz |
Fix error messages: don't use a dot at the end
-rw-r--r-- | contrib/lisp/org-annotate-file.el | 2 | ||||
-rw-r--r-- | contrib/lisp/org-contacts.el | 2 | ||||
-rw-r--r-- | contrib/lisp/org-drill.el | 2 | ||||
-rw-r--r-- | contrib/lisp/org-e-odt.el | 4 | ||||
-rw-r--r-- | lisp/ob-io.el | 4 | ||||
-rw-r--r-- | lisp/ob-perl.el | 4 | ||||
-rw-r--r-- | lisp/ob-python.el | 10 | ||||
-rw-r--r-- | lisp/ob-scala.el | 4 | ||||
-rw-r--r-- | lisp/ob-sqlite.el | 2 | ||||
-rw-r--r-- | lisp/org-bibtex.el | 2 | ||||
-rw-r--r-- | lisp/org-clock.el | 5 | ||||
-rw-r--r-- | lisp/org-colview.el | 2 | ||||
-rw-r--r-- | lisp/org-gnus.el | 2 | ||||
-rw-r--r-- | lisp/org-odt.el | 4 | ||||
-rw-r--r-- | lisp/org-table.el | 2 |
15 files changed, 25 insertions, 26 deletions
diff --git a/contrib/lisp/org-annotate-file.el b/contrib/lisp/org-annotate-file.el index 2368bc6..55e5a32 100644 --- a/contrib/lisp/org-annotate-file.el +++ b/contrib/lisp/org-annotate-file.el @@ -86,7 +86,7 @@ that appear after the value in `after' with '...'" "Put a section for the current file into your annotation file" (interactive) (unless (buffer-file-name) - (error "This buffer has no associated file.")) + (error "This buffer has no associated file")) (org-annotate-file-show-section)) (defun org-annotate-file-show-section (&optional buffer) diff --git a/contrib/lisp/org-contacts.el b/contrib/lisp/org-contacts.el index fbdf0fc..bc52648 100644 --- a/contrib/lisp/org-contacts.el +++ b/contrib/lisp/org-contacts.el @@ -609,7 +609,7 @@ Org-contacts does not specify how to encode the name. So we try to do our best." "Show contacts on a map. Requires google-maps-el." (interactive) (unless (fboundp 'google-maps-static-show) - (error "org-contacts-show-map requires google-maps-el.")) + (error "`org-contacts-show-map' requires `google-maps-el'")) (google-maps-static-show :markers (loop diff --git a/contrib/lisp/org-drill.el b/contrib/lisp/org-drill.el index 793d6b4..2ffc201 100644 --- a/contrib/lisp/org-drill.el +++ b/contrib/lisp/org-drill.el @@ -1438,7 +1438,7 @@ visual overlay, or with the string TEXT if it is supplied." (defun org-drill-hide-heading-at-point (&optional text) (unless (org-at-heading-p) - (error "Point is not on a heading.")) + (error "Point is not on a heading")) (save-excursion (let ((beg (point))) (end-of-line) diff --git a/contrib/lisp/org-e-odt.el b/contrib/lisp/org-e-odt.el index 0f9e2d4..b2f7479 100644 --- a/contrib/lisp/org-e-odt.el +++ b/contrib/lisp/org-e-odt.el @@ -174,7 +174,7 @@ heuristically based on the values of `org-e-odt-lib-dir' and org-e-odt-styles-dir-list) nil))) (unless styles-dir - (error "Error (org-e-odt): Cannot find factory styles files. Aborting.")) + (error "Error (org-e-odt): Cannot find factory styles files, aborting")) styles-dir) "Directory that holds auxiliary XML files used by the ODT exporter. @@ -2187,7 +2187,7 @@ CONTENTS is nil. INFO is a plist holding contextual information." (cdr (assoc-string anchor-type org-e-odt-default-image-sizes-alist)) ;; Error out. - (error "Cannot determine Image size. Aborting ...")))) + (error "Cannot determine image size, aborting")))) (width (car size)) (height (cdr size))) (cond (scale diff --git a/lisp/ob-io.el b/lisp/ob-io.el index 3b6968c..2064826 100644 --- a/lisp/ob-io.el +++ b/lisp/ob-io.el @@ -85,7 +85,7 @@ Emacs-lisp table, otherwise return the results as a string." If RESULT-TYPE equals 'output then return standard output as a string. If RESULT-TYPE equals 'value then return the value of the last statement in BODY as elisp." - (when session (error "Sessions are not supported for Io. Yet.")) + (when session (error "Sessions are not (yet) supported for Io")) (case result-type (output (if (member "repl" result-params) @@ -107,7 +107,7 @@ in BODY as elisp." (defun org-babel-prep-session:io (session params) "Prepare SESSION according to the header arguments specified in PARAMS." - (error "Sessions are not supported for Io. Yet.")) + (error "Sessions are not (yet) supported for Io")) (defun org-babel-io-initiate-session (&optional session) "If there is not a current inferior-process-buffer in SESSION diff --git a/lisp/ob-perl.el b/lisp/ob-perl.el index 32132ef..abf0ed6 100644 --- a/lisp/ob-perl.el +++ b/lisp/ob-perl.el @@ -57,7 +57,7 @@ This function is called by `org-babel-execute-src-block'." (defun org-babel-prep-session:perl (session params) "Prepare SESSION according to the header arguments in PARAMS." - (error "Sessions are not supported for Perl.")) + (error "Sessions are not supported for Perl")) (defun org-babel-variable-assignments:perl (params) "Return list of perl statements assigning the block's variables." @@ -101,7 +101,7 @@ print o join(\"\\n\", @r), \"\\n\"") If RESULT-TYPE equals 'output then return a list of the outputs of the statements in BODY, if RESULT-TYPE equals 'value then return the value of the last statement in BODY, as elisp." - (when session (error "Sessions are not supported for Perl.")) + (when session (error "Sessions are not supported for Perl")) (case result-type (output (org-babel-eval org-babel-perl-command body)) (value (let ((tmp-file (org-babel-temp-file "perl-"))) diff --git a/lisp/ob-python.el b/lisp/ob-python.el index 980cfa8..71adf73 100644 --- a/lisp/ob-python.el +++ b/lisp/ob-python.el @@ -44,7 +44,7 @@ (defvar org-babel-default-header-args:python '()) (defvar org-babel-python-command "python" - "Name of command for executing python code.") + "Name of command for executing Python code.") (defvar org-babel-python-mode (if (featurep 'xemacs) 'python-mode 'python) "Preferred python mode for use in running python interactively. @@ -99,7 +99,7 @@ VARS contains resolved variable references" ;; helper functions (defun org-babel-variable-assignments:python (params) - "Return list of python statements assigning the block's variables." + "Return a list of Python statements assigning the block's variables." (mapcar (lambda (pair) (format "%s=%s" @@ -160,7 +160,7 @@ then create. Return the initialized session." (py-shell) (setq python-buffer (concat "*" bufname "*")))) (t - (error "No function available for running an inferior python."))) + (error "No function available for running an inferior Python"))) (setq org-babel-python-buffers (cons (cons session python-buffer) (assq-delete-all session org-babel-python-buffers))) @@ -190,7 +190,7 @@ open('%s', 'w').write( pprint.pformat(main()) )") (defun org-babel-python-evaluate (session body &optional result-type result-params preamble) - "Evaluate BODY as python code." + "Evaluate BODY as Python code." (if session (org-babel-python-evaluate-session session body result-type result-params) @@ -288,7 +288,7 @@ last statement in BODY, as elisp." (org-babel-eval-read-file tmp-file))))))) (defun org-babel-python-read-string (string) - "Strip 's from around python string." + "Strip 's from around Python string." (if (string-match "^'\\([^\000]+\\)'$" string) (match-string 1 string) string)) diff --git a/lisp/ob-scala.el b/lisp/ob-scala.el index d4b87be..b5eb184 100644 --- a/lisp/ob-scala.el +++ b/lisp/ob-scala.el @@ -84,7 +84,7 @@ Emacs-lisp table, otherwise return the results as a string." If RESULT-TYPE equals 'output then return standard output as a string. If RESULT-TYPE equals 'value then return the value of the last statement in BODY as elisp." - (when session (error "Sessions are not supported for Scala. Yet.")) + (when session (error "Sessions are not (yet) supported for Scala")) (case result-type (output (let ((src-file (org-babel-temp-file "scala-"))) @@ -105,7 +105,7 @@ in BODY as elisp." (defun org-babel-prep-session:scala (session params) "Prepare SESSION according to the header arguments specified in PARAMS." - (error "Sessions are not supported for Scala. Yet.")) + (error "Sessions are not (yet) supported for Scala")) (defun org-babel-scala-initiate-session (&optional session) "If there is not a current inferior-process-buffer in SESSION diff --git a/lisp/ob-sqlite.el b/lisp/ob-sqlite.el index 2b685da..24a7dd5 100644 --- a/lisp/ob-sqlite.el +++ b/lisp/ob-sqlite.el @@ -71,7 +71,7 @@ This function is called by `org-babel-execute-src-block'." (list :header :echo :bail :column :csv :html :line :list)))) exit-code) - (unless db (error "ob-sqlite: can't evaluate without a database.")) + (unless db (error "ob-sqlite: can't evaluate without a database")) (with-temp-buffer (insert (org-babel-eval diff --git a/lisp/org-bibtex.el b/lisp/org-bibtex.el index cffa28a..f8e07ad 100644 --- a/lisp/org-bibtex.el +++ b/lisp/org-bibtex.el @@ -628,7 +628,7 @@ This uses `bibtex-parse-entry'." "Insert a heading built from the first element of `org-bibtex-entries'." (interactive) (when (= (length org-bibtex-entries) 0) - (error "No entries in `org-bibtex-entries'.")) + (error "No entries in `org-bibtex-entries'")) (let* ((entry (pop org-bibtex-entries)) (org-special-properties nil) ; avoids errors with `org-entry-put' (val (lambda (field) (cdr (assoc field entry)))) diff --git a/lisp/org-clock.el b/lisp/org-clock.el index 82865fe..bb6f2b9 100644 --- a/lisp/org-clock.el +++ b/lisp/org-clock.el @@ -2014,9 +2014,8 @@ the returned times will be formatted strings." ((string-match "\\([-+][0-9]+\\)$" skey) (setq shift (string-to-number (match-string 1 skey)) key (intern (substring skey 0 (match-beginning 1)))) - (if(and (memq key '(quarter thisq)) (> shift 0)) - (error "Looking forward with quarters isn't implemented.") - ()))) + (if (and (memq key '(quarter thisq)) (> shift 0)) + (error "Looking forward with quarters isn't implemented")))) (when (= shift 0) (cond ((eq key 'yesterday) (setq key 'today shift -1)) diff --git a/lisp/org-colview.el b/lisp/org-colview.el index 56219f2..e17210b 100644 --- a/lisp/org-colview.el +++ b/lisp/org-colview.el @@ -36,7 +36,7 @@ (declare-function org-clock-sum-today "org-clock" (&optional headline-filter)) (when (featurep 'xemacs) - (error "Do not load this file into XEmacs, use 'org-colview-xemacs.el'.")) + (error "Do not load this file into XEmacs, use `org-colview-xemacs.el'")) ;;; Column View diff --git a/lisp/org-gnus.el b/lisp/org-gnus.el index 8ae41ee..77f9c0b 100644 --- a/lisp/org-gnus.el +++ b/lisp/org-gnus.el @@ -207,7 +207,7 @@ If `org-store-link' was called with a prefix arg the meaning of desc link newsgroup xarchive) ; those are always nil for gcc (and (not gcc) - (error "Can not create link: No Gcc header found.")) + (error "Can not create link: No Gcc header found")) (org-store-link-props :type "gnus" :from from :subject subject :message-id id :group gcc :to to) (setq desc (org-email-link-description) diff --git a/lisp/org-odt.el b/lisp/org-odt.el index e7d4e31..7de4b5d 100644 --- a/lisp/org-odt.el +++ b/lisp/org-odt.el @@ -211,7 +211,7 @@ heuristically based on the values of `org-odt-lib-dir' and org-odt-styles-dir-list) nil))) (unless styles-dir - (error "Error (org-odt): Cannot find factory styles files. Aborting.")) + (error "Error (org-odt): Cannot find factory styles files, aborting")) styles-dir) "Directory that holds auxiliary XML files used by the ODT exporter. @@ -2076,7 +2076,7 @@ ATTR is a string of other attributes of the a element." until size do (setq size (org-odt-do-image-size probe-method file dpi embed-as))) - (or size (error "Cannot determine Image size. Aborting ...")) + (or size (error "Cannot determine image size, aborting")) (setq width (car size) height (cdr size))) (cond (scale diff --git a/lisp/org-table.el b/lisp/org-table.el index 37889af..782e309 100644 --- a/lisp/org-table.el +++ b/lisp/org-table.el @@ -2191,7 +2191,7 @@ For all numbers larger than LIMIT, shift them by DELTA." (while (re-search-forward re2 (point-at-eol) t) (unless (save-match-data (org-in-regexp "remote([^)]+?)")) (if (equal (char-before (match-beginning 0)) ?.) - (error "Change makes TBLFM term %s invalid. Use undo to recover." + (error "Change makes TBLFM term %s invalid, use undo to recover" (match-string 0)) (replace-match ""))))) (while (re-search-forward re (point-at-eol) t) |