瀏覽代碼

contrib/babel/langs/ob-mathomatic.el: Delete whitespaces

Bastien Guerry 12 年之前
父節點
當前提交
751db690a0
共有 1 個文件被更改,包括 10 次插入14 次删除
  1. 10 14
      contrib/babel/langs/ob-mathomatic.el

+ 10 - 14
contrib/babel/langs/ob-mathomatic.el

@@ -55,23 +55,23 @@
 		 ;; graphic output
 		 (let ((graphic-file (org-babel-mathomatic-graphical-output-file params)))
 		   (if graphic-file
-		       (cond 
+		       (cond
 			((string-match ".\.eps$" graphic-file)
-			 (format ;; Need to add command to send to file. 
+			 (format ;; Need to add command to send to file.
 			  "set plot set terminal postscript eps\\;set output %S "
 			  graphic-file))
 			((string-match ".\.ps$" graphic-file)
-			 (format ;; Need to add command to send to file. 
-			  "set plot set terminal postscript\\;set output %S " 
+			 (format ;; Need to add command to send to file.
+			  "set plot set terminal postscript\\;set output %S "
 			  graphic-file))
 
 			((string-match ".\.pic$" graphic-file)
-			 (format ;; Need to add command to send to file. 
-			  "set plot set terminal gpic\\;set output %S " 
+			 (format ;; Need to add command to send to file.
+			  "set plot set terminal gpic\\;set output %S "
 			  graphic-file))
-			(t 
-			 (format ;; Need to add command to send to file. 
-			  "set plot set terminal png\\;set output %S " 
+			(t
+			 (format ;; Need to add command to send to file.
+			  "set plot set terminal png\\;set output %S "
 			  graphic-file)))
 		     ""))
 		 ;; variables
@@ -114,7 +114,6 @@ called by `org-babel-execute-src-block'."
 	  (with-temp-file tmp-file (insert result))
 	  (org-babel-import-elisp-from-file tmp-file))))))
 
-
 (defun org-babel-prep-session:mathomatic (session params)
   (error "Mathomatic does not support sessions"))
 
@@ -138,12 +137,9 @@ of the same value."
 (defun org-babel-mathomatic-elisp-to-mathomatic (val)
   "Return a string of mathomatic code which evaluates to VAL."
   (if (listp val)
-      (mapconcat #'org-babel-mathomatic-elisp-to-mathomatic val " ") 
+      (mapconcat #'org-babel-mathomatic-elisp-to-mathomatic val " ")
     (format "%s" val)))
 
-
 (provide 'ob-mathomatic)
 
-
-
 ;;; ob-mathomatic.el ends here