* nxml/xsd-regexp.el (xsdre-gen-categories):

[bpt/emacs.git] / lisp / nxml / rng-maint.el

diff --git a/lisp/nxml/rng-maint.el b/lisp/nxml/rng-maint.el
index 780e292..24c9034 100644 (file)
--- a/lisp/nxml/rng-maint.el
+++ b/lisp/nxml/rng-maint.el
@@ -46,8 +46,7 @@
                                                       rng-dir)))
        (texi-buf (find-file-noselect (expand-file-name rng-manual-texi
                                                        rng-dir))))
-    (save-excursion
-      (set-buffer texi-buf)
+    (with-current-buffer texi-buf
       (erase-buffer)
       (let ((standard-output texi-buf))
        (princ (format "\\input texinfo @c -*- texinfo -*-\n\
@@ -212,14 +211,12 @@
             ))))
 
 (defun rng-manual-output-force-new-line ()
-  (save-excursion
-    (set-buffer standard-output)
+  (with-current-buffer standard-output
     (unless (eq (char-before) ?\n)
       (insert ?\n))))
 
 (defun rng-manual-output-force-blank-line ()
-  (save-excursion
-    (set-buffer standard-output)
+  (with-current-buffer standard-output
     (if (eq (char-before) ?\n)
        (unless (eq (char-before (1- (point))) ?\n)
          (insert ?\n))