Mercurial > emacs
comparison lisp/wid-edit.el @ 107617:c5f9e4613394
Merge from mainline.
author | Eli Zaretskii <eliz@gnu.org> |
---|---|
date | Sat, 16 Jan 2010 06:57:09 -0500 |
parents | 49daa9e9669f |
children | c97f25cea7c4 424a3703328f |
comparison
equal
deleted
inserted
replaced
107616:fa5ad3eee9f5 | 107617:c5f9e4613394 |
---|---|
1 ;;; wid-edit.el --- Functions for creating and using widgets -*-byte-compile-dynamic: t;-*- | 1 ;;; wid-edit.el --- Functions for creating and using widgets -*-byte-compile-dynamic: t;-*- |
2 ;; | 2 ;; |
3 ;; Copyright (C) 1996, 1997, 1999, 2000, 2001, 2002, 2003, 2004, 2005, | 3 ;; Copyright (C) 1996, 1997, 1999, 2000, 2001, 2002, 2003, 2004, 2005, |
4 ;; 2006, 2007, 2008, 2009 Free Software Foundation, Inc. | 4 ;; 2006, 2007, 2008, 2009, 2010 Free Software Foundation, Inc. |
5 ;; | 5 ;; |
6 ;; Author: Per Abrahamsen <abraham@dina.kvl.dk> | 6 ;; Author: Per Abrahamsen <abraham@dina.kvl.dk> |
7 ;; Maintainer: FSF | 7 ;; Maintainer: FSF |
8 ;; Keywords: extensions | 8 ;; Keywords: extensions |
9 | 9 |
873 ;; The following definition needs to avoid using escape sequences that | 873 ;; The following definition needs to avoid using escape sequences that |
874 ;; might get converted to ^M when building loaddefs.el | 874 ;; might get converted to ^M when building loaddefs.el |
875 (define-key map [(control ?m)] 'widget-button-press) | 875 (define-key map [(control ?m)] 'widget-button-press) |
876 map) | 876 map) |
877 "Keymap containing useful binding for buffers containing widgets. | 877 "Keymap containing useful binding for buffers containing widgets. |
878 Recommended as a parent keymap for modes using widgets.") | 878 Recommended as a parent keymap for modes using widgets. |
879 Note that such modes will need to require wid-edit.") | |
879 | 880 |
880 (defvar widget-global-map global-map | 881 (defvar widget-global-map global-map |
881 "Keymap used for events a widget does not handle itself.") | 882 "Keymap used for events a widget does not handle itself.") |
882 (make-variable-buffer-local 'widget-global-map) | 883 (make-variable-buffer-local 'widget-global-map) |
883 | 884 |