mirror of
https://git.savannah.gnu.org/git/emacs/org-mode.git
synced 2024-08-25 05:32:51 +00:00
Change let bind to a let* in org-edit-src-code
* org-src.el (org-edit-src-code): Change let bind to let*, e.g. if case-fold-search is bound to nil globally, the (case-fold-search t) doesn't work until we get to the body. The fix and analysis was provided by Nick Dokos on this email message thread: <http://thread.gmane.org/gmane.emacs.orgmode/53335/focus=53342> TINY CHANGE
This commit is contained in:
parent
2b3ae5c046
commit
526cac1776
|
@ -212,7 +212,7 @@ buffer."
|
||||||
(interactive)
|
(interactive)
|
||||||
(unless (eq context 'save)
|
(unless (eq context 'save)
|
||||||
(setq org-edit-src-saved-temp-window-config (current-window-configuration)))
|
(setq org-edit-src-saved-temp-window-config (current-window-configuration)))
|
||||||
(let ((mark (and (org-region-active-p) (mark)))
|
(let* ((mark (and (org-region-active-p) (mark)))
|
||||||
(case-fold-search t)
|
(case-fold-search t)
|
||||||
(info (org-edit-src-find-region-and-lang))
|
(info (org-edit-src-find-region-and-lang))
|
||||||
(full-info (org-babel-get-src-block-info 'light))
|
(full-info (org-babel-get-src-block-info 'light))
|
||||||
|
|
Loading…
Reference in a new issue