;;; nxml-outln.el --- outline support for nXML mode
-;; Copyright (C) 2004, 2007-2012 Free Software Foundation, Inc.
+;; Copyright (C) 2004, 2007-2015 Free Software Foundation, Inc.
;; Author: James Clark
-;; Keywords: XML
+;; Keywords: wp, hypermedia, languages, XML
;; This file is part of GNU Emacs.
(defun nxml-show-all ()
"Show all elements in the buffer normally."
(interactive)
- (nxml-with-unmodifying-text-property-changes
+ (with-silent-modifications
(remove-text-properties (point-min)
(point-max)
'(nxml-outline-state nil)))
(get-text-property pos 'nxml-outline-state))
(defun nxml-set-outline-state (pos state)
- (nxml-with-unmodifying-text-property-changes
+ (with-silent-modifications
(if state
(put-text-property pos (1+ pos) 'nxml-outline-state state)
(remove-text-properties pos (1+ pos) '(nxml-outline-state nil)))))
(defun nxml-outline-error (&rest args)
(signal 'nxml-outline-error args))
-(put 'nxml-outline-error
- 'error-conditions
- '(error nxml-error nxml-outline-error))
-
-(put 'nxml-outline-error
- 'error-message
- "Cannot create outline of buffer that is not well-formed")
+(define-error 'nxml-outline-error
+ "Cannot create outline of buffer that is not well-formed" 'nxml-error)
;;; Debugging