[BUG] Can't export bold html correctly after change org-emphasis-regexp-components [9.6.6 (release_9.6.6 @ /Applications/Emacs.app/Contents/Resources/lisp/org/)]

[Haojun Bao]

Remember to cover the basics, that is, what you expected to happen and
what in fact did happen.  You don't know how to make a good report?  See

     https://orgmode.org/manual/Feedback.html#Feedback

Your bug report will be posted to the Org mailing list.
------------------------------------------------------------------------
Steps to reproduce:

1. update org-emphasis-regexp-components, as I'm a Chinese, I added
some of the chinese Punctuation Marks, like the following:

    (setq org-emphasis-regexp-components
        '(
          " ！？；：，。、 \t('\"{（“「『"               ; pre
          "-  —；：，。、 \t.!,:!?？;！'\")}（）\\”」』"  ; post, "-" must be the first!
          " \t\r\n"                                      ; border *forbidden*
          "."                                            ; body-regexp
          1                                              ; newline
          ))

2. do M-x org-reload
3. Write a file with the following content, note that both hello is
displayed as bold:

    *hello*：world

    *hello* world

4. C-c C-e to export it as html, only the second hello is in bold, the
first hello is surrounded by the org bold marker '*'.

    <div id="content" class="content">
    <p>
    *hello*：world
    </p>

    <p>
    <b>hello</b> world
    </p>
    </div>

5. This works fine on Emacs 28.2

Emacs  : GNU Emacs 29.1 (build 1, aarch64-apple-darwin21.6.0, NS
appkit-2113.60 Version 12.6.6 (Build 21G646))
 of 2023-08-17
Package: Org mode version 9.6.6 (release_9.6.6 @
/Applications/Emacs.app/Contents/Resources/lisp/org/)

