From: Carsten Dominik <dominik@science.uva.nl>
Date: Fri, 29 Sep 2006 07:27:57 +0000 (+0000)
Subject: (org-file-remote-p): Get regexp from list.
X-Git-Tag: emacs-pretest-22.0.90~306
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=969ef2b7b64a2eabb524b0327e6163c7703f3641;p=emacs.git

(org-file-remote-p): Get regexp from list.
(org-archive-subtree): remove erraneous `]' from character list.
---

diff --git a/lisp/textmodes/org.el b/lisp/textmodes/org.el
index 30ee123388c..c8ecc3df63d 100644
--- a/lisp/textmodes/org.el
+++ b/lisp/textmodes/org.el
@@ -4569,7 +4569,7 @@ this heading. "
 		;; Make the subtree visible
 		(show-subtree)
 		(org-end-of-subtree t)
-		(skip-chars-backward " \t\r\n]")
+		(skip-chars-backward " \t\r\n")
 		(and (looking-at "[ \t\r\n]*")
 		     (replace-match "\n\n")))
 	    ;; No specific heading, just go to end of file.
@@ -9816,7 +9816,7 @@ on the system \"/user@host:\"."
         ((fboundp 'tramp-handle-file-remote-p)
          (tramp-handle-file-remote-p file))
         ((and (boundp 'ange-ftp-name-format)
-              (string-match ange-ftp-name-format file))
+              (string-match (car ange-ftp-name-format) file))
          t)
         (t nil)))