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.
2012-12-12 09:09:04 +01:00 · 2012-12-12 09:09:04 +01:00 · 570ecb4e31
parent 1c13115780
commit 570ecb4e31
1 changed files with 1 additions and 0 deletions
--- a/lisp/org-src.el
+++ b/lisp/org-src.el
@ -830,6 +830,7 @@ issued in the language major mode buffer."
 Alter code block according to effect of TAB in the language major
 mode."
  (and org-src-tab-acts-natively
+       (not (equal this-command 'org-shifttab))
       (let ((org-src-strip-leading-and-trailing-blank-lines nil))
 	 (org-babel-do-key-sequence-in-edit-buffer (kbd "TAB")))))