Home Explore Help
Sign In
swflint
/
org-mode-mirror
1
0
Fork 0
Files Issues 0 Pull Requests 0 Wiki
Browse Source

Accept keys for org-export-as-html-to-buffer' and `org-export-region-as-html'

* org-exp.el (org-export-visible): Accept keys for
`org-export-as-html-to-buffer' and `org-export-region-as-html'.

H and R were not in the list of allowed keys but bound to the
respective function later.

Missing keys reported by Samuel Wales <samologist@gmail.com>.
David Maus 14 years ago
parent
145d1bf7e5
commit
1a03c5f256
1 changed files with 1 additions and 1 deletions
Unified View Show Diff Stats
  1. 1 1
      lisp/org-exp.el

+ 1 - 1
lisp/org-exp.el
View File 

@@ -2682,7 +2682,7 @@ command."
 
 	   (message "Export visible: [a]SCII  [h]tml  [b]rowse HTML [H/R]buffer with HTML  [D]ocBook  [l]atex  [p]df  [d]view pdf  [L]atex buffer  [x]OXO  [ ]keep buffer")
 
 	   (message "Export visible: [a]SCII  [h]tml  [b]rowse HTML [H/R]buffer with HTML  [D]ocBook  [l]atex  [p]df  [d]view pdf  [L]atex buffer  [x]OXO  [ ]keep buffer")
 
 	   (read-char-exclusive))
 
 	   (read-char-exclusive))
 
 	 current-prefix-arg))
 
 	 current-prefix-arg))
 
-  (if (not (member type '(?a ?n ?u ?\C-a ?b ?\C-b ?h ?D ?x ?\ ?l ?p ?d ?L)))
 
+  (if (not (member type '(?a ?n ?u ?\C-a ?b ?\C-b ?h ?D ?x ?\ ?l ?p ?d ?L ?H ?R)))
 
       (error "Invalid export key"))
 
       (error "Invalid export key"))
 
   (let* ((binding (cdr (assoc type
 
   (let* ((binding (cdr (assoc type
 
 			      '(
 
 			      '(