current state:
==============
(setq
 org-archive-location "%s_archive::* Archive"
 org-link-elisp-confirm-function 'yes-or-no-p
 org-directory "~/system-config/doc/projects"
 org-crypt-key nil
 org-hide-emphasis-markers t
 org-export-with-sub-superscripts '{}
 org-log-done 'time
 org-agenda-custom-commands '(("d" "Daily agenda and all TODOs"
                               ((tags-todo "PRIORITY=\"A\""
((org-agenda-overriding-header "High-priority unfinished tasks:")))
                                (agenda "" ((org-agenda-skip-function
'(or (org-agenda-skip-entry-if 'todo 'done) (my-skip-entry?)))
(org-agenda-ndays 1)))
                                (alltodo ""
                                 ((org-agenda-skip-function
                                   '(or
(air-org-skip-subtree-if-habit) (air-org-skip-subtree-if-priority 65)
(my-skip-entry?)
                                     (org-agenda-skip-if nil
'(scheduled deadline)))
                                   )
                                  (org-agenda-overriding-header "ALL
normal priority tasks:"))
                                 )
                                )
                               ((org-agenda-compact-blocks t)))
                              ("N" "Notes" tags "NOTE"
((org-agenda-overriding-header "Notes") (org-tags-match-list-sublevels
t))) ("R" . "Review")
                              ("Rw" "Week in review" agenda ""
                               ((org-agenda-files
'("~/src/github/projects/weekly.org")) (org-agenda-show-all-dates t)
(org-agenda-start-with-log-mode t)

(org-agenda-start-with-clockreport-mode t) (org-agenda-archives-mode
t)
                                (org-agenda-hide-tags-regexp (concat
org-agenda-hide-tags-regexp "\\|ARCHIVE")) (org-agenda-span 'week)
                                (org-agenda-start-on-weekday nil)
(org-agenda-overriding-header "Week in Review"))
                               ("~/org/review/week.html"))
                              ("Rd" "Day in review" agenda ""
                               ((org-agenda-files
'("~/src/github/projects/weekly.org")) (org-agenda-show-all-dates t)
(org-agenda-start-with-log-mode t)

(org-agenda-start-with-clockreport-mode t) (org-agenda-archives-mode
t)
                                (org-agenda-hide-tags-regexp (concat
org-agenda-hide-tags-regexp "\\|ARCHIVE")) (org-agenda-span 'day)
                                (org-agenda-overriding-header "Day in Review"))
                               ("~/org/review/day.html"))
                              ("Rm" "Month in review" agenda ""
                               ((org-agenda-files
'("~/src/github/projects/weekly.org")) (org-agenda-show-all-dates t)
(org-agenda-start-with-log-mode t)

(org-agenda-start-with-clockreport-mode t) (org-agenda-archives-mode
t)
                                (org-agenda-hide-tags-regexp (concat
org-agenda-hide-tags-regexp "\\|ARCHIVE")) (org-agenda-span 'month)
                                (org-agenda-start-day "01")
(org-read-date-prefer-future nil) (org-agenda-overriding-header "Month
in Review"))
                               ("~/org/review/month.html"))
                              ("g" "GTD"
                               ((agenda "" nil) (tags "INBOX"
((org-agenda-overriding-header "Inbox") (org-tags-match-list-sublevels
nil)))
                                (stuck ""
                                 ((org-agenda-overriding-header "Stuck
Projects") (org-agenda-tags-todo-honor-ignore-options t)
                                  (org-tags-match-list-sublevels t)
(org-agenda-todo-ignore-scheduled 'future))
                                 )
                                (tags-todo "-INBOX"
                                 ((org-agenda-overriding-header "Next
Actions") (org-agenda-tags-todo-honor-ignore-options t)
                                  (org-agenda-todo-ignore-scheduled 'future)
                                  (org-agenda-skip-function
                                   '(lambda nil (or
(org-agenda-skip-subtree-if 'todo '("HOLD" "WAITING"))
(org-agenda-skip-entry-if 'nottodo '("NEXT")))))
                                  (org-tags-match-list-sublevels t)
(org-agenda-sorting-strategy '(todo-state-down effort-up
category-keep)))
                                 )
                                (tags-todo "-INBOX/PROJECT"
                                 ((org-agenda-overriding-header
"Projects") (org-tags-match-list-sublevels t)
(org-agenda-sorting-strategy '(category-keep)))
                                 )
                                (tags-todo "-INBOX/-NEXT"
                                 ((org-agenda-overriding-header
"Orphaned Tasks") (org-agenda-tags-todo-honor-ignore-options t)
                                  (org-agenda-todo-ignore-scheduled 'future)
                                  (org-agenda-skip-function
                                   '(lambda nil
                                     (or (org-agenda-skip-subtree-if
'todo '("PROJECT" "HOLD" "WAITING" "DELEGATED"))
                                      (org-agenda-skip-subtree-if
'nottododo '("TODO")))
                                     )
                                   )
                                  (org-tags-match-list-sublevels t)
(org-agenda-sorting-strategy '(category-keep)))
                                 )
                                (tags-todo "/WAITING"
                                 ((org-agenda-overriding-header
"Waiting") (org-agenda-tags-todo-honor-ignore-options t)
                                  (org-agenda-todo-ignore-scheduled
'future) (org-agenda-sorting-strategy '(category-keep)))
                                 )
                                (tags-todo "/DELEGATED"
                                 ((org-agenda-overriding-header
"Delegated") (org-agenda-tags-todo-honor-ignore-options t)
                                  (org-agenda-todo-ignore-scheduled
'future) (org-agenda-sorting-strategy '(category-keep)))
                                 )
                                (tags-todo "-INBOX"
                                 ((org-agenda-overriding-header "On Hold")
                                  (org-agenda-skip-function
                                   '(lambda nil (or
(org-agenda-skip-subtree-if 'todo '("WAITING"))
(org-agenda-skip-entry-if 'nottodo '("HOLD")))))
                                  (org-tags-match-list-sublevels nil)
(org-agenda-sorting-strategy '(category-keep)))
                                 )
                                )
                               )
                              )
 org-log-into-drawer t
 org-babel-after-execute-hook '(bh/display-inline-images)
 org-agenda-files '("~/system-config/doc/projects")
 org-publish-project-alist '(("notes" :base-directory "~/notes/"
:publishing-directory "~/notes_html" :section-numbers t
:table-of-contents t :style
                              "<link rel=\"stylesheet\"\n
       href=\"../other/mystyle.css\"\n
type=\"text/css\"/>")
                             ("org" :base-directory
"~/system-config/doc/projects" :publishing-directory "~/public_html"
:section-numbers nil
                              :table-of-contents nil)
                             )
 org-persist-after-read-hook '(org-element--cache-persist-after-read)
 org-refile-targets '((nil :maxlevel . 5) (org-agenda-files :maxlevel . 5))
 org-export-before-parsing-hook '(org-attach-expand-links)
 org-clock-cancel-hook '(sanityinc/hide-org-clock-from-header-line)
 org-cycle-tab-first-hook '(org-babel-hide-result-toggle-maybe
org-babel-header-arg-expand)
 org-default-notes-file "~/src/github/projects/notes.org"
 org-refile-use-outline-path t
 org-archive-hook '(org-attach-archive-delete-maybe)
 org-clock-in-hook '(sanityinc/show-org-clock-in-header-line)
 org-file-apps '((auto-mode . emacs) ("\\.mm\\'" . default)
("\\.x?html?\\'" . default) ("\\(\\.pdf\\|\\.ps\\)\\'" . "of %s"))
 org-odt-format-inlinetask-function 'org-odt-format-inlinetask-default-function
 org-ascii-format-drawer-function #[771 " \207" [] 4 "\n\n(fn NAME
CONTENTS WIDTH)"]
 org-cycle-hook '(org-cycle-hide-archived-subtrees
org-cycle-show-empty-lines
org-cycle-optimize-window-after-visibility-change
                  org-cycle-display-inline-images)
 org-latex-minted-langs '((emacs-lisp "common-lisp") (cc "c++") (cperl
"perl") (shell-script "bash") (caml "ocaml") (waw "text"))
 org-export-with-broken-links t
 org-persist-before-read-hook '(org-element--cache-persist-before-read)
 org-agenda-sticky t
 org-modules '(org-bbdb org-bibtex org-docview org-gnus org-habit
org-info org-irc org-mhe org-rmail org-w3m ol-info ol-man)
 org-link-from-user-regexp "\\<baohaojun@gmail\\.com\\>\\|\\<Bao Haojun\\>"
 org-export-coding-system 'utf-8
 org-mode-hook '((closure (t) nil (if (and
(lsp-bridge--not-mind-wave-chat-buffer)
(lsp-bridge--not-acm-doc-markdown-buffer)) (progn (lsp-bridge-mode
1))))
                 (closure (t) nil (org-add-link-type "wiki"
#'org-wiki--open-page #'org-wiki--org-link)
                  (org-add-link-type "wiki-asset-sys"
#'org-wiki--protocol-open-assets-with-sys #'org-wiki--asset-link))
                 (lambda nil (visual-line-mode 1) (setq
imenu-create-index-function #'ajoke--create-index-function)
                  (define-key org-mode-map [(control c) (v)]
'bhj-todo-from-mail-view-mail)
                  (define-key org-mode-map [(control c) (c) (c)]
'bhj-todo-copy-id)
                  (define-key org-mode-map [(control c) (s)] #'(lambda
nil (interactive) (shell-command-to-string "ask-to-sync-org >/dev/null
2>&1&")))
                  (define-key org-mode-map [(control c) (meta j) (d)]
'bhj-jwords-done)
                  (define-key org-mode-map [(control c) (meta j) (D)]
'bhj-jwords-undone)
                  (define-key org-mode-map [(control c) (meta j) (s)]
'bhj-jwords-someday) (org-jira-mode t))
                 #[0 "\300\301\302\303\304$\207" [add-hook
before-save-hook org-encrypt-entries nil t] 5]
                 #[0 "\301\211 \207" [imenu-create-index-function
org-imenu-get-tree] 2] org-clock-load
                 #[0 "\300\301\302\303\304$\207" [add-hook
change-major-mode-hook org-fold-show-all append local] 5]
                 #[0 "\300\301\302\303\304$\207" [add-hook
change-major-mode-hook org-babel-show-result-all append local] 5]
org-babel-result-hide-spec
                 org-babel-hide-all-hashes (closure (t) nil (setq
imenu-create-index-function 'ajoke--create-index-function)))
 org-babel-load-languages '((R . t) (ditaa . t) (dot . t) (emacs-lisp
. t) (gnuplot . t) (haskell) (latex . t) (ocaml) (octave . t) (perl .
t)
                            (plantuml . t) (python . t) (ruby . t)
(screen) (shell . t) (sql . t) (sqlite . t))
 org-clock-x11idle-program-name "xprintidle"
 org-agenda-span 'day
 org-latex-format-drawer-function #[514 "\207" [] 3 "\n\n(fn _ CONTENTS)"]
 org-jira-done-states '("Closed" "Resolved" "Done" "完成")
 org-agenda-clockreport-parameter-plist '(:link t :maxlevel 3)
 org-latex-format-headline-function 'org-latex-format-headline-default-function
 org-confirm-shell-link-function 'yes-or-no-p
 org-reveal-start-hook '(org-decrypt-entry)
 org-agenda-compact-blocks t
 org-html-format-drawer-function #[514 "\207" [] 3 "\n\n(fn NAME CONTENTS)"]
 outline-isearch-open-invisible-function 'outline-isearch-open-invisible
 org-use-sub-superscripts '{}
 org-agenda-sorting-strategy '((agenda habit-down time-up
user-defined-up effort-up category-keep) (todo category-up effort-up)
(tags category-up effort-up)
                               (search category-up))
 org-stuck-projects '("-INBOX/PROJECT" ("NEXT"))
 org-after-todo-statistics-hook '(org-summary-todo)
 org-html-validation-link nil
 org-fold-catch-invisible-edits 'show
 org-latex-classes '(("beamer"
"\\documentclass[presentation]{beamer}\n\\usepackage{bxdpx-beamer}"
("\\section{%s}" . "\\section*{%s}")
                      ("\\subsection{%s}" . "\\subsection*{%s}")
("\\subsubsection{%s}" . "\\subsubsection*{%s}"))
                     ("中文文章"

"\\documentclass[11pt,dvipdfmx,CJKbookmarks]{article}\n\\usepackage{CJKutf8}\n\\usepackage{atbegshi}\n\\AtBeginShipoutFirst{\\special{pdf:tounicode
UTF8-UTF16}} % for UTF-8\n [DEFAULT-PACKAGES]\n [PACKAGES]\n [EXTRA]"
                      ("\\section{%s}" . "\\section*{%s}")
("\\subsection{%s}" . "\\subsection*{%s}") ("\\subsubsection{%s}" .
"\\subsubsection*{%s}")
                      ("\\paragraph{%s}" . "\\paragraph*{%s}")
("\\subparagraph{%s}" . "\\subparagraph*{%s}"))
                     ("cn_article"

"\\documentclass[11pt,dvipdfmx,CJKbookmarks]{article}\n\\usepackage{CJKutf8}\n\\usepackage{atbegshi}\n\\AtBeginShipoutFirst{\\special{pdf:tounicode
UTF8-UTF16}} % for UTF-8\n [DEFAULT-PACKAGES]\n [PACKAGES]\n [EXTRA]"
                      ("\\section{%s}" . "\\section*{%s}")
("\\subsection{%s}" . "\\subsection*{%s}") ("\\subsubsection{%s}" .
"\\subsubsection*{%s}")
                      ("\\paragraph{%s}" . "\\paragraph*{%s}")
("\\subparagraph{%s}" . "\\subparagraph*{%s}"))
                     ("中文演示"

"\\documentclass[presentation,dvipdfmx,CJKbookmarks]{beamer}\n\\usepackage{bxdpx-beamer}\n\\usepackage{CJKutf8}\n\\usepackage{atbegshi}\n\\AtBeginShipoutFirst{\\special{pdf:tounicode
UTF8-UTF16}} % for UTF-8\n [DEFAULT-PACKAGES]\n [PACKAGES]\n [EXTRA]"
                      ("\\section{%s}" . "\\section*{%s}")
("\\subsection{%s}" . "\\subsection*{%s}") ("\\subsubsection{%s}" .
"\\subsubsection*{%s}"))
                     ("cn_beamer"

"\\documentclass[presentation,dvipdfmx,CJKbookmarks]{beamer}\n\\usepackage{bxdpx-beamer}\n\\usepackage{CJKutf8}\n\\usepackage{atbegshi}\n\\AtBeginShipoutFirst{\\special{pdf:tounicode
UTF8-UTF16}} % for UTF-8\n [DEFAULT-PACKAGES]\n [PACKAGES]\n [EXTRA]"
                      ("\\section{%s}" . "\\section*{%s}")
