Bug: file names capitalised when using gnuplot [9.3 (release_9.3 @ /usr/share/emacs/27.1/lisp/org/)]

[Paul Stansell <paulstansell@gmail.com>]

[-- Attachment #1: Type: text/plain, Size: 7093 bytes --]

Hello,

A bug occurs when plotting data from an Org table using Gnuplot.  An
example is given below.  In the first code block the plot is produced as
expected, but in the second code block (where I have changed a lowercase
"c" to an uppercase "C") gnuplot tries to plot data from a
non-existent file name that consists of all uppercase letters.

Thanks,

Paul

# ================= Start example =====================
#+name: data
|--------+--------|
|      x |      y |
|--------+--------|
| 111.89 |  88.37 |
| 392.12 | 297.33 |
|--------+--------|

This code block works.  It tries to read the data from
"/tmp/babel-stable-462/gnuplot--633772447824105179", which exists.
#+begin_src gnuplot :var c=data :results silent
  reset session
  plot "$c" u 1:2
#+end_src

This code block does not work.  It tries to read the data from
"/TMP/BABEL-STABLE-462/GNUPLOT-2096937058546578295", which does not
exist.
#+begin_src gnuplot :var C=data :results silent
  reset session
  plot "$C" u 1:2
#+end_src
# ================= End example =====================



current state:
==============
(setq
 org-src-mode-hook '(org-src-babel-configure-edit-buffer
org-src-mode-configure-edit-buffer)
 org-link-shell-confirm-function 'yes-or-no-p
 org-metadown-hook '(org-babel-pop-to-session-maybe)
 org-clock-out-hook '(org-clock-remove-empty-clock-drawer)
 org-id-link-to-org-use-id t
 org-mode-hook '(#[0 "\300\301\302\303\304$\207"
                   [add-hook change-major-mode-hook org-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)
 org-clock-persist 'history
 org-archive-hook '(org-attach-archive-delete-maybe)
 org-confirm-elisp-link-function 'yes-or-no-p
 org-clock-history-length 28
 org-agenda-before-write-hook '(org-agenda-add-entry-text)
 org-metaup-hook '(org-babel-load-in-session-maybe)
 org-bibtex-headline-format-function #[257 "\300 \236A\207" [:title] 3
"\n\n(fn ENTRY)"]
 org-babel-pre-tangle-hook '(save-buffer)
 org-file-apps '((auto-mode . emacs) ("\\.odt\\'" . "libreoffice %s")
                 ("\\.docx\\'" . "libreoffice %s") ("\\.xlsx\\'" .
"libreoffice %s")
                 ("\\.png\\'" . "xv %s") ("\\.jpg\\'" . "xv %s")
("\\.jpeg\\'" . "xv %s")
                 ("\\.webp\\'" . "xv %s") ("\\.pdf\\'" . "okular \"%s\"")
                 ("\\.xoj" . "xournal %s") ("\\.xopp" . "xournalpp %s"))
 org-tab-first-hook '(org-babel-hide-result-toggle-maybe
org-babel-header-arg-expand)
 org-hide-leading-stars t
 org-babel-load-languages '((R . t) (emacs-lisp . t) (gnuplot . t) (octave
. t) (python . t)
                            (fortran . t) (sql . t) (ditaa . t) (dot . t)
(shell . t))
 org-log-done 'time
 org-highlight-latex-and-related '(latex)
 org-occur-hook '(org-first-headline-recenter)
 org-log-into-drawer t
 org-cycle-hook '(org-cycle-hide-archived-subtrees
org-cycle-show-empty-lines
                  org-optimize-window-after-visibility-change)
 org-todo-keywords '((sequence "TODO(t!)" "MAYBE(m!)" "STARTED(s!)"
"WAITING(w@/!)" "|"
                      "DONE(d)" "INFO(i!)" "CANCELLED(c@)" "UNFINISHED(u@)"
"ABANDONED(a@)")
                     )
 org-speed-command-hook '(org-speed-command-activate
org-babel-speed-command-activate)
 org-babel-tangle-lang-exts '(("fortran" . "F90") ("python" . "py")
("emacs-lisp" . "el")
                              ("elisp" . "el"))
 org-format-latex-options '(:foreground "Yellow" :background default :scale
1.2
                            :html-foreground "Black" :html-background
"Transparent"
                            :html-scale 1.07 :matchers ("begin" "$1" "$"
"$$" "\\(" "\\["))
 org-clock-display-default-range 'untilnow
 org-confirm-shell-link-function 'yes-or-no-p
 org-link-parameters '(("attachment" :follow org-attach-open-link :export
                        org-attach-export-link :complete
org-attach-complete-link)
                       ("eww" :follow eww :store org-eww-store-link)
                       ("rmail" :follow org-rmail-open :store
org-rmail-store-link)
                       ("mhe" :follow org-mhe-open :store
org-mhe-store-link)
                       ("irc" :follow org-irc-visit :store
org-irc-store-link :export
                        org-irc-export)
                       ("info" :follow org-info-open :export
org-info-export :store
                        org-info-store-link)
                       ("gnus" :follow org-gnus-open :store
org-gnus-store-link)
                       ("docview" :follow org-docview-open :export
org-docview-export :store
                        org-docview-store-link)
                       ("bibtex" :follow org-bibtex-open :store
org-bibtex-store-link)
                       ("bbdb" :follow org-bbdb-open :export
org-bbdb-export :complete
                        org-bbdb-complete-link :store org-bbdb-store-link)
                       ("w3m" :store org-w3m-store-link) ("id" :follow
org-id-open)
                       ("file+sys") ("file+emacs") ("shell" :follow
org-link--open-shell)
                       ("news" :follow
                        #[257 "\301\300\302 Q!\207" ["news" browse-url ":"]
5
                          "\n\n(fn URL)"]
                        )
                       ("mailto" :follow
                        #[257 "\301\300\302 Q!\207" ["mailto" browse-url
":"] 5
                          "\n\n(fn URL)"]
                        )
                       ("https" :follow
                        #[257 "\301\300\302 Q!\207" ["https" browse-url
":"] 5
                          "\n\n(fn URL)"]
                        )
                       ("http" :follow
                        #[257 "\301\300\302 Q!\207" ["http" browse-url ":"]
5
                          "\n\n(fn URL)"]
                        )
                       ("ftp" :follow
                        #[257 "\301\300\302 Q!\207" ["ftp" browse-url ":"]
5 "\n\n(fn URL)"]
                        )
                       ("help" :follow org-link--open-help)
                       ("file" :complete org-link-complete-file)
                       ("elisp" :follow org-link--open-elisp)
                       ("doi" :follow org-link--open-doi))
 org-link-elisp-confirm-function 'yes-or-no-p
 org-todo-keyword-faces '(("TODO" :foreground "light pink" :weight bold)
                          ("MAYBE" :foreground "light pink" :weight bold)
                          ("STARTED" :foreground "gold" :weight bold)
                          ("DONE" :foreground "light green" :weight bold)
                          ("WAITING" :foreground "gold" :weight bold)
                          ("CANCELLED" :foreground "light green" :weight
bold)
                          ("UNFINISHED" :foreground "light green" :weight
bold)
                          ("ABANDONED" :foreground "light green" :weight
bold))
 org-clock-into-drawer "CLOCK"
 org-clock-in-switch-to-state "STARTED"
 org-clock-out-remove-zero-time-clocks t
 org-confirm-babel-evaluate nil
 )

[-- Attachment #2: Type: text/html, Size: 9771 bytes --]