| 
					
				 | 
			
			
				@@ -1125,16 +1125,6 @@ CSS classes, then this prefix can be very useful." 
			 | 
		
	
		
			
				 | 
				 | 
			
			
				   :group 'org-export-html 
			 | 
		
	
		
			
				 | 
				 | 
			
			
				   :type 'string) 
			 | 
		
	
		
			
				 | 
				 | 
			
			
				  
			 | 
		
	
		
			
				 | 
				 | 
			
			
				-(defcustom org-html-display-buffer-mode 'html-mode 
			 | 
		
	
		
			
				 | 
				 | 
			
			
				-  "Default mode when visiting the HTML output." 
			 | 
		
	
		
			
				 | 
				 | 
			
			
				-  :group 'org-export-html 
			 | 
		
	
		
			
				 | 
				 | 
			
			
				-  :version "24.4" 
			 | 
		
	
		
			
				 | 
				 | 
			
			
				-  :package-version '(Org . "8.0") 
			 | 
		
	
		
			
				 | 
				 | 
			
			
				-  :type '(choice (function 'html-mode) 
			 | 
		
	
		
			
				 | 
				 | 
			
			
				-		 (function 'nxml-mode) 
			 | 
		
	
		
			
				 | 
				 | 
			
			
				-		 (function :tag "Other mode"))) 
			 | 
		
	
		
			
				 | 
				 | 
			
			
				- 
			 | 
		
	
		
			
				 | 
				 | 
			
			
				- 
			 | 
		
	
		
			
				 | 
				 | 
			
			
				  
			 | 
		
	
		
			
				 | 
				 | 
			
			
				 ;;; Internal Functions 
			 | 
		
	
		
			
				 | 
				 | 
			
			
				  
			 | 
		
	
	
		
			
				| 
					
				 | 
			
			
				@@ -3108,14 +3098,14 @@ is non-nil." 
			 | 
		
	
		
			
				 | 
				 | 
			
			
				 	      (erase-buffer) 
			 | 
		
	
		
			
				 | 
				 | 
			
			
				 	      (insert output) 
			 | 
		
	
		
			
				 | 
				 | 
			
			
				 	      (goto-char (point-min)) 
			 | 
		
	
		
			
				 | 
				 | 
			
			
				-	      (funcall org-html-display-buffer-mode) 
			 | 
		
	
		
			
				 | 
				 | 
			
			
				+	      (set-auto-mode t) 
			 | 
		
	
		
			
				 | 
				 | 
			
			
				 	      (org-export-add-to-stack (current-buffer) 'html))) 
			 | 
		
	
		
			
				 | 
				 | 
			
			
				 	`(org-export-as 'html ,subtreep ,visible-only ,body-only ',ext-plist)) 
			 | 
		
	
		
			
				 | 
				 | 
			
			
				     (let ((outbuf (org-export-to-buffer 
			 | 
		
	
		
			
				 | 
				 | 
			
			
				 		   'html "*Org HTML Export*" 
			 | 
		
	
		
			
				 | 
				 | 
			
			
				 		   subtreep visible-only body-only ext-plist))) 
			 | 
		
	
		
			
				 | 
				 | 
			
			
				       ;; Set major mode. 
			 | 
		
	
		
			
				 | 
				 | 
			
			
				-      (with-current-buffer outbuf (funcall org-html-display-buffer-mode)) 
			 | 
		
	
		
			
				 | 
				 | 
			
			
				+      (with-current-buffer outbuf (set-auto-mode t)) 
			 | 
		
	
		
			
				 | 
				 | 
			
			
				       (when org-export-show-temporary-export-buffer 
			 | 
		
	
		
			
				 | 
				 | 
			
			
				 	(switch-to-buffer-other-window outbuf))))) 
			 | 
		
	
		
			
				 | 
				 | 
			
			
				  
			 |