("\\subsection{%s}" . "\\subsection*{%s}") ("\\subsubsection{%s}" .
"\\subsubsection*{%s}"))
                     ("article" "\\documentclass[11pt]{article}"
("\\section{%s}" . "\\section*{%s}") ("\\subsection{%s}" .
"\\subsection*{%s}")
                      ("\\subsubsection{%s}" . "\\subsubsection*{%s}")
("\\paragraph{%s}" . "\\paragraph*{%s}")
                      ("\\subparagraph{%s}" . "\\subparagraph*{%s}"))
                     ("report" "\\documentclass[11pt]{report}"
("\\part{%s}" . "\\part*{%s}") ("\\chapter{%s}" . "\\chapter*{%s}")
                      ("\\section{%s}" . "\\section*{%s}")
("\\subsection{%s}" . "\\subsection*{%s}") ("\\subsubsection{%s}" .
"\\subsubsection*{%s}"))
                     ("book" "\\documentclass[11pt]{book}"
("\\part{%s}" . "\\part*{%s}") ("\\chapter{%s}" . "\\chapter*{%s}")
                      ("\\section{%s}" . "\\section*{%s}")
("\\subsection{%s}" . "\\subsection*{%s}") ("\\subsubsection{%s}" .
"\\subsubsection*{%s}"))
                     )
 org-plantuml-jar-path "~/system-config/bin/plantuml.jar"
 org-odt-format-headline-function 'org-odt-format-headline-default-function
 org-agenda-mode-hook '((closure (t) nil (add-hook
