Bug: Figure caption highlighting [8.3.6 (8.3.6-7-g4d7d52-elpaplus @ /home/mcg/.emacs.d/elpa/org-plus-contrib-20161017/)]

Bug: Figure caption highlighting [8.3.6 (8.3.6-7-g4d7d52-elpaplus @ /home/mcg/.emacs.d/elpa/org-plus-contrib-20161017/)]

[mcg]

I am not sure if this qualifies as a bug:
When I use figure captions in org-mode I get:

#+CAPTION: Caption text is highlighted
#+CAPTION[Figure with short caption for LaTeX TOC export]: Caption text 
is not highlighted

I know that the short-caption brackets are probably only intended for
LaTeX export. Is there an easy fix to get code highlighting for figures 
with short captions?.

Emacs  : GNU Emacs 24.4.1 (x86_64-pc-linux-gnu, GTK+ Version 3.14.5)
  of 2015-03-07 on trouble, modified by Debian
Package: Org-mode version 8.3.6 (8.3.6-7-g4d7d52-elpaplus @ 
/home/mcg/.emacs.d/elpa/org-plus-contrib-20161017/)

current state:
==============
(setq
  org-export-with-todo-keywords nil
  org-export-backends '(ascii html icalendar latex freemind koma-letter)
  org-latex-tables-booktabs t
  org-latex-default-figure-position "!htbp"
  org-ref-get-pdf-filename-function 'org-ref-get-pdf-filename
  org-tab-first-hook '(org-hide-block-toggle-maybe 
org-babel-hide-result-toggle-maybe org-babel-header-arg-expand)
  org-adapt-indentation nil
  org-latex-classes '(("article"
"\\documentclass[11pt,twoside,pointlessnumbers,headsepline]{scrartcl}\n[DEFAULT-PACKAGES]\n[PACKAGES]\n\n\\hypersetup{%\ncolorlinks 
= false, %Colours links instead of ugly boxes\nlinkbordercolor=blue, 
%hyperlink borders will be blue\nurlcolor     = blue, %Colour for 
external hyperlinks\nlinkcolor    = red, %Colour of internal 
links\ncitecolor   = brown, %Colour of citations\ncitebordercolor = 
brown, %Colour of citations\npdfborderstyle={/S/U/W 0.5} %border style 
will be underline of width 0.5pt\n}\n\n\n[EXTRA]   \n"
               ("\\section{%s}" . "\\section*{%s}") ("\\subsection{%s}" 
. "\\subsection*{%s}")
               ("\\subsubsection{%s}" . "\\subsubsection*{%s}") 
("\\paragraph{%s}" . "\\paragraph*{%s}")
               ("\\subparagraph{%s}" . "\\subparagraph*{%s}"))
              ("default-koma-letter" "\\documentclass[11pt]{scrlttr2}")
              ("letter" "\\documentclass{scrlttr2}\n 
[DEFAULT-PACKAGES]\n        [NO-PACKAGES]        ")
              ("minimalRnw" 
"\\documentclass{scrartcl}\n[NO-DEFAULT-PACKAGES]\n\\usepackage{hyperref}"
               ("\\section{%s}" . "\\section*{%s}") ("\\subsection{%s}" 
. "\\subsection*{%s}")
               ("\\subsubsection{%s}" . "\\subsubsection*{%s}") 
("\\paragraph{%s}" . "\\paragraph*{%s}")
               ("\\subparagraph{%s}" . "\\subparagraph*{%s}"))
              ("beamer" "\\documentclass[presentation]{beamer}" 
("\\section{%s}" . "\\section*{%s}")
               ("\\subsection{%s}" . "\\subsection*{%s}") 
("\\subsubsection{%s}" . "\\subsubsection*{%s}"))
              ("report" "\\documentclass[11pt]{scrreprt}" ("\\part{%s}" 
. "\\part*{%s}")
               ("\\chapter{%s}" . "\\chapter*{%s}") ("\\section{%s}" . 
"\\section*{%s}")
               ("\\subsection{%s}" . "\\subsection*{%s}") 
("\\subsubsection{%s}" . "\\subsubsection*{%s}"))
              ("book" "\\documentclass[11pt]{scrbook}" ("\\part{%s}" . 
"\\part*{%s}") ("\\chapter{%s}" . "\\chapter*{%s}")
               ("\\section{%s}" . "\\section*{%s}") ("\\subsection{%s}" 
. "\\subsection*{%s}")
               ("\\subsubsection{%s}" . "\\subsubsection*{%s}"))
              )
  org-calc-default-modes '(calc-internal-prec 12 calc-float-format 
(float 5) calc-angle-mode deg calc-prefer-frac nil
               calc-symbolic-mode nil calc-date-format (YYYY "-" MM "-" 
DD " " Www (" " hh ":" mm))
               calc-display-working-message t)
  org-speed-command-hook '(org-speed-command-default-hook 
