diff --git a/contrib/lisp/ob-eukleides.el b/contrib/lisp/ob-eukleides.el index c8ce8810e..cb5bb8400 100644 --- a/contrib/lisp/ob-eukleides.el +++ b/contrib/lisp/ob-eukleides.el @@ -81,7 +81,7 @@ This function is called by `org-babel-execute-src-block'." (shell-command (format org-eukleides-eps-to-raster (concat (file-name-sans-extension out-file) ".eps") (concat (file-name-sans-extension out-file) ".png"))) - (error "Conversion to PNG not supported. use a file with an EPS name"))) + (error "Conversion to PNG not supported. Use a file with an EPS name"))) (with-temp-file in-file (insert body)) (message "%s" cmd) (org-babel-eval cmd "") diff --git a/contrib/lisp/ob-oz.el b/contrib/lisp/ob-oz.el index 3531d957a..fc778f5cf 100644 --- a/contrib/lisp/ob-oz.el +++ b/contrib/lisp/ob-oz.el @@ -226,7 +226,7 @@ called by `org-babel-execute-src-block' via multiple-value-bind." ((member "value" result-params) (message "Org-babel: executing Oz expression") (oz-send-string-expression full-body (or wait-time 1))) - (t (error "either 'output' or 'results' must be members of :results."))) + (t (error "either 'output' or 'results' must be members of :results"))) (org-babel-pick-name (cdr (assoc :colname-names params)) (cdr (assoc :colnames params))) (org-babel-pick-name (cdr (assoc :roname-names params)) diff --git a/contrib/lisp/ob-tcl.el b/contrib/lisp/ob-tcl.el index 50afe5ae3..d66357de4 100644 --- a/contrib/lisp/ob-tcl.el +++ b/contrib/lisp/ob-tcl.el @@ -62,7 +62,7 @@ This function is called by `org-babel-execute-src-block'." (defun org-babel-prep-session:tcl (session params) "Prepare SESSION according to the header arguments in PARAMS." - (error "Sessions are not supported for Tcl.")) + (error "Sessions are not supported for Tcl")) (defun org-babel-variable-assignments:tcl (params) "Return list of tcl statements assigning the block's variables." @@ -111,7 +111,7 @@ close $o 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 Tcl.")) + (when session (error "Sessions are not supported for Tcl")) (case result-type (output (org-babel-eval org-babel-tcl-command body)) (value (let ((tmp-file (org-babel-temp-file "tcl-"))) diff --git a/contrib/lisp/org-contacts.el b/contrib/lisp/org-contacts.el index 88aef9d20..bc07fc1dd 100644 --- a/contrib/lisp/org-contacts.el +++ b/contrib/lisp/org-contacts.el @@ -882,7 +882,7 @@ address." (setq email (org-contacts-strip-link email)) (org-contacts-check-mail-address email) (compose-mail (org-contacts-format-email (org-get-heading t) email))))) - (error (format "This contact has no mail address set (no %s property)." + (error (format "This contact has no mail address set (no %s property)" org-contacts-email-property))))))) (defun org-contacts-get-icon (&optional pom) diff --git a/contrib/lisp/org-drill.el b/contrib/lisp/org-drill.el index 93c37e3c9..a1422ebe9 100644 --- a/contrib/lisp/org-drill.el +++ b/contrib/lisp/org-drill.el @@ -1525,7 +1525,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-mew.el b/contrib/lisp/org-mew.el index 448237500..eb0afc06e 100644 --- a/contrib/lisp/org-mew.el +++ b/contrib/lisp/org-mew.el @@ -308,7 +308,7 @@ the subject and the group number to extract. You can get rid of org-mew-subject-alist)) (setq id-list (cons subject id-list))) (cond ((null id-list) - (error "No message ID to search.")) + (error "No message ID to search")) ((equal (length id-list) 1) (org-search-view nil (car id-list))) (t @@ -342,7 +342,7 @@ asks you to select the capture template." (mew-message-goto-summary)) (let ((mew-mark-afterstep-spec '((?o 0 0 0 0 0 0 0)))) (mew-summary-refile))) - (error "No refile folder selected.")) + (error "No refile folder selected")) (let* ((org-mew-link-to-refile-destination t) (folder-name (org-mew-folder-name)) (keys (if arg diff --git a/contrib/lisp/org-toc.el b/contrib/lisp/org-toc.el index 255b79e12..622cc028d 100644 --- a/contrib/lisp/org-toc.el +++ b/contrib/lisp/org-toc.el @@ -338,7 +338,7 @@ If DELETE is non-nil, delete other windows when in the Org buffer." (interactive) (condition-case nil (outline-forward-same-level 1) - (error (message "No next headline at this level."))) + (error (message "No next headline at this level"))) (if org-toc-info-mode (org-toc-info)) (if org-toc-follow-mode (org-toc-goto))) @@ -347,7 +347,7 @@ If DELETE is non-nil, delete other windows when in the Org buffer." (interactive) (condition-case nil (outline-backward-same-level 1) - (error (message "No previous headline at this level."))) + (error (message "No previous headline at this level"))) (if org-toc-info-mode (org-toc-info)) (if org-toc-follow-mode (org-toc-goto))) diff --git a/contrib/lisp/ox-freemind.el b/contrib/lisp/ox-freemind.el index 39fb1cc2c..3287d5d2b 100644 --- a/contrib/lisp/ox-freemind.el +++ b/contrib/lisp/ox-freemind.el @@ -312,7 +312,7 @@ will result in following node: (org-element-property :title element)) (org-data (plist-get info :title)) - (t (error "Shouldn't come here.")))) + (t (error "Shouldn't come here")))) (element-contents (org-element-contents element)) (section (assq 'section element-contents)) (section-contents