[O] [New exporter] Error: (wrong-type-argument stringp nil)

[Sebastien Vauban]

Hello,

Trying to convert some more files (to HTML) with the new exporter, I did a
test with the following one:

--8<---------------cut here---------------start------------->8---
#+TITLE:     ECM for HTML export error
#+LANGUAGE:  en_US

* Tasks

*** TODO Read article

- [[https://lists.gnu.org/archive/html/emacs-orgmode/2012-09/msg01099.html][new 
exporter: exporting subtree as beamer]]
--8<---------------cut here---------------end--------------->8---

When exporting it to HTML (`C-c C-e h o'), I get the following error:

--8<---------------cut here---------------start------------->8---
Debugger entered--Lisp error: (wrong-type-argument stringp nil)
  regexp-quote(nil)
  (string-match (regexp-quote (car att)) desc)
  (and desc (string-match (regexp-quote (car att)) desc))
  (if (and desc (string-match (regexp-quote (car att)) desc)) nil att)
  (let ((att (org-element-property :attr_html (org-export-get-parent-element 
link)))) (if (and desc (string-match (regexp-quote (car att)) desc)) nil att))
  (mapconcat (quote identity) (let ((att (org-element-property :attr_html 
(org-export-get-parent-element link)))) (if (and desc (string-match 
(regexp-quote (car att)) desc)) nil att)) " ")
  (setq attributes (mapconcat (quote identity) (let ((att (org-element-property 
:attr_html (org-export-get-parent-element link)))) (if (and desc (string-match 
(regexp-quote (car att)) desc)) nil att)) " "))
  (and (setq attributes (mapconcat (quote identity) (let ((att 
(org-element-property :attr_html (org-export-get-parent-element link)))) (if 
(and desc (string-match (regexp-quote ...) desc)) nil att)) " ")) (setq 
attributes (concat " " attributes)))
  (let* ((--link-org-files-as-html-maybe (function (lambda (raw-path info) 
"Treat links to `file.org' as links to `file.html', if needed.\n           See 
`org-e-html-link-org-files-as-html'." (cond ((and 
org-e-html-link-org-files-as-html ...) (concat ... "." ...)) (t raw-path))))) 
(type (org-element-property :type link)) (raw-path (org-element-property :path 
link)) (desc (and (not (string= desc "")) desc)) (path (cond ((member type 
(quote ("http" "https" "ftp" "mailto"))) (concat type ":" raw-path)) ((string= 
type "file") (setq raw-path (funcall --link-org-files-as-html-maybe raw-path 
info)) (if (not (file-name-absolute-p raw-path)) raw-path (concat "file://" 
(expand-file-name raw-path)))) (t raw-path))) attributes protocol) (and (setq 
attributes (mapconcat (quote identity) (let ((att (org-element-property 
:attr_html ...))) (if (and desc (string-match ... desc)) nil att)) " ")) (setq 
attributes (concat " " attributes))) (cond ((and (or (eq t 
org-e-html-inline-images) (and org-e-html-inline-images (not desc))) 
(org-export-inline-image-p link org-e-html-inline-image-rules)) 
(org-e-html-link--inline-image link desc info)) ((string= type "radio") (let 
((destination (org-export-resolve-radio-link link info))) (if destination 
(progn (format "<a href=\"#%s\"%s>%s</a>" (org-export-solidify-link-text path) 
attributes (org-export-data ... info)))))) ((member type (quote ("custom-id" 
"fuzzy" "id"))) (let ((destination (if (string= type "fuzzy") 
(org-export-resolve-fuzzy-link link info) (org-export-resolve-id-link link 
info)))) (let ((--cl-var-- (org-element-type destination))) (cond ((eql 
--cl-var-- ...) (progn ... nil) (let ... ...)) ((memql --cl-var-- ...) (format 
"<i>%s</i>" ...)) ((eql --cl-var-- ...) nil) ((eql --cl-var-- ...) (let ... 
...)) (t (let ... ... ...)))))) ((string= type "coderef") (let ((fragment 
(concat "coderef-" path))) (format "<a href=\"#%s\" %s%s>%s</a>" fragment 
(format (concat "class=\"coderef\"" " onmouseover=\"CodeHighlightOn(this, 
'%s');\"" " onmouseout=\"CodeHighlightOff(this, '%s');\"") fragment fragment) 
attributes (format (org-export-get-coderef-format path desc) 
(org-export-resolve-coderef path info))))) ((functionp (setq protocol (nth 2 
(assoc type org-link-protocols)))) (funcall protocol (org-link-unescape path) 
desc (quote html))) ((and path desc) (format "<a href=\"%s\"%s>%s</a>" path 
attributes desc)) (path (format "<a href=\"%s\"%s>%s</a>" path attributes 
path)) (t (format "<i>%s</i>" desc))))
  org-e-html-link((link (:type "https" :path 
"//lists.gnu.org/archive/html/emacs-orgmode/2012-09/msg01099.html" :raw-link 
"https://lists.gnu.org/archive/html/emacs-orgmode/2012-09/msg01099.html"; 
:application nil :search-option nil :begin 118 :end 235 :contents-begin 192 
:contents-end 233 :post-blank 0 :parent (paragraph (:begin 118 :end 236 
:contents-begin 118 :contents-end 236 :post-blank 0 :post-affiliated 118 
:parent (item (:bullet "- " :begin 116 :end 236 :contents-begin 118 
:contents-end 236 :checkbox nil :counter nil :hiddenp nil :structure ((116 0 "- 
" nil nil nil 236)) :post-blank 0 :tag nil :parent (plain-list (:type unordered 
:begin 116 :end 236 :contents-begin 116 :contents-end 236 :structure ... 
:post-blank 0 :post-affiliated 116 :parent ...) #4)) #2)) #0 #("\n" 0 1 
(:parent #2)))) #("new exporter: exporting subtree as beamer" 0 41 (:parent 
#0))) #("new exporter: exporting subtree as beamer" 0 41 (:parent (link (:type 
"https" :path 
"//lists.gnu.org/archive/html/emacs-orgmode/2012-09/msg01099.html" :raw-link 
"https://lists.gnu.org/archive/html/emacs-orgmode/2012-09/msg01099.html"; 
:application nil :search-option nil :begin 118 :end 235 :contents-begin 192 
:contents-end 233 :post-blank 0 :parent (paragraph (:begin 118 :end 236 
:contents-begin 118 :contents-end 236 :post-blank 0 :post-affiliated 118 
:parent (item (:bullet "- " :begin 116 :end 236 :contents-begin 118 
:contents-end 236 :checkbox nil :counter nil :hiddenp nil :structure ... 
:post-blank 0 :tag nil :parent ...) #4)) #2 #("\n" 0 1 (:parent #4)))) #("new 
exporter: exporting subtree as beamer" 0 41 (:parent #2))))) (:input-file 
"d:/Users/fni/src/ecm-html.txt" :title ("ECM for HTML export error") :author 
("Seb Vauban") :creator "Generated by <a href=\"http://orgmode.org\";>Org</a> 
mode 7.9.3e in <a href=\"http://www.gnu.org/software/emacs/\";>Emacs</a> 
24.2.91.1." :date nil :description nil :email "address@hidden" :exclude-tags 
("noexport") :headline-levels 3 :keywords nil :language "en_US" 
:preserve-breaks nil :section-numbers t :select-tags ("export") 
:time-stamp-file t :with-archived-trees headline :with-author t :with-clocks 
nil :with-creator nil :with-date t :with-drawers nil :with-email nil 
:with-emphasize t :with-entities t :with-fixed-width t ...))
  funcall(org-e-html-link (link (:type "https" :path 
"//lists.gnu.org/archive/html/emacs-orgmode/2012-09/msg01099.html" :raw-link 
"https://lists.gnu.org/archive/html/emacs-orgmode/2012-09/msg01099.html"; 
:application nil :search-option nil :begin 118 :end 235 :contents-begin 192 
:contents-end 233 :post-blank 0 :parent (paragraph (:begin 118 :end 236 
:contents-begin 118 :contents-end 236 :post-blank 0 :post-affiliated 118 
:parent (item (:bullet "- " :begin 116 :end 236 :contents-begin 118 
:contents-end 236 :checkbox nil :counter nil :hiddenp nil :structure ((116 0 "- 
" nil nil nil 236)) :post-blank 0 :tag nil :parent (plain-list (:type unordered 
:begin 116 :end 236 :contents-begin 116 :contents-end 236 :structure ... 
:post-blank 0 :post-affiliated 116 :parent ...) #4)) #2)) #0 #("\n" 0 1 
(:parent #2)))) #("new exporter: exporting subtree as beamer" 0 41 (:parent 
#0))) #("new exporter: exporting subtree as beamer" 0 41 (:parent (link (:type 
"https" :path 
"//lists.gnu.org/archive/html/emacs-orgmode/2012-09/msg01099.html" :raw-link 
"https://lists.gnu.org/archive/html/emacs-orgmode/2012-09/msg01099.html"; 
:application nil :search-option nil :begin 118 :end 235 :contents-begin 192 
:contents-end 233 :post-blank 0 :parent (paragraph (:begin 118 :end 236 
:contents-begin 118 :contents-end 236 :post-blank 0 :post-affiliated 118 
:parent (item (:bullet "- " :begin 116 :end 236 :contents-begin 118 
:contents-end 236 :checkbox nil :counter nil :hiddenp nil :structure ... 
:post-blank 0 :tag nil :parent ...) #4)) #2 #("\n" 0 1 (:parent #4)))) #("new 
exporter: exporting subtree as beamer" 0 41 (:parent #2))))) (:input-file 
"d:/Users/fni/src/ecm-html.txt" :title ("ECM for HTML export error") :author 
("Seb Vauban") :creator "Generated by <a href=\"http://orgmode.org\";>Org</a> 
mode 7.9.3e in <a href=\"http://www.gnu.org/software/emacs/\";>Emacs</a> 
24.2.91.1." :date nil :description nil :email "address@hidden" :exclude-tags 
("noexport") :headline-levels 3 :keywords nil :language "en_US" 
:preserve-breaks nil :section-numbers t :select-tags ("export") 
:time-stamp-file t :with-archived-trees headline :with-author t :with-clocks 
nil :with-creator nil :with-date t :with-drawers nil :with-email nil 
:with-emphasize t :with-entities t :with-fixed-width t ...))
  [...]
  org-export-dispatch(nil)
  call-interactively(org-export-dispatch nil nil)
--8<---------------cut here---------------end--------------->8---

Best regards,
  Seb

--
Sebastien Vauban