瀏覽代碼

Set HTML tags for ~verbatim~ emphasis.

Carsten Dominik 16 年之前
父節點
當前提交
8f00f6226f
共有 2 個文件被更改,包括 7 次插入1 次删除
  1. 4 0
      lisp/ChangeLog
  2. 3 1
      lisp/org.el

+ 4 - 0
lisp/ChangeLog

@@ -1,5 +1,9 @@
 2008-10-28  Carsten Dominik  <dominik@science.uva.nl>
 
+	* org.el (org-emphasize): Reverse the selection array.
+	(org-emphasis-alist): Set <code> tags for the verbatim
+	environment.
+
 	* org-remember.el (org-remember-handler): Fix bug with
 	prefix-related changing of the note storage target.
 

+ 3 - 1
lisp/org.el

@@ -2264,7 +2264,7 @@ Use customize to modify this, or restart Emacs after changing it."
     ("/" italic "<i>" "</i>")
     ("_" underline "<u>" "</u>")
     ("=" org-code "<code>" "</code>" verbatim)
-    ("~" org-verbatim "" "" verbatim)
+    ("~" org-verbatim "<code>" "</code>" verbatim)
     ("+" ,(if (featurep 'xemacs) 'org-table '(:strike-through t))
      "<del>" "</del>")
     )
@@ -3495,6 +3495,7 @@ to remove the emphasis of the selected region.
 If char is not given (for example in an interactive call) it
 will be prompted for."
   (interactive)
+  (debug)
   (let ((eal org-emphasis-alist) e det
 	(erc org-emphasis-regexp-components)
 	(prompt "")
@@ -3510,6 +3511,7 @@ will be prompted for."
       (push (cons c (string-to-char (car e))) det)
       (setq prompt (concat prompt (format " [%s%c]%s" (car e) c
 					  (substring tag 1)))))
+    (setq det (nreverse det))
     (unless char
       (message "%s" (concat "Emphasis marker or tag:" prompt))
       (setq char (read-char-exclusive)))