Jelajahi Sumber

babel: absolutely no babel related compiler warnings

  had to nest an argument in a trivial `or' to trick the compiler in
  the large ob-comint macro.
Eric Schulte 14 tahun lalu
induk
melakukan
baa6e1d3d7
5 mengubah file dengan 5 tambahan dan 3 penghapusan
  1. 1 0
      Makefile
  2. 1 1
      lisp/ob-R.el
  3. 1 1
      lisp/ob-comint.el
  4. 1 1
      lisp/ob-eval.el
  5. 1 0
      lisp/ob-octave.el

+ 1 - 0
Makefile

@@ -122,6 +122,7 @@ LISPF      = 	org.el			\
 		ob-exp.el		\
 		ob-tangle.el		\
 		ob-comint.el		\
+		ob-eval.el		\
 		ob-keys.el		\
 		ob-C.el			\
 		ob-ditaa.el		\

+ 1 - 1
lisp/ob-R.el

@@ -231,7 +231,7 @@ last statement in BODY, as elisp."
 				     "FALSE")))
 	   (org-babel-R-process-value-result
 	    (org-babel-import-elisp-from-file
-	     (org-babel-maybe-remote-file tmp-file))  column-names-p))))
+	     (org-babel-maybe-remote-file tmp-file)) column-names-p))))
     ;; comint session evaluation
     (case result-type
       (value

+ 1 - 1
lisp/ob-comint.el

@@ -107,7 +107,7 @@ or user `keyboard-quit' during execution of body."
 	 (if (and ,remove-echo ,full-body
 		  (string-match
 		   (replace-regexp-in-string
-		    "\n" "[\r\n]+" (regexp-quote ,full-body))
+		    "\n" "[\r\n]+" (regexp-quote (or ,full-body "")))
 		   string-buffer))
 	     (setq raw (substring string-buffer (match-end 0))))
 	 (split-string string-buffer comint-prompt-regexp)))))

+ 1 - 1
lisp/ob-eval.el

@@ -61,7 +61,7 @@ otherwise display STDERR with `org-babel-eval-error-notify'."
 (defun org-babel-eval-read-file (file)
   "Return the contents of FILE as a string."
   (with-temp-buffer (insert-file-contents
-		     (org-babel-maybe-remote-file tmp-file))
+		     (org-babel-maybe-remote-file file))
 		    (buffer-string)))
 
 (defun org-babel-shell-command-on-region (start end command

+ 1 - 0
lisp/ob-octave.el

@@ -33,6 +33,7 @@
 (require 'ob)
 (require 'ob-ref)
 (require 'ob-comint)
+(require 'ob-eval)
 (eval-when-compile (require 'cl))
 
 (declare-function matlab-shell "ext:matlab-mode")