Function: semantic-set-tag-read-only

semantic-set-tag-read-only is a byte-compiled function defined in decorate.el.gz.

Signature

(semantic-set-tag-read-only TAG &optional WRITABLE)

Documentation

Enable the text in TAG to be made read-only.

Optional argument WRITABLE should be non-nil to make the text writable instead of read-only.

Source Code

;; Defined in /usr/src/emacs/lisp/cedet/semantic/decorate.el.gz
(defun semantic-set-tag-read-only (tag &optional writable)
  "Enable the text in TAG to be made read-only.
Optional argument WRITABLE should be non-nil to make the text writable
instead of read-only."
  (let ((o (semantic-tag-overlay tag))
	(hook (if writable nil '(overlay-signal-read-only))))
    (overlay-put o 'modification-hooks hook)
    (overlay-put o 'insert-in-front-hooks hook)
    (overlay-put o 'insert-behind-hooks hook)))