diff options
| author | Stefan Monnier <monnier@iro.umontreal.ca> | 2009-11-05 21:01:32 +0000 |
|---|---|---|
| committer | Stefan Monnier <monnier@iro.umontreal.ca> | 2009-11-05 21:01:32 +0000 |
| commit | 2adaf05797dbf20e645f0357dcf22fe308ae7bbe (patch) | |
| tree | 8886c6e992f0fd1652ac5dc61264f5c37899cd6b /lisp/nxml/rng-maint.el | |
| parent | 81ad75af15f169655ba4c8eada78782367cabbf0 (diff) | |
| download | emacs-2adaf05797dbf20e645f0357dcf22fe308ae7bbe.tar.gz emacs-2adaf05797dbf20e645f0357dcf22fe308ae7bbe.tar.bz2 emacs-2adaf05797dbf20e645f0357dcf22fe308ae7bbe.zip | |
* nxml/xsd-regexp.el (xsdre-gen-categories):
* nxml/xmltok.el (xmltok-parse-entity):
* nxml/rng-parse.el (rng-parse-validate-file):
* nxml/rng-maint.el (rng-format-manual, rng-manual-output-force-new-line):
* nxml/rng-loc.el (rng-save-schema-location-1):
* nxml/rng-cmpct.el (rng-c-parse-file):
* nxml/nxml-maint.el (nxml-insert-target-repertoire-glyph-set):
* nxml/nxml-parse.el (nxml-parse-file): Use with-current-buffer.
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)) |