'window-configuration-change-hook 'org-agenda-align-tags nil t))
hl-line-mode)
 org-agenda-before-write-hook '(org-agenda-add-entry-text)
 org-agenda-after-show-hook '(org-show-entry)
 org-edit-timestamp-down-means-later t
 org-babel-tangle-lang-exts '(("ruby" . "rb") ("python" . "py")
("perl" . "pl") ("latex" . "tex") ("emacs-lisp" . "el") ("elisp" .
"el"))
 org-src-mode-hook '(org-src-babel-configure-edit-buffer
org-src-mode-configure-edit-buffer)
 org-html-htmlize-output-type 'css
 org-confirm-elisp-link-function 'yes-or-no-p
 org-agenda-window-setup 'current-window
 org-latex-hyperref-template "\\hypersetup{\n pdfauthor={%a},\n
pdftitle={%t},\n pdfkeywords={%k},\n pdfsubject={%d},\n
pdfcreator={%c},\n pdflang={%L},\n colorlinks=true,\n
linkcolor=blue,\n filecolor=magenta,\n urlcolor=cyan,\n}\n"
 org-tags-exclude-from-inheritance '("crypt")
 org-clock-out-remove-zero-time-clocks t
 org-todo-keywords '((sequence "TODO(t)" "DOING(n)" "NEXT(x)" "|"
