Mercurial > emacs

comparison lisp/cus-edit.el @ 84598:56754c942db2

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Drew Adams <drew.adams at oracle.com> (custom-face-edit-activate): Doc fix.
author Glenn Morris <rgm@gnu.org>
date Sun, 16 Sep 2007 03:04:49 +0000
parents 0433e66465f6
children 8cef7e8125fd 14c4a6aac623
comparison
equal deleted inserted replaced
84597:c394c5c0055a 84598:56754c942db2
3009 (insert tag ": *\n") 3009 (insert tag ": *\n")
3010 (widget-put widget :inactive 3010 (widget-put widget :inactive
3011 (cons value (cons from (- (point) from)))))))) 3011 (cons value (cons from (- (point) from))))))))
3012 3012
3013 (defun custom-face-edit-activate (widget) 3013 (defun custom-face-edit-activate (widget)
3014 "Make face widget WIDGET inactive for user modifications." 3014 "Make face widget WIDGET active for user modifications."
3015 (let ((inactive (widget-get widget :inactive)) 3015 (let ((inactive (widget-get widget :inactive))
3016 (inhibit-read-only t) 3016 (inhibit-read-only t)
3017 (inhibit-modification-hooks t)) 3017 (inhibit-modification-hooks t))
3018 (when (consp inactive) 3018 (when (consp inactive)
3019 (save-excursion 3019 (save-excursion