mirrors
/
org-mode
mirror of https://git.savannah.gnu.org/git/emacs/org-mode.git
0
0
Fork 1
Code Releases Activity

Merge branch 'origin-maint'

This commit is contained in:
Eric Schulte 2012-01-23 11:07:36 -07:00
parent d3538624e7 978fd46069
commit a9510349ea
1 changed files with 5 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
lisp/ob.el
View File

@ -604,15 +604,17 @@ arguments and pop open the results in a preview buffer."
;; TODO: report malformed code block
;; TODO: report incompatible combinations of header arguments
;; TODO: report uninitialized variables
(let ((too-close 2)) ;; <- control closeness to report potential match
(let ((too-close 2) ;; <- control closeness to report potential match
(names (mapcar #'symbol-name org-babel-header-arg-names)))
(dolist (header (mapcar (lambda (arg) (substring (symbol-name (car arg)) 1))
(and (org-babel-where-is-src-block-head)
(org-babel-parse-header-arguments
(org-babel-clean-text-properties
(match-string 4))))))
(dolist (name (mapcar #'symbol-name org-babel-header-arg-names))
(dolist (name names)
(when (and (not (string= header name))
(<= (org-babel-edit-distance header name) too-close))
(<= (org-babel-edit-distance header name) too-close)
(not (member header names)))
(error "supplied header \"%S\" is suspiciously close to \"%S\""
header name))))
(message "No suspicious header arguments found.")))