Quellcode durchsuchen

ob: replace call to called-interactively-p with backwards-compatible interactive-p

* lisp/ob.el (org-babel-sha1-hash): Replace call to
  called-interactively-p with backwards-compatible interactive-p.
Eric Schulte vor 14 Jahren
Ursprung
Commit
3d60c1a1d8
1 geänderte Dateien mit 1 neuen und 1 gelöschten Zeilen
  1. 1 1
      lisp/ob.el

+ 1 - 1
lisp/ob.el

@@ -753,7 +753,7 @@ the current subtree."
     (setf (nth 2 info)
 	  (sort (copy-sequence (nth 2 info))
 		(lambda (a b) (string< (car a) (car b)))))
-    ((lambda (hash) (when (called-interactively-p 'interactive) (message hash)) hash)
+    ((lambda (hash) (when (interactive-p) (message hash)) hash)
      (sha1 (format "%s-%s"
 		   (mapconcat
 		    #'identity