org-babel-speed-command-hook)
  org-export-with-timestamps nil
  org-agenda-diary-file "~/org/diary.org"
  org-ref-pdf-directory "~/library/link/"
  org-occur-hook '(org-first-headline-recenter)
  org-src-tab-acts-natively t
  org-metaup-hook '(org-babel-load-in-session-maybe)
  org-agenda-start-on-weekday nil
  org-html-format-drawer-function '(lambda (name contents) contents)
  org-format-latex-options '(:foreground default :background "White" 
:scale 1.2 :html-foreground "Black" :html-background
                 "Transparent" :html-scale 1.0 :matchers ("begin" "$1" 
"$" "$$" "\\(" "\\["))
  org-src-window-setup 'current-window
  org-latex-format-inlinetask-function 
'org-latex-format-inlinetask-default-function
  org-confirm-shell-link-function 'yes-or-no-p
  org-ascii-format-inlinetask-function 'org-ascii-format-inlinetask-default
  org-ref-cite-types '("citep" "autocite" "citealp" "citet" "citet*" 
"cite" "citep*" "citeauthor" "citeauthor*" "citeyear"
               "nocite" "citetext")
  org-ref-open-pdf-function 'org-ref-open-pdf-at-point
  org-ref-cite-onclick-function 'org-ref-cite-click-helm
  org-time-stamp-custom-formats '("<%d.%m.%Y>" . "<%d.%m.%y %a %H:%M>")
  org-latex-pdf-process '("latexmk -f -pdf %f")
  org-latex-text-markup-alist '((bold . "\\textbf{%s}") (code . 
protectedtexttt) (italic . "\\textit{%s}")
                    (strike-through . "\\sout{%s}") (underline . 
"\\uline{%s}") (verbatim . protectedtexttt))
  org-ref-insert-label-function 'org-ref-helm-insert-label-link
  org-export-date-timestamp-format "%d.%m.%Y"
  org-ref-default-bibliography '("~/library/bib/adjuvants.bib" 
"~/library/bib/allelopathy.bib" "~/library/bib/ds.bib"
                 "~/library/bib/import.bib" "~/library/bib/methods.bib" 
"~/library/bib/nps.bib"
                 "~/library/bib/nutrition.bib" 
"~/library/bib/sulphur.bib" "~/library/bib/sort.bib"
                 "~/library/bib/phos.bib" "~/library/bib/out.bib" 
"~/library/bib/nofile.bib"
                 "~/library/bib/cite.bib")
  org-file-apps '((auto-mode . emacs) ("\\.mm\\'" . default) 
("\\.x?html?\\'" . "chromium %s") ("\\.pdf\\'" . "evince %s"))
  org-emphasis-alist '(("*" bold) ("/" italic) ("_" underline) ("=" 
org-verbatim verbatim) ("~" org-code verbatim))
  org-agenda-skip-scheduled-if-done t
  org-shiftleft-hook '(#[nil "\300\301!\207" [org-ref-swap-citation-link 
-1] 2])
  org-freemind-pretty-output t
  org-agenda-custom-commands '(("W" "Weekly Review"
                    ((agenda "" ((org-agenda-ndays 7))) (stuck "") (todo 
"PROJECT") (todo "MAYBE") (todo "WAITING")))
                   )
  org-ref-bibliography-notes "~/library/notes.org"
  org-latex-format-headline-function 
'org-latex-format-headline-default-function
  org-default-notes-file "~/org/gtd.org"
  org-latex-image-default-width ""
  org-ref-default-citation-link "citep"
  org-after-todo-state-change-hook '(org-clock-out-if-current)
  org-latex-format-drawer-function '(lambda (name contents) contents)
  org-from-is-user-regexp "\\<mcg\\>"
  org-koma-letter-opening nil
  org-src-mode-hook '(org-src-babel-configure-edit-buffer 
org-src-mode-configure-edit-buffer)
  org-agenda-before-write-hook '(org-agenda-add-entry-text)
  org-babel-pre-tangle-hook '(save-buffer)
  org-mode-hook '(org-ref-org-menu
          #[nil "\300\301\302\303#\210\304\305\306\307#\207"
            [advice-add org-activate-bracket-links :after 
org-ref-make-org-link-cite-key-visible font-lock-add-keywords
             nil
             ((org-ref-match-next-cite-link (0 (quote org-ref-cite-face) t))
              (org-ref-match-next-label-link (0 (quote 
org-ref-label-face) t))
              (org-ref-match-next-ref-link (0 (quote org-ref-ref-face) t))
              (org-ref-match-next-bibliography-link (0 (quote org-link) t))
              (org-ref-match-next-bibliographystyle-link (0 (quote 
org-link) t)))
             t]
            4]
          #[0 "\300\301\302\303#\207"
            [font-lock-add-keywords nil ((or-next-acronym-link (0 (quote 
org-ref-acronym-face) t))) t] 4 "\n\n(fn)"]
          #[0 "\300\301\302\303#\207"
            [font-lock-add-keywords nil ((or-next-glossary-link (0 
(quote org-ref-glossary-face) t))) t] 4 "\n\n(fn)"]
          #[nil "\300\301\302\303\304$\207" [org-add-hook 
