Mercurial > hg > xemacs-beta

comparison lisp/custom/widget-edit.el @ 24:4103f0995bd7 r19-15b95

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r19-15b95
author cvs
date Mon, 13 Aug 2007 08:51:03 +0200
parents 8fc7fe29b841
children 441bb1e64a06
comparison
equal deleted inserted replaced
23:0edd3412f124 24:4103f0995bd7
2 ;; 2 ;;
3 ;; Copyright (C) 1996, 1997 Free Software Foundation, Inc. 3 ;; Copyright (C) 1996, 1997 Free Software Foundation, Inc.
4 ;; 4 ;;
5 ;; Author: Per Abrahamsen <abraham@dina.kvl.dk> 5 ;; Author: Per Abrahamsen <abraham@dina.kvl.dk>
6 ;; Keywords: extensions 6 ;; Keywords: extensions
7 ;; Version: 1.40 7 ;; Version: 1.44
8 ;; X-URL: http://www.dina.kvl.dk/~abraham/custom/ 8 ;; X-URL: http://www.dina.kvl.dk/~abraham/custom/
9 9
10 ;;; Commentary: 10 ;;; Commentary:
11 ;; 11 ;;
12 ;; See `widget.el'. 12 ;; See `widget.el'.
45 (error nil)) 45 (error nil))
46 46
47 (unless (and (featurep 'custom) (fboundp 'custom-declare-variable)) 47 (unless (and (featurep 'custom) (fboundp 'custom-declare-variable))
48 ;; We have the old custom-library, hack around it! 48 ;; We have the old custom-library, hack around it!
49 (defmacro defgroup (&rest args) nil) 49 (defmacro defgroup (&rest args) nil)
50 (defmacro defcustom (&rest args) nil) 50 (defmacro defcustom (var value doc &rest args)
51 `(defvar ,var ,value ,doc))
51 (defmacro defface (&rest args) nil) 52 (defmacro defface (&rest args) nil)
52 (define-widget-keywords :prefix :tag :load :link :options :type :group) 53 (define-widget-keywords :prefix :tag :load :link :options :type :group)
53 (when (fboundp 'copy-face) 54 (when (fboundp 'copy-face)
54 (copy-face 'default 'widget-documentation-face) 55 (copy-face 'default 'widget-documentation-face)
55 (copy-face 'bold 'widget-button-face) 56 (copy-face 'bold 'widget-button-face)
56 (copy-face 'italic 'widget-field-face)) 57 (copy-face 'italic 'widget-field-face))))
57 (defvar widget-mouse-face 'highlight)
58 (defvar widget-menu-max-size 40)))
59 58
60 ;;; Compatibility. 59 ;;; Compatibility.
61 60
62 (unless (fboundp 'event-point) 61 (unless (fboundp 'event-point)
63 ;; XEmacs function missing in Emacs. 62 ;; XEmacs function missing in Emacs.
561 (unless widget-keymap 560 (unless widget-keymap
562 (setq widget-keymap (make-sparse-keymap)) 561 (setq widget-keymap (make-sparse-keymap))
563 (define-key widget-keymap "\C-k" 'widget-kill-line) 562 (define-key widget-keymap "\C-k" 'widget-kill-line)
564 (define-key widget-keymap "\t" 'widget-forward) 563 (define-key widget-keymap "\t" 'widget-forward)
565 (define-key widget-keymap "\M-\t" 'widget-backward) 564 (define-key widget-keymap "\M-\t" 'widget-backward)
566 (define-key widget-keymap [(shift tab)] 'widget-backward)
567 (define-key widget-keymap [(shift tab)] 'widget-backward) 565 (define-key widget-keymap [(shift tab)] 'widget-backward)
568 (define-key widget-keymap [backtab] 'widget-backward) 566 (define-key widget-keymap [backtab] 'widget-backward)
569 (if (string-match "XEmacs" (emacs-version)) 567 (if (string-match "XEmacs" (emacs-version))
570 (progn 568 (progn
571 (define-key widget-keymap [button2] 'widget-button-click) 569 (define-key widget-keymap [button2] 'widget-button-click)