From mboxrd@z Thu Jan 1 00:00:00 1970 From: Fabrice Niessen Subject: Org-lint -- Lisp error: (wrong-type-argument arrayp nil) Date: Tue, 30 Jun 2015 10:15:00 +0200 Message-ID: Mime-Version: 1.0 Content-Type: text/plain Return-path: List-Id: "General discussions about Org-mode." List-Unsubscribe: , List-Archive: List-Post: List-Help: List-Subscribe: , Errors-To: emacs-orgmode-bounces+geo-emacs-orgmode=m.gmane.org-mXXj517/zsQ@public.gmane.org Sender: emacs-orgmode-bounces+geo-emacs-orgmode=m.gmane.org-mXXj517/zsQ@public.gmane.org To: emacs-orgmode-mXXj517/zsQ@public.gmane.org Hello Nicolas, When trying to lint my "Org mode refcard" [1], I get this error: --8<---------------cut here---------------start------------->8--- Debugger entered--Lisp error: (wrong-type-argument arrayp nil) replace-regexp-in-string("[ \n]+\\'" "" nil) (replace-regexp-in-string "\\`[ \n]+" "" (replace-regexp-in-string "[ \n]+\\'" "" s)) org-trim(nil) (org-babel-parse-header-arguments (org-trim (cond ((eq type (quote src-block)) (let nil (mapconcat (function identity) (cons (org-element-property :parameters datum) (org-element-property :header datum)) " "))) ... (list (org-babel-parse-header-arguments (org-trim (cond ((eq type (quote src-block)) (let nil (mapconcat (function identity) (cons ... ...) " "))) ((eq type (quote inline-src-block)) ... (append (list (and (memq type (quote (babel-call inline-babel-call))) org-babel-default-lob-header-args)) (progn (goto-char (org-element-property :begin datum)) (org-babel-params-from-properties language)) ... (apply (function org-babel-merge-params) org-babel-default-header-args (and language (let ((v (intern (concat "org-babel-default-header-args:" language)))) (and (boundp v) (symbol-value v)))) ... (org-babel-process-params (apply (function org-babel-merge-params) org-babel-default-header-args (and language (let ((v (intern (concat "org-babel-default-header-args:" language)))) ... (let* ((type (org-element-type datum)) (language (org-element-property :language datum)) (allowed-header-values (append (and language (let ((v ...)) (and (boundp v) (symbol-value v)))) org-babel-common-header-args-w-values)) ... (closure ((reports) (ast org-data nil (section (:begin 1 :end 972 :contents-begin 1 :contents-end 971 :post-blank 1 :post-affiliated 1 :parent (org-data nil #3 (headline (:raw-value "Summary" :begin 972 :end 2026 ... funcall((closure ((reports) (ast org-data nil (section (:begin 1 :end 972 :contents-begin 1 :contents-end 971 :post-blank 1 :post-affiliated 1 :parent (org-data nil #3 (headline (:raw-value "Summary" :begin 972 :end 2026 ... (let ((result (funcall fun --data))) (cond ((not result)) (first-match (throw (quote --map-first-match) result)) (t (setq --acc (cons result --acc))))) (progn (let ((result (funcall fun --data))) (cond ((not result)) (first-match (throw (quote --map-first-match) result)) (t (setq --acc (cons result --acc)))))) (if (memq --type types) (progn (let ((result (funcall fun --data))) (cond ((not result)) (first-match (throw (quote --map-first-match) result)) (t (setq --acc (cons result --acc))))))) ... org-lint-wrong-header-value((org-data nil (section (:begin 1 :end 972 :contents-begin 1 :contents-end 971 :post-blank 1 :post-affiliated 1 :parent #0) (keyword (:key "TITLE" :value "Org mode syntax quick reference card" ... funcall(org-lint-wrong-header-value (org-data nil (section (:begin 1 :end 972 :contents-begin 1 :contents-end 971 :post-blank 1 :post-affiliated 1 :parent #0) (keyword (:key "TITLE" :value "Org mode syntax quick reference card" ... (save-excursion (funcall (intern (format "org-lint-%s" (progn (or (and (vectorp c) (>= ... 5) (memq ... cl-struct-org-lint-checker-tags)) (error "%s accessing a non-%s" (quote org-lint-checker-name) (quote org-lint-checker))) ... (mapcar (function (lambda (report) (list (car report) trust (nth 1 report) c))) (save-excursion (funcall (intern (format "org-lint-%s" (progn (or (and ... ... ...) (error "%s accessing a non-%s" ... ...)) (aref c 1)))) ast))) (let ((trust (symbol-name (progn (or (and (vectorp c) (>= ... 5) (memq ... cl-struct-org-lint-checker-tags)) (error "%s accessing a non-%s" (quote org-lint-checker-trust) (quote org-lint-checker))) (aref c 4))))) ... (closure ((last-pos . 1) (last-line . 1) (id . 0) (ast org-data nil (section (:begin 1 :end 972 :contents-begin 1 :contents-end 971 :post-blank 1 :post-affiliated 1 :parent (org-data nil #3 (headline (:raw-value "Summary" :begin 972 :end 2026 ... ... org-lint(nil) --8<---------------cut here---------------end--------------->8--- (I suppressed a lot of the output as this is 8 MB big...) [1] https://github.com/fniessen/refcard-org-mode (WiP) Best regards, Fabrice -- Fabrice Niessen Leuven, Belgium http://www.pirilampo.org/