mirrors/org-mode
0
0
Fork 1
mirror of https://git.savannah.gnu.org/git/emacs/org-mode.git synced 2024-07-16 06:46:26 +00:00
Code Releases Activity

Merge branch 'origin-maint'

Browse source
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 malformed code block
;; TODO: report incompatible combinations of header arguments ;; TODO: report incompatible combinations of header arguments
;; TODO: report uninitialized variables ;; 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)) (dolist (header (mapcar (lambda (arg) (substring (symbol-name (car arg)) 1))
(and (org-babel-where-is-src-block-head) (and (org-babel-where-is-src-block-head)
(org-babel-parse-header-arguments (org-babel-parse-header-arguments
(org-babel-clean-text-properties (org-babel-clean-text-properties
(match-string 4)))))) (match-string 4))))))
(dolist (name (mapcar #'symbol-name org-babel-header-arg-names)) (dolist (name names)
(when (and (not (string= header name)) (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\"" (error "supplied header \"%S\" is suspiciously close to \"%S\""
header name)))) header name))))
(message "No suspicious header arguments found."))) (message "No suspicious header arguments found.")))