"DONE(d!/!)") (sequence "PROJECT(p)" "|" "DONE(d!/!)"
"CANCELLED(c@/!)")
                     (sequence "WAITING(w@/!)" "DELEGATED(e!)" "|"
"HOLD(h@/!)"))
 org-clock-out-hook '(sanityinc/hide-org-clock-from-header-line)
 org-support-shift-select t
 org-speed-command-hook '(org-speed-command-activate
org-babel-speed-command-activate)
 org-html-format-inlinetask-function
'org-html-format-inlinetask-default-function
 org-ascii-format-inlinetask-function 'org-ascii-format-inlinetask-default
 org-odt-format-drawer-function #[514 "\207" [] 3 "\n\n(fn NAME CONTENTS)"]
 org-confirm-babel-evaluate nil
 org-fold-core-isearch-open-function 'org-fold-core--isearch-reveal
 org-clock-in-resume t
 org-clock-persist t
 org-latex-format-inlinetask-function
'org-latex-format-inlinetask-default-function
 org-persist-before-write-hook '(org-element--cache-persist-before-write)
 org-tab-first-hook '(org-babel-hide-result-toggle-maybe
org-babel-header-arg-expand)
 org-link-shell-confirm-function 'yes-or-no-p
 org-babel-pre-tangle-hook '((lambda nil (setenv "SC_ORG_FILEPATH"
