ndwarshuis
/
org-mode
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

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.
This commit is contained in:
Eric Schulte 2011-06-24 19:48:10 -07:00
parent 00c62aa65f
commit 3d60c1a1d8
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
lisp/ob.el
View File

@ -753,7 +753,7 @@ the current subtree."
(setf (nth 2 info) (setf (nth 2 info)
(sort (copy-sequence (nth 2 info)) (sort (copy-sequence (nth 2 info))
(lambda (a b) (string< (car a) (car b))))) (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" (sha1 (format "%s-%s"
(mapconcat (mapconcat
#'identity #'identity