Function: nxml-char-ref-display-extra

nxml-char-ref-display-extra is a byte-compiled function defined in nxml-mode.el.gz.

Signature

(nxml-char-ref-display-extra START END N)

Source Code

;; Defined in /usr/src/emacs/lisp/nxml/nxml-mode.el.gz
(defun nxml-char-ref-display-extra (start end n)
  (when (and ;; Displaying literal newline is unhelpful.
         (not (eql n ?\n))
         nxml-char-ref-extra-display)
    (let ((name (or (get-char-code-property n 'name)
                    (get-char-code-property n 'old-name)))
	  (glyph-string (and nxml-char-ref-display-glyph-flag
                             (char-displayable-p n)
                             (string n)))
	  ov)
    (when (or name glyph-string)
      (setq ov (make-overlay start end nil t))
      (overlay-put ov 'category 'nxml-char-ref)
      (when name
	(overlay-put ov 'help-echo name))
      (when glyph-string
	(overlay-put ov
		     'after-string
		     (propertize glyph-string 'face 'nxml-glyph)))))))