2008-02-17 Ulrich Mueller <ulm@kph.uni-mainz.de> (tiny change)

	* msdog-xtra.texi (MS-DOS): Docstring fix.

diff --git a/doc/emacs/ChangeLog b/doc/emacs/ChangeLog
index a132359f61bd25285eaa614275dc2e355b0fdf81..1e94afbbbc880187f5839682d6500f0e7c0fa532 100644 (file)
--- a/doc/emacs/ChangeLog
+++ b/doc/emacs/ChangeLog
@@ -1,3 +1,7 @@
+2008-02-17  Ulrich Mueller <ulm@kph.uni-mainz.de>  (tiny change)
+
+       * msdog-xtra.texi (MS-DOS): Docstring fix.
+
 2008-02-09  Eli Zaretskii  <eliz@gnu.org>
 
        * msdog.texi (Windows Fonts): Use a @table for describing font

diff --git a/doc/emacs/msdog-xtra.texi b/doc/emacs/msdog-xtra.texi
index 3dc8e6674157746a86fb9fac4f58dbb1b6736913..e9f62b648474e5a20856d11989f9572fb6da6216 100644 (file)
--- a/doc/emacs/msdog-xtra.texi
+++ b/doc/emacs/msdog-xtra.texi
@@ -13,12 +13,12 @@
 the MS-DOS ``operating system'' (also known as ``MS-DOG'').
 @iftex
 Information about Emacs and Microsoft's current operating system
-Windows (also known as ``Losedows) is in the main Emacs manual
+Windows (also known as ``Losedows'') is in the main Emacs manual
 (@pxref{Microsoft Systems,,, emacs, the Emacs Manual}).
 @end iftex
 @ifnottex
 Information about peculiarities common to MS-DOS and Microsoft's
-current operating systems Windows (also known as ``Losedows) is in
+current operating systems Windows (also known as ``Losedows'') is in
 @ref{Microsoft Windows}.
 @end ifnottex
 

diff --git a/lisp/textmodes/org.el b/lisp/textmodes/org.el
index bc63a962b9c38bf51a6030194084222ce3902d9c..f70264df796f8ded05000a21d7d40fb16318eb7b 100644 (file)
--- a/lisp/textmodes/org.el
+++ b/lisp/textmodes/org.el
@@ -6564,9 +6564,10 @@ If optional TXT is given, check this string instead of the current kill."
   "Narrow buffer to the current subtree."
   (interactive)
   (save-excursion
-    (narrow-to-region
-     (progn (org-back-to-heading) (point))
-     (progn (org-end-of-subtree t t) (point)))))
+    (save-match-data
+      (narrow-to-region
+       (progn (org-back-to-heading) (point))
+       (progn (org-end-of-subtree t t) (point))))))
 
 
 ;;; Outline Sorting