Mercurial > emacs
comparison lisp/nxml/nxml-maint.el @ 105866:3367f0022cf2
* 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.
| author | Stefan Monnier <monnier@iro.umontreal.ca> |
|---|---|
| date | Thu, 05 Nov 2009 21:01:32 +0000 |
| parents | a9dc0e7c3f2b |
| children | 1d1d5d9bd884 |
comparison
equal
deleted
inserted
replaced
| 105865:131bccfc4f5d | 105866:3367f0022cf2 |
|---|---|
| 72 ;; into a glyph set. | 72 ;; into a glyph set. |
| 73 | 73 |
| 74 (defun nxml-insert-target-repertoire-glyph-set (file var) | 74 (defun nxml-insert-target-repertoire-glyph-set (file var) |
| 75 (interactive "fTarget file: \nSVariable name: ") | 75 (interactive "fTarget file: \nSVariable name: ") |
| 76 (let (lst head) | 76 (let (lst head) |
| 77 (save-excursion | 77 (with-current-buffer (find-file-noselect file) |
| 78 (set-buffer (find-file-noselect file)) | |
| 79 (goto-char (point-min)) | 78 (goto-char (point-min)) |
| 80 (while (re-search-forward "^ *\\([a-FA-F0-9]\\{2\\}\\)[ \t]+" nil t) | 79 (while (re-search-forward "^ *\\([a-FA-F0-9]\\{2\\}\\)[ \t]+" nil t) |
| 81 (let ((row (match-string 1)) | 80 (let ((row (match-string 1)) |
| 82 (eol (save-excursion (end-of-line) (point)))) | 81 (eol (save-excursion (end-of-line) (point)))) |
| 83 (while (re-search-forward "\\([a-FA-F0-9]\\{2\\}\\)-\\([a-FA-F0-9]\\{2\\}\\)\\|\\([a-FA-F0-9]\\{2\\}\\)" eol t) | 82 (while (re-search-forward "\\([a-FA-F0-9]\\{2\\}\\)-\\([a-FA-F0-9]\\{2\\}\\)\\|\\([a-FA-F0-9]\\{2\\}\\)" eol t) |