;;; rng-loc.el --- locate the schema to use for validation
-;; Copyright (C) 2003, 2007, 2008 Free Software Foundation, Inc.
+;; Copyright (C) 2003, 2007-2015 Free Software Foundation, Inc.
;; Author: James Clark
-;; Keywords: XML, RelaxNG
+;; Keywords: wp, hypermedia, languages, XML, RelaxNG
;; This file is part of GNU Emacs.
"Schema for schema locating files or nil if not yet loaded.")
(defcustom rng-schema-locating-files rng-schema-locating-files-default
- "*List of schema locating files."
+ "List of schema locating files."
:type '(repeat file)
:group 'relax-ng)
"schema location")
file)))))
(t
- (save-excursion
- (set-buffer (find-file-noselect file))
+ (with-current-buffer (find-file-noselect file)
(let ((modified (buffer-modified-p)))
(if (> (buffer-size) 0)
(let (xmltok-dtd)
(provide 'rng-loc)
-;; arch-tag: 725cf968-37a2-418b-b47b-d5209871a9ab
;;; rng-loc.el ends here