Mercurial > emacs

changeset 87137:1d87492bc6e0

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Resolve cvs commit conflict. (Fix buggy calls to error.)
author Deepak Goel <deego@gnufans.org>
date Thu, 06 Dec 2007 17:24:35 +0000
parents 00b588069d34
children b63e2a5b45dd
files lisp/textmodes/org-publish.el lisp/textmodes/reftex-parse.el lisp/textmodes/texinfmt.el
diffstat 3 files changed, 5 insertions(+), 6 deletions(-) [+]
line wrap: on
line diff
--- a/lisp/textmodes/org-publish.el	Thu Dec 06 17:19:22 2007 +0000
+++ b/lisp/textmodes/org-publish.el	Thu Dec 06 17:24:35 2007 +0000
@@ -481,7 +481,7 @@
 	 (plist (org-publish-get-plist-from-filename filename))
 	 (publishing-function (or (plist-get plist :publishing-function) 'org-publish-org-to-html)))
     (if (not project-name)
-	(error (format "File %s is not part of any known project." filename)))
+	(error "File %s is not part of any known project." filename))
     (when (org-publish-needed-p filename)
       (if (listp publishing-function)
 	  ;; allow chain of publishing functions
@@ -575,7 +575,7 @@
     (let* ((project-name (org-publish-get-project-from-filename (buffer-file-name)))
 	   (org-publish-use-timestamps-flag (if force nil t)))
       (if (not project-name)
-	  (error (format "File %s is not part of any known project." (buffer-file-name))))
+	  (error "File %s is not part of any known project." (buffer-file-name)))
       (org-publish project-name))))
 
 
--- a/lisp/textmodes/reftex-parse.el	Thu Dec 06 17:19:22 2007 +0000
+++ b/lisp/textmodes/reftex-parse.el	Thu Dec 06 17:24:35 2007 +0000
@@ -544,7 +544,7 @@
      (save-excursion
        (condition-case error-var
            (funcall parse env)
-         (error (format "HOOK ERROR: %s" (cdr error-var))))))
+         (error "HOOK ERROR: %s" (cdr error-var)))))
     (t
      "INVALID VALUE OF PARSE"))))
 
--- a/lisp/textmodes/texinfmt.el	Thu Dec 06 17:19:22 2007 +0000
+++ b/lisp/textmodes/texinfmt.el	Thu Dec 06 17:24:35 2007 +0000
@@ -2061,9 +2061,8 @@
             (apply '+ texinfo-multitable-width-list))))
       (if (> desired-columns fill-column)
           (error
-           (format
-            "Multi-column table width, %d chars, is greater than page width, %d chars."
-            desired-columns fill-column))))
+           "Multi-column table width, %d chars, is greater than page width, %d chars."
+            desired-columns fill-column)))
     texinfo-multitable-width-list))
 
 ;; @item  A1  @tab  A2  @tab  A3