change-major-mode-hook org-show-block-all append local] 5]
          #[nil "\300\301\302\303\304$\207" [org-add-hook 
change-major-mode-hook org-babel-show-result-all append local] 5]
          org-babel-result-hide-spec org-babel-hide-all-hashes
          (lambda nil (local-set-key (kbd "M-h") (quote 
beginning-of-visual-line))
           (local-set-key (kbd "M-ö") (quote end-of-visual-line))
           (local-set-key (kbd "M-a") (quote backward-kill-visual-line))
           (local-set-key (kbd "M-g") (quote kill-visual-line)) 
(local-set-key (kbd "M-e") (quote backward-kill-word))
           (local-set-key (kbd "M-s") (quote kill-whole-line))
           (local-set-key (kbd "C-c )") (quote 
org-ref-helm-insert-cite-link))
           (local-set-key (kbd "C-c (") (quote 
org-ref-helm-insert-ref-link)))
          turn-on-font-lock (lambda nil (local-set-key (kbd "M-'") 
(quote org-mark-ring-goto)))
          (lambda nil (local-set-key (kbd "H-<") (quote 
my-org-toggle-current-block)))
          (lambda nil (local-set-key (kbd "<f7>") (quote 
org-edit-src-code-))) org-eldoc-load)
  org-ref-insert-cite-function 'org-ref-helm-insert-cite-link
  org-latex-prefer-user-labels t
  org-format-latex-header 
"\\documentclass{scrartcl}\n\\usepackage[usenames]{color}\n[PACKAGES]\n[DEFAULT-PACKAGES]\n\\pagestyle{empty} 
% do not remove\n% The settings below are copied from 
fullpage.sty\n\\setlength{\\textwidth}{\\paperwidth}\n\\addtolength{\\textwidth}{-3cm}\n\\setlength{\\oddsidemargin}{1.5cm}\n\\addtolength{\\oddsidemargin}{-2.54cm}\n\\setlength{\\evensidemargin}{\\oddsidemargin}\n\\setlength{\\textheight}{\\paperheight}\n\\addtolength{\\textheight}{-\\headheight}\n\\addtolength{\\textheight}{-\\headsep}\n\\addtolength{\\textheight}{-\\footskip}\n\\addtolength{\\textheight}{-3cm}\n\\setlength{\\topmargin}{1.5cm}\n\\addtolength{\\topmargin}{-2.54cm}"
  org-latex-caption-above '(table special-block)
  org-archive-hook '(org-attach-archive-delete-maybe)
  org-ascii-format-drawer-function '(lambda (name contents width) contents)
  org-ctrl-c-ctrl-c-hook '(org-babel-hash-at-point 
org-babel-execute-safely-maybe)
  org-ref-insert-ref-function 'org-ref-helm-insert-ref-link
  org-enforce-todo-dependencies t
  org-cycle-hook '(org-cycle-hide-archived-subtrees 
org-cycle-hide-drawers org-cycle-show-empty-lines
           org-optimize-window-after-visibility-change)
  org-koma-letter-prefer-subject t
  org-ref-bibtex-assoc-pdf-with-entry-move-function 'rename-file
  org-export-before-parsing-hook '(org-latex-header-blocks-filter)
  org-enforce-todo-checkbox-dependencies t
  org-ref-clean-bibtex-key-function '(lambda (key) 
(replace-regexp-in-string ":" "" key))
  org-blank-before-new-entry '((heading . t) (plain-list-item))
  org-todo-keywords '((sequence "TODO" "IN-PROGRESS" "CANCELLED" "DONE"))
  org-ref-clean-bibtex-entry-hook '(orcb-key-comma 
org-ref-replace-nonascii orcb-& orcb-% org-ref-title-case-article
                    orcb-clean-year orcb-key orcb-clean-doi 
orcb-clean-pages org-ref-sort-bibtex-entry)
  org-agenda-ndays 14
  org-ref-insert-cite-key "C-c )"
  org-agenda-window-setup 'current-window
  org-koma-letter-default-class "letter"
  org-latex-packages-alist '(("" "nth" nil) ("" "enumitem" nil) "" ("" 
