From: Lee Hinman <lee@writequit.org>
To: emacs-orgmode@gnu.org
Subject: Bug: indenting in sh-mode org-babel source block causes 100% CPU [8.2.3c (8.2.3c-elpa @ /Users/hinmanm/.emacs.d/elpa/org-20131115/)]
Date: Thu, 21 Nov 2013 16:43:00 -0700 [thread overview]
Message-ID: <528E9A84.3080804@writequit.org> (raw)
If I have a simple org-mode file containing:
#+BEGIN_SRC sh
#+END_SRC
And I hit C-c ' to edit code in the block, then type (ignore the <<>>
for a second):
for i in {1..10}; do
<<>>
done
If I place my cursor at the <<>> and hit TAB to indent, Emacs freezes,
using 100% CPU until I quit. For reference, this works completely fine
in a regular sh-mode buffer, it only freezes if editing an org-babel
block.
I've used the profiler to narrow this down to something in the smie
indention code, but my elisp-fu is too weak to narrow any further.
;; Lee Hinman
Emacs : GNU Emacs 24.3.50.1 (i386-apple-darwin12.5.0, NS
apple-appkit-1187.40)
of 2013-10-28 on Xanadu.local
Package: Org-mode version 8.2.3c (8.2.3c-elpa @
/Users/hinmanm/.emacs.d/elpa/org-20131115/)
current state:
==============
(setq
org-export-backends '(ascii html icalendar latex md)
org-export-babel-evaluate nil
org-tab-first-hook '(org-hide-block-toggle-maybe
org-src-native-tab-command-maybe
org-babel-hide-result-toggle-maybe
org-babel-header-arg-expand)
org-speed-command-hook '(org-speed-command-default-hook
org-babel-speed-command-hook)
org-occur-hook '(org-first-headline-recenter)
org-metaup-hook '(org-babel-load-in-session-maybe)
org-confirm-shell-link-function 'yes-or-no-p
org-return-follows-link t
org-todo-keyword-faces '(("STARTED" :foreground "deep sky blue" :weight
bold)
("DONE" :foreground "SpringGreen1" :weight bold)
("WAITING" :foreground "orange" :weight bold))
org-after-todo-state-change-hook '(org-clock-out-if-current)
org-src-mode-hook '(org-src-babel-configure-edit-buffer
org-src-mode-configure-edit-buffer)
org-agenda-before-write-hook '(org-agenda-add-entry-text)
org-babel-pre-tangle-hook '(save-buffer)
org-mode-hook '(org-clock-load
#[nil "\300\301\302\303\304$\207"
[org-add-hook change-major-mode-hook
org-show-block-all append local] 5]
#[nil "\300\301\302\303\304$\207"
[org-add-hook change-major-mode-hook
org-babel-show-result-all append local] 5]
org-babel-result-hide-spec org-babel-hide-all-hashes
(lambda nil (define-key org-mode-map [C-tab] (quote
other-window))
(flyspell-mode -1)
(define-key org-mode-map [C-S-tab] (lambda nil
(interactive) (other-window -1))))
yas-minor-mode-on)
org-refile-targets '(("~hinmanm/org/todo.org" :level . 1)
("~hinmanm/org/notes.org" :level . 1))
org-clock-persist 'history
org-ctrl-c-ctrl-c-hook '(org-babel-hash-at-point
org-babel-execute-safely-maybe)
org-directory "~/.emacs.d/"
org-cycle-hook '(org-cycle-hide-archived-subtrees org-cycle-hide-drawers
org-cycle-hide-inline-tasks org-cycle-show-empty-lines
org-optimize-window-after-visibility-change)
org-todo-keywords '((sequence "TODO(t)" "STARTED(s)" "WAITING(w)" "|"
"DONE(x)" "CANCEL(c)")
(sequence "WAITING(f)" "|" "DONE(x)" "CANCEL(c)"))
org-modules '(org-bbdb org-bibtex org-docview org-gnus org-info org-irc
org-mhe org-rmail org-w3m
org-velocity)
org-babel-tangle-lang-exts '(("python" . "py") ("ruby" . "rb")
("clojure" . "clj")
("emacs-lisp" . "el"))
org-confirm-elisp-link-function 'yes-or-no-p
org-metadown-hook '(org-babel-pop-to-session-maybe)
org-startup-truncated nil
org-completion-use-ido t
org-babel-load-languages '((emacs-lisp . t) (clojure . t) (sh . t)
(ruby . t) (python . t))
org-agenda-files '("/Users/hinmanm/org/.#circuit-breaker.org"
"/Users/hinmanm/org/amazon-purchases.org"
"/Users/hinmanm/org/catapi.org"
"/Users/hinmanm/org/ch04-search.org"
"/Users/hinmanm/org/ch05-analysis.org"
"/Users/hinmanm/org/circuit-breaker.org"
"/Users/hinmanm/org/cluster-settings.org"
"/Users/hinmanm/org/companies.org"
"/Users/hinmanm/org/excluded-source-filter.org"
"/Users/hinmanm/org/index.org"
"/Users/hinmanm/org/journal.org"
"/Users/hinmanm/org/literate-es-scripts.org"
"/Users/hinmanm/org/malformed-in-source.org"
"/Users/hinmanm/org/named-queries.org"
"/Users/hinmanm/org/nested-in-all.org"
"/Users/hinmanm/org/notes.org"
"/Users/hinmanm/org/numeric-loading.org"
"/Users/hinmanm/org/simple-query-parser.org"
"/Users/hinmanm/org/todo.org"
"/Users/hinmanm/org/update-api-with-partial-source.org"
"/Users/hinmanm/org/work.org")
org-clock-out-hook '(org-clock-remove-empty-clock-drawer)
org-confirm-babel-evaluate nil
org-src-fontify-natively t
)
reply other threads:[~2013-11-21 23:43 UTC|newest]
Thread overview: [no followups] expand[flat|nested] mbox.gz Atom feed
Reply instructions:
You may reply publicly to this message via plain-text email
using any one of the following methods:
* Save the following mbox file, import it into your mail client,
and reply-to-all from there: mbox
Avoid top-posting and favor interleaved quoting:
https://en.wikipedia.org/wiki/Posting_style#Interleaved_style
List information: https://www.orgmode.org/
* Reply using the --to, --cc, and --in-reply-to
switches of git-send-email(1):
git send-email \
--in-reply-to=528E9A84.3080804@writequit.org \
--to=lee@writequit.org \
--cc=emacs-orgmode@gnu.org \
/path/to/YOUR_REPLY
https://kernel.org/pub/software/scm/git/docs/git-send-email.html
* If your mail client supports setting the In-Reply-To header
via mailto: links, try the mailto: link
Be sure your reply has a Subject: header at the top and a blank line
before the message body.
Code repositories for project(s) associated with this public inbox
https://git.savannah.gnu.org/cgit/emacs/org-mode.git
This is a public inbox, see mirroring instructions
for how to clone and mirror all data and code used for this inbox;
as well as URLs for read-only IMAP folder(s) and NNTP newsgroup(s).