Re: Customize: Space char in `character' specification

[martin rudalics <rudalics@gmx.at>]

[-- Attachment #1: Type: text/plain, Size: 32 bytes --]

Try the attached patch.

martin

[-- Attachment #2: wid-edit.patch --]
[-- Type: text/plain, Size: 1196 bytes --]

*** wid-edit.el	Tue Apr 11 16:23:54 2006
--- wid-edit.el	Sun May 21 12:18:38 2006
***************
*** 3380,3385 ****
--- 3380,3386 ----
    :value 0
    :size 1
    :format "%{%t%}: %v\n"
+   :value-get 'widget-character-value-get
    :valid-regexp "\\`.\\'"
    :error "This field should contain a single character"
    :value-to-internal (lambda (widget value)
***************
*** 3393,3398 ****
--- 3394,3395 ----
    :match (lambda (widget value)
  	   (char-valid-p value)))

+ (defun widget-character-value-get (widget)
+   "Return character value."
+   (let ((from (widget-field-start widget))
+ 	(to (widget-field-end widget))
+ 	(buffer (widget-field-buffer widget))
+ 	(secret (widget-get widget :secret))
+ 	(old (current-buffer)))
+     (if (and from to)
+ 	(progn
+ 	  (set-buffer buffer)
+ 	  (let ((result (buffer-substring-no-properties from to)))
+ 	    (when secret
+ 	      (let ((index 0))
+ 		(while (< (+ from index) to)
+ 		  (aset result index
+ 			(get-char-property (+ from index) 'secret))
+ 		  (setq index (1+ index)))))
+ 	    (set-buffer old)
+ 	    result))
+       (widget-get widget :value))))
+ 
  (define-widget 'list 'group
    "A Lisp list."
    :tag "List"

[-- Attachment #3: Type: text/plain, Size: 152 bytes --]

_______________________________________________
help-gnu-emacs mailing list
help-gnu-emacs@gnu.org
http://lists.gnu.org/mailman/listinfo/help-gnu-emacs