diff options
Diffstat (limited to 'lisp/nxml/rng-maint.el')
| -rw-r--r-- | lisp/nxml/rng-maint.el | 9 |
1 files changed, 3 insertions, 6 deletions
diff --git a/lisp/nxml/rng-maint.el b/lisp/nxml/rng-maint.el index 780e292c0fd..24c903482a1 100644 --- 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)) |