Browse Source

Enhance XEmacs compatibility by avoiding `indent-to' calls.

Carsten Dominik 16 years ago
parent
commit
a99a1814fa
3 changed files with 8 additions and 2 deletions
  1. 6 0
      lisp/ChangeLog
  2. 1 1
      lisp/org-mouse.el
  3. 1 1
      lisp/org.el

+ 6 - 0
lisp/ChangeLog

@@ -1,7 +1,13 @@
 2008-11-21  Carsten Dominik  <carsten.dominik@gmail.com>
 
+	* org-mouse.el (org-mouse-insert-item): Call
+	`org-indent-to-column' instead of `indent-to', for XEmacs
+	compatibility.
+
 	* org.el (org-refile-targets): Fix customize definition so
 	that it works also in XEmacs.
+	(org-fixup-indentation): Call `org-indent-to-column' instead
+	of `indent-to', for XEmacs compatibility.
 
 2008-11-21  Tokuya Kameshima  <kames@fa2.so-net.ne.jp>
 

+ 1 - 1
lisp/org-mouse.el

@@ -584,7 +584,7 @@ SCHEDULED: or DEADLINE: or ANYTHINGLIKETHIS:"
      (beginning-of-line)
      (looking-at "[ \t]*")
      (open-line 1)
-     (indent-to (- (match-end 0) (match-beginning 0)))
+     (org-indent-to-column (- (match-end 0) (match-beginning 0)))
      (insert "+ "))
 
     (:middle			; insert after

+ 1 - 1
lisp/org.el

@@ -4949,7 +4949,7 @@ would end up with no indentation after the change, nothing at all is done."
 	  (goto-char (match-end 0))
 	  (setq col (current-column))
 	  (if (< diff 0) (replace-match ""))
-	  (indent-to (+ diff col))))
+	  (org-indent-to-column (+ diff col))))
       (move-marker end nil))))
 
 (defun org-convert-to-odd-levels ()