Просмотр исходного кода

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.
Bastien Guerry 13 лет назад
Родитель
Сommit
570ecb4e31
1 измененных файлов с 1 добавлено и 0 удалено
  1. 1 0
      lisp/org-src.el

+ 1 - 0
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
 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")))))