Mercurial > hg > xemacs-beta

diff lisp/wid-edit.el @ 278:90d73dddcdc4 r21-0b37

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r21-0b37
author cvs
date Mon, 13 Aug 2007 10:31:29 +0200
parents 6330739388db
children 7df0dd720c89
line wrap: on
line diff
--- a/lisp/wid-edit.el	Mon Aug 13 10:30:38 2007 +0200
+++ b/lisp/wid-edit.el	Mon Aug 13 10:31:29 2007 +0200
@@ -427,7 +427,6 @@
 (defun widget-activation-widget-mapper (extent action)
   "Activate or deactivate EXTENT's widget (button or field).
 Suitable for use with `map-extents'."
-  (message "FUCK")
   (ecase action
     (:activate
      (decf (extent-property extent :inactive-count))
@@ -450,7 +449,6 @@
   nil)
 
 (defun widget-activation-glyph-mapper (extent action)
-  (message "FUCK")
   (let ((activate-p (if (eq action :activate) t nil)))
     (if activate-p
 	(decf (extent-property extent :inactive-count))