Mercurial > emacs
comparison lisp/cus-edit.el @ 84598:56754c942db2
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 |