Merge branch 'master' into next

lisp/ob-core.el

@@ -3135,10 +3135,6 @@ Callers of this function will probably want to add an entry to
       (when (and sym (boundp sym))
 	(defvaralias (intern (concat "org-babel-" var ":" new)) sym)))))
 
-(defun org-babel-strip-quotes (string)
-  "Strip \\\"s from around a string, if applicable."
-  (org-unbracket-string "\"" "\"" string))
-
 (provide 'ob-core)
 
 ;; Local variables:

lisp/ob-haskell.el

@@ -81,8 +81,7 @@
                 (comint-send-input nil t)
                 (insert org-babel-haskell-eoe)
                 (comint-send-input nil t)))
-         (results (mapcar
-                   #'org-babel-strip-quotes
+         (results (mapcar #'org-strip-quotes
 			  (cdr (member org-babel-haskell-eoe
                                        (reverse (mapcar #'org-trim raw)))))))
     (org-babel-reassemble-table

lisp/ob-octave.el

@@ -237,12 +237,10 @@ value of the last statement in BODY, as elisp."
       (`output
        (setq results
 	     (if matlabp
-		 (cdr (reverse (delq "" (mapcar
-					 #'org-babel-strip-quotes
+		 (cdr (reverse (delq "" (mapcar #'org-strip-quotes
 						(mapcar #'org-trim raw)))))
 	       (cdr (member org-babel-octave-eoe-output
-			    (reverse (mapcar
-				      #'org-babel-strip-quotes
+			    (reverse (mapcar #'org-strip-quotes
 					     (mapcar #'org-trim raw)))))))
        (mapconcat #'identity (reverse results) "\n")))))
 

lisp/org-compat.el

@@ -464,6 +464,9 @@ use of this function is for the stuck project list."
 	   (debug (body)))
   `(with-silent-modifications ,@body))
 
+(define-obsolete-function-alias 'org-babel-strip-quotes
+  'org-strip-quotes "Org 9.2")
+
 ;;;; Obsolete link types
 
 (eval-after-load 'org

lisp/org-macs.el

@@ -882,6 +882,10 @@ removed."
       (substring string (length pre) (- (length post)))
     string))
 
+(defun org-strip-quotes (string)
+  "Strip double quotes from around a string, if applicable."
+  (org-unbracket-string "\"" "\"" string))
+
 (defsubst org-current-line-string (&optional to-here)
   (buffer-substring (point-at-bol) (if to-here (point) (point-at-eol))))