Mercurial > hg > xemacs-beta

comparison lisp/cus-edit.el @ 440:8de8e3f6228a r21-2-28

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r21-2-28
author cvs
date Mon, 13 Aug 2007 11:33:38 +0200
parents 84b14dcb0985
children abe6d1db359e
comparison
equal deleted inserted replaced
439:357dd071b03c 440:8de8e3f6228a
397 "Convert symbol into a menu entry." 397 "Convert symbol into a menu entry."
398 (let ((custom-unlispify-menu-entries custom-unlispify-tag-names)) 398 (let ((custom-unlispify-menu-entries custom-unlispify-tag-names))
399 (custom-unlispify-menu-entry symbol t))) 399 (custom-unlispify-menu-entry symbol t)))
400 400
401 (defun custom-prefix-add (symbol prefixes) 401 (defun custom-prefix-add (symbol prefixes)
402 ;; Addd SYMBOL to list of ignored PREFIXES. 402 ;; Add SYMBOL to list of ignored PREFIXES.
403 (cons (or (get symbol 'custom-prefix) 403 (cons (or (get symbol 'custom-prefix)
404 (concat (symbol-name symbol) "-")) 404 (concat (symbol-name symbol) "-"))
405 prefixes)) 405 prefixes))
406 406
407 407
1245 (" |-" "middle") 1245 (" |-" "middle")
1246 (" `-" "bottom"))) 1246 (" `-" "bottom")))
1247 1247
1248 (defun custom-browse-insert-prefix (prefix) 1248 (defun custom-browse-insert-prefix (prefix)
1249 "Insert PREFIX. On XEmacs convert it to line graphics." 1249 "Insert PREFIX. On XEmacs convert it to line graphics."
1250 ;; ### Unfinished. 1250 ;; #### Unfinished.
1251 (if nil ; (string-match "XEmacs" emacs-version) 1251 (if nil ; (string-match "XEmacs" emacs-version)
1252 (progn 1252 (progn
1253 (insert "*") 1253 (insert "*")
1254 (while (not (string-equal prefix "")) 1254 (while (not (string-equal prefix ""))
1255 (let ((entry (substring prefix 0 3))) 1255 (let ((entry (substring prefix 0 3)))
1983 (let ((magic (widget-create-child-and-convert 1983 (let ((magic (widget-create-child-and-convert
1984 widget 'custom-magic nil))) 1984 widget 'custom-magic nil)))
1985 (widget-put widget :custom-magic magic) 1985 (widget-put widget :custom-magic magic)
1986 (push magic buttons)) 1986 (push magic buttons))
1987 ;; Insert documentation. 1987 ;; Insert documentation.
1988 ;; ### NOTE: this is ugly!!!! I need to do update the :buttons property 1988 ;; #### NOTE: this is ugly!!!! I need to do update the :buttons property
1989 ;; before the call to `widget-default-format-handler'. Otherwise, I 1989 ;; before the call to `widget-default-format-handler'. Otherwise, I
1990 ;; loose my current `buttons'. This function shouldn't be called like 1990 ;; loose my current `buttons'. This function shouldn't be called like
1991 ;; this anyway. The doc string widget should be added like the others. 1991 ;; this anyway. The doc string widget should be added like the others.
1992 ;; --dv 1992 ;; --dv
1993 (widget-put widget :buttons buttons) 1993 (widget-put widget :buttons buttons)
2306 :sibling-args (:help-echo "\ 2306 :sibling-args (:help-echo "\
2307 OS/2 Presentation Manager") 2307 OS/2 Presentation Manager")
2308 pm) 2308 pm)
2309 (const :format "MSWindows " 2309 (const :format "MSWindows "
2310 :sibling-args (:help-echo "\ 2310 :sibling-args (:help-echo "\
2311 Windows NT/95/97") 2311 Microsoft Windows, displays")
2312 mswindows) 2312 mswindows)
2313 (const :format "DOS " 2313 (const :format "MSPrinter "
2314 :sibling-args (:help-echo "\ 2314 :sibling-args (:help-echo "\
2315 Plain MS-DOS") 2315 Microsoft Windows, printers")
2316 pc) 2316 msprinter)
2317 (const :format "TTY%n" 2317 (const :format "TTY%n"
2318 :sibling-args (:help-echo "\ 2318 :sibling-args (:help-echo "\
2319 Plain text terminals") 2319 Plain text terminals")
2320 tty))) 2320 tty)))
2321 (group :sibling-args (:help-echo "\ 2321 (group :sibling-args (:help-echo "\
2322 Only match display or printer devices")
2323 (const :format "Output: "
2324 class)
2325 (checklist :inline t
2326 :offset 0
2327 (const :format "Display "
2328 :sibling-args (:help-echo "\
2329 Match display devices")
2330 display)
2331 (const :format "Printer%n"
2332 :sibling-args (:help-echo "\
2333 Match printer devices")
2334 printer)))
2335 (group :sibling-args (:help-echo "\
2322 Only match the frames with the specified color support") 2336 Only match the frames with the specified color support")
2323 (const :format "Class: " 2337 (const :format "Color support: "
2324 class) 2338 class)
2325 (checklist :inline t 2339 (checklist :inline t
2326 :offset 0 2340 :offset 0
2327 (const :format "Color " 2341 (const :format "Color "
2328 :sibling-args (:help-echo "\ 2342 :sibling-args (:help-echo "\
3277 (when (or (and spec (eq (car spec) 'user) 3291 (when (or (and spec (eq (car spec) 'user)
3278 (eq (second spec) 'set)) comment) 3292 (eq (second spec) 'set)) comment)
3279 (princ "\n '(") 3293 (princ "\n '(")
3280 (prin1 symbol) 3294 (prin1 symbol)
3281 (princ " ") 3295 (princ " ")
3282 ;; This comment stuf is in the way #### 3296 ;; This comment stuff is in the way ####
3283 ;; Is (eq (third spec) (car saved-value)) ???? 3297 ;; Is (eq (third spec) (car saved-value)) ????
3284 ;; (prin1 (third spec)) 3298 ;; (prin1 (third spec))
3285 (prin1 (car (get symbol 'saved-value))) 3299 (prin1 (car (get symbol 'saved-value)))
3286 (when (or now requests comment) 3300 (when (or now requests comment)
3287 (princ (if now " t" " nil"))) 3301 (princ (if now " t" " nil")))