(buffer-file-name))) save-buffer)
 org-jira-default-jql "(reporter = currentUser() or assignee =
currentUser()) and status != done ORDER BY priority DESC, created ASC"
 org-agenda-loop-over-headlines-in-active-region nil
 org-agenda-start-on-weekday nil
 org-todo-keyword-faces '(("NEXT" :inherit warning) ("PROJECT"
:inherit font-lock-string-face))
 org-fold-reveal-start-hook '(org-decrypt-entry)
 org-occur-hook '(org-first-headline-recenter)
 org-metadown-hook '(org-babel-pop-to-session-maybe)
 org-link-parameters '(("attachment" :follow org-attach-follow
:complete org-attach-complete-link)
                       ("wiki-asset-sys" :follow
org-wiki--protocol-open-assets-with-sys :export org-wiki--asset-link)
                       ("wiki" :follow org-wiki--open-page :export
org-wiki--org-link)
                       ("man" :follow org-man-open :export
org-man-export :store org-man-store-link)
                       ("info" :follow org-info-open :export
org-info-export :store org-info-store-link :insert-description
org-info-description-as-command)
                       ("id" :follow org-id-open) ("smb" :follow nil
:export org-smb-link-export) ("jira" :follow org-jira-open :export
nil) ("file+sys")
                       ("file+emacs") ("shell" :follow org-link--open-shell)
                       ("news" :follow #[514 "\301\300\302 Q \"\207"
["news" browse-url ":"] 6 "\n\n(fn URL ARG)"])
                       ("mailto" :follow #[514 "\301\300\302 Q \"\207"
["mailto" browse-url ":"] 6 "\n\n(fn URL ARG)"])
                       ("https" :follow #[514 "\301\300\302 Q \"\207"
["https" browse-url ":"] 6 "\n\n(fn URL ARG)"])
                       ("http" :follow #[514 "\301\300\302 Q \"\207"
["http" browse-url ":"] 6 "\n\n(fn URL ARG)"])
                       ("ftp" :follow #[514 "\301\300\302 Q \"\207"
["ftp" browse-url ":"] 6 "\n\n(fn URL ARG)"])
                       ("help" :follow org-link--open-help :store
org-link--store-help) ("file" :complete org-link-complete-file)
                       ("elisp" :follow org-link--open-elisp))
 org-html-format-headline-function 'org-html-format-headline-default-function
 org-metaup-hook '(org-babel-load-in-session-maybe)
 org-refile-allow-creating-parent-nodes 'confirm
 org-todo-repeat-to-state "NEXT"
 org-outline-path-complete-in-steps nil
 org-fast-tag-selection-single-key 'expert
 org-tags-column 80
 org-src-lang-modes '(("plantuml" . fundamental) ("ocaml" . tuareg)
("elisp" . emacs-lisp) ("ditaa" . artist) ("asymptote" . asy) ("dot" .
graphviz-dot)
                      ("sqlite" . sql) ("calc" . fundamental) ("C" .
c) ("cpp" . c++) ("C++" . c++) ("screen" . shell-script) ("shell" .
sh) ("bash" . sh))
 org-refile-target-verify-function 'sanityinc/verify-refile-target
 )