"subcaption" nil) ("" "multirow" nil) ("" "natbib" nil)
                 ("" "booktabs" nil) ("" "authblk" nil) ("" "afterpage" 
nil) ("" "makeidx" nil) ("" "tikz" nil)
                 ("" "chemmacros" nil) ("" "siunitx" nil) ("" "chngcntr" 
nil) "\\counterwithin{figure}{section}"
                 "\\counterwithin{table}{section}")
  org-catch-invisible-edits 'show
  org-export-allow-bind-keywords t
  org-ctrl-k-protect-subtree t
  org-babel-tangle-lang-exts '(("latex" . "tex") ("python" . "py") 
("emacs-lisp" . "el") ("elisp" . "el"))
  org-confirm-elisp-link-function 'yes-or-no-p
  org-edit-src-content-indentation 0
  org-metadown-hook '(org-babel-pop-to-session-maybe)
  org-shiftright-hook '(#[nil "\300\301!\207" 
[org-ref-swap-citation-link 1] 2])
  org-blocker-hook '(org-block-todo-from-checkboxes 
org-block-todo-from-children-or-siblings-or-parent)
  org-ref-open-notes-function '(lambda nil (org-show-entry) 
(show-branches) (show-children) (org-cycle (quote (64)))
                    (recenter-top-bottom 0))
  org-koma-letter-class-option-file "DIN"
  org-agenda-skip-deadline-if-done t
  org-html-format-headline-function 
'org-html-format-headline-default-function
  org-structure-template-alist '(("s" "#+BEGIN_SRC ?\n\n#+END_SRC") ("e" 
"#+BEGIN_EXAMPLE\n?\n#+END_EXAMPLE")
                 ("q" "#+BEGIN_QUOTE\n?\n#+END_QUOTE") ("v" 
"#+BEGIN_VERSE\n?\n#+END_VERSE")
                 ("V" "#+BEGIN_VERBATIM\n?\n#+END_VERBATIM") ("c" 
"#+BEGIN_CENTER\n?\n#+END_CENTER")
                 ("l" "#+BEGIN_LaTeX\n?\n#+END_LaTeX") ("L" "#+LaTeX: ") 
("h" "#+BEGIN_HTML\n?\n#+END_HTML")
                 ("H" "#+HTML: ") ("a" "#+BEGIN_ASCII\n?\n#+END_ASCII") 
("A" "#+ASCII: ") ("i" "#+INDEX: ?")
                 ("I" "#+INCLUDE: %file ?") ("t" 
"#+BEGIN_table\n?\n#+END_table"))
  org-koma-letter-subject-format '(beforeopening left)
  org-babel-load-languages '((R . t) (python . t) (latex . t) (org . t) 
(sh . t) (emacs-lisp . t))
  org-koma-letter-author "Michael Giepen"
  org-koma-letter-email "giepen.m@gmail.com"
  org-ref-insert-link-function 'org-ref-helm-insert-cite-link
  org-html-format-inlinetask-function 
'org-html-format-inlinetask-default-function
  org-ref-notes-function '(lambda (thekey)
               (let* ((results (org-ref-get-bibtex-key-and-file thekey)) 
(key (car results)) (bibfile (cdr results)))
                (save-excursion
                 (with-temp-buffer (insert-file-contents bibfile)
                  (bibtex-set-dialect (parsebib-find-bibtex-dialect) t) 
(bibtex-search-entry key)
                  (org-ref-open-bibtex-notes))
                 )
                )
               )
  org-agenda-files '("~/thesis/chapter/02.materials.org" 
"~/thesis/chapter/06.outlook.org" "~/thesis/chapter/05.nh.org"
             "~/org/diary.org" "~/thesis/chapter/04.soybean.org" 
"~/thesis/chapter/03.faba.org" "~/thesis/thesis.org")
  org-clock-out-hook '(org-clock-remove-empty-clock-drawer)
  org-confirm-babel-evaluate nil
  org-entities-user '(("reg" "\\textsuperscript{\\textregistered}" nil 
"&reg;" "(r)" "®" "®"))
  org-koma-letter-phone-number nil
  org-latex-tables-centered nil
  org-export-headline-levels 4
  org-freemind-style-map-function 'org-freemind-style-map--automatic
  )

Re: Bug: Figure caption highlighting [8.3.6 (8.3.6-7-g4d7d52-elpaplus @ /home/mcg/.emacs.d/elpa/org-plus-contrib-20161017/)]

[Nicolas Goaziou]

Hello,

mcg <giepen.m@googlemail.com> writes:

> I am not sure if this qualifies as a bug:
> When I use figure captions in org-mode I get:
>
> #+CAPTION: Caption text is highlighted
> #+CAPTION[Figure with short caption for LaTeX TOC export]: Caption text 
>
> is not highlighted

FWIW, I cannot reproduce it.

Regards,

-- 
Nicolas Goaziou