HCoop
/
bpt
/
emacs.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
* progmodes/sql.el Version 3.3
[bpt/emacs.git]
/
lisp
/
nxml
/
nxml-maint.el
diff --git
a/lisp/nxml/nxml-maint.el
b/lisp/nxml/nxml-maint.el
index
4962d62
..
3f0d277
100644
(file)
--- a/
lisp/nxml/nxml-maint.el
+++ b/
lisp/nxml/nxml-maint.el
@@
-1,6
+1,6
@@
;;; nxml-maint.el --- commands for maintainers of nxml-*.el
;;; nxml-maint.el --- commands for maintainers of nxml-*.el
-;; Copyright (C) 2003, 2007
, 2008
Free Software Foundation, Inc.
+;; Copyright (C) 2003, 2007
-2013
Free Software Foundation, Inc.
;; Author: James Clark
;; Keywords: XML
;; Author: James Clark
;; Keywords: XML
@@
-74,12
+74,11
@@
(defun nxml-insert-target-repertoire-glyph-set (file var)
(interactive "fTarget file: \nSVariable name: ")
(let (lst head)
(defun nxml-insert-target-repertoire-glyph-set (file var)
(interactive "fTarget file: \nSVariable name: ")
(let (lst head)
- (save-excursion
- (set-buffer (find-file-noselect file))
+ (with-current-buffer (find-file-noselect file)
(goto-char (point-min))
(while (re-search-forward "^ *\\([a-FA-F0-9]\\{2\\}\\)[ \t]+" nil t)
(let ((row (match-string 1))
(goto-char (point-min))
(while (re-search-forward "^ *\\([a-FA-F0-9]\\{2\\}\\)[ \t]+" nil t)
(let ((row (match-string 1))
- (eol (
save-excursion (end-of-line) (point)
)))
+ (eol (
line-end-position
)))
(while (re-search-forward "\\([a-FA-F0-9]\\{2\\}\\)-\\([a-FA-F0-9]\\{2\\}\\)\\|\\([a-FA-F0-9]\\{2\\}\\)" eol t)
(setq lst
(cons (if (match-beginning 3)
(while (re-search-forward "\\([a-FA-F0-9]\\{2\\}\\)-\\([a-FA-F0-9]\\{2\\}\\)\\|\\([a-FA-F0-9]\\{2\\}\\)" eol t)
(setq lst
(cons (if (match-beginning 3)
@@
-103,5
+102,4
@@
(provide 'nxml-maint)
(provide 'nxml-maint)
-;; arch-tag: 2cff6b55-12af-47db-90da-a91f782f435a
;;; nxml-maint.el ends here
;;; nxml-maint.el ends here