Browse Source

Set HTML tags for ~verbatim~ emphasis.

Carsten Dominik 17 years ago
parent
commit
8f00f6226f
2 changed files with 7 additions and 1 deletions
  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>
 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
 	* org-remember.el (org-remember-handler): Fix bug with
 	prefix-related changing of the note storage target.
 	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>")
     ("/" italic "<i>" "</i>")
     ("_" underline "<u>" "</u>")
     ("_" underline "<u>" "</u>")
     ("=" org-code "<code>" "</code>" verbatim)
     ("=" org-code "<code>" "</code>" verbatim)
-    ("~" org-verbatim "" "" verbatim)
+    ("~" org-verbatim "<code>" "</code>" verbatim)
     ("+" ,(if (featurep 'xemacs) 'org-table '(:strike-through t))
     ("+" ,(if (featurep 'xemacs) 'org-table '(:strike-through t))
      "<del>" "</del>")
      "<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
 If char is not given (for example in an interactive call) it
 will be prompted for."
 will be prompted for."
   (interactive)
   (interactive)
+  (debug)
   (let ((eal org-emphasis-alist) e det
   (let ((eal org-emphasis-alist) e det
 	(erc org-emphasis-regexp-components)
 	(erc org-emphasis-regexp-components)
 	(prompt "")
 	(prompt "")
@@ -3510,6 +3511,7 @@ will be prompted for."
       (push (cons c (string-to-char (car e))) det)
       (push (cons c (string-to-char (car e))) det)
       (setq prompt (concat prompt (format " [%s%c]%s" (car e) c
       (setq prompt (concat prompt (format " [%s%c]%s" (car e) c
 					  (substring tag 1)))))
 					  (substring tag 1)))))
+    (setq det (nreverse det))
     (unless char
     (unless char
       (message "%s" (concat "Emphasis marker or tag:" prompt))
       (message "%s" (concat "Emphasis marker or tag:" prompt))
       (setq char (read-char-exclusive)))
       (setq char (read-char-exclusive)))