;;; nxml-outln.el --- outline support for nXML mode
-;; Copyright (C) 2004, 2007-2011 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.
:group 'nxml
:type 'integer)
-(defface nxml-heading
- '((t (:weight bold)))
- "Face used for the contents of abbreviated heading elements."
+(defface nxml-heading '((t :weight bold))
+ "Face for the contents of abbreviated heading elements."
:group 'nxml-faces)
-(defface nxml-outline-indicator
- '((t (:inherit default)))
- "Face used for `+' or `-' before element names in outlines."
+(defface nxml-outline-indicator '((t))
+ "Face for `+' or `-' before element names in outlines."
:group 'nxml-faces)
(defface nxml-outline-active-indicator
- '((t (:box t :inherit nxml-outline-indicator)))
- "Face used for clickable `+' or `-' before element names in outlines."
+ '((t :box t :inherit nxml-outline-indicator))
+ "Face for clickable `+' or `-' before element names in outlines."
:group 'nxml-faces)
-(defface nxml-outline-ellipsis
- '((t (:bold t :inherit default)))
+(defface nxml-outline-ellipsis '((t :weight bold))
"Face used for `...' in outlines."
:group 'nxml-faces)
(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