浏览代码

Make exporting a subtree also work without transient-mark-mode

Carsten Dominik 15 年之前
父节点
当前提交
56610b4833
共有 2 个文件被更改,包括 4 次插入1 次删除
  1. 3 0
      lisp/ChangeLog
  2. 1 1
      lisp/org-exp.el

+ 3 - 0
lisp/ChangeLog

@@ -1,5 +1,8 @@
 2010-01-05  Carsten Dominik  <carsten.dominik@gmail.com>
 
+	* org-exp.el (org-export): Make sure the mark is activated, also
+	when `transient-mark-mode' is off.
+
 	* org-agenda.el (org-agenda-search-view-always-boolean): New option.
 	(org-agenda-search-view-search-words-only): Obsolete variable, is
 	now an alias for `org-agenda-search-view-always-boolean'.

+ 1 - 1
lisp/org-exp.el

@@ -935,7 +935,7 @@ value of `org-export-run-in-background'."
 	  (set-process-sentinel p 'org-export-process-sentinel)
 	  (message "Background process \"%s\": started" p))
       ;; background processing not requested, or not possible
-      (if subtree-p (outline-mark-subtree))
+      (if subtree-p (progn (outline-mark-subtree) (activate-mark)))
       (call-interactively (nth 1 ass)))))
 
 (defun org-export-process-sentinel (process status)