org-src.el: Fix bug: the S-TAB key should not trigger a native TAB command.

* org-src.el (org-src-native-tab-command-maybe): Fix bug: the
S-TAB key should not trigger a native TAB command.
This commit is contained in:
Bastien Guerry 2012-12-12 09:09:04 +01:00
parent 1c13115780
commit 570ecb4e31
1 changed files with 1 additions and 0 deletions

View File

@ -830,6 +830,7 @@ issued in the language major mode buffer."
Alter code block according to effect of TAB in the language major Alter code block according to effect of TAB in the language major
mode." mode."
(and org-src-tab-acts-natively (and org-src-tab-acts-natively
(not (equal this-command 'org-shifttab))
(let ((org-src-strip-leading-and-trailing-blank-lines nil)) (let ((org-src-strip-leading-and-trailing-blank-lines nil))
(org-babel-do-key-sequence-in-edit-buffer (kbd "TAB"))))) (org-babel-do-key-sequence-in-edit-buffer (kbd "TAB")))))