ndwarshuis
/
org-mode
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

org.el (org-edit-special): Fix bug about editing special blocks "example" and "verbatim" 

* org.el (org-structure-template-alist): Add verbatim.
(org-edit-special): Fix bug about editing special blocks
"example" and "verbatim".
This commit is contained in:
Bastien Guerry 2012-12-23 17:18:06 +01:00
parent 7ab4464ea4
commit 9f4ecf79b1
1 changed files with 7 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
lisp/org.el
View File

@ -11259,8 +11259,7 @@ This function can be used in a hook."
" +" t))) " +" t)))
(defcustom org-structure-template-alist (defcustom org-structure-template-alist
'( '(("s" "#+BEGIN_SRC ?\n\n#+END_SRC"
("s" "#+BEGIN_SRC ?\n\n#+END_SRC"
"<src lang=\"?\">\n\n</src>") "<src lang=\"?\">\n\n</src>")
("e" "#+BEGIN_EXAMPLE\n?\n#+END_EXAMPLE" ("e" "#+BEGIN_EXAMPLE\n?\n#+END_EXAMPLE"
"<example>\n?\n</example>") "<example>\n?\n</example>")
@ -11268,6 +11267,8 @@ This function can be used in a hook."
"<quote>\n?\n</quote>") "<quote>\n?\n</quote>")
("v" "#+BEGIN_VERSE\n?\n#+END_VERSE" ("v" "#+BEGIN_VERSE\n?\n#+END_VERSE"
"<verse>\n?\n</verse>") "<verse>\n?\n</verse>")
("V" "#+BEGIN_VERBATIM\n?\n#+END_VERBATIM"
"<verbatim>\n?\n</verbatim>")
("c" "#+BEGIN_CENTER\n?\n#+END_CENTER" ("c" "#+BEGIN_CENTER\n?\n#+END_CENTER"
"<center>\n?\n</center>") "<center>\n?\n</center>")
("l" "#+BEGIN_LaTeX\n?\n#+END_LaTeX" ("l" "#+BEGIN_LaTeX\n?\n#+END_LaTeX"
@ -11283,8 +11284,7 @@ This function can be used in a hook."
("i" "#+INDEX: ?" ("i" "#+INDEX: ?"
"#+INDEX: ?") "#+INDEX: ?")
("I" "#+INCLUDE: %file ?" ("I" "#+INCLUDE: %file ?"
"<include file=%file markup=\"?\">") "<include file=%file markup=\"?\">"))
)
"Structure completion elements. "Structure completion elements.
This is a list of abbreviation keys and values. The value gets inserted This is a list of abbreviation keys and values. The value gets inserted
if you type `<' followed by the key and then press the completion key, if you type `<' followed by the key and then press the completion key,
@ -18994,7 +18994,9 @@ Otherwise, return a user error."
(beginning-of-line 1) (beginning-of-line 1)
(let ((case-fold-search )) (looking-at "[ \t]*#\\+tblfm:")))) (let ((case-fold-search )) (looking-at "[ \t]*#\\+tblfm:"))))
(call-interactively 'org-table-edit-formulas)) (call-interactively 'org-table-edit-formulas))
((or (org-in-src-block-p) (org-at-table.el-p)) (org-edit-src-code)) ((or (org-in-block-p '("src" "example" "verbatim"))
(org-at-table.el-p))
(org-edit-src-code))
((org-in-fixed-width-region-p) (org-edit-fixed-width-region)) ((org-in-fixed-width-region-p) (org-edit-fixed-width-region))
((org-at-regexp-p org-any-link-re) (call-interactively 'ffap)) ((org-at-regexp-p org-any-link-re) (call-interactively 'ffap))
(t (user-error "No special environment to edit here")))) (t (user-error "No special environment to edit here"))))