Mercurial > emacs

comparison lisp/wid-browse.el @ 88155:d7ddb3e565de

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
sync with trunk
author Henrik Enberg <henrik.enberg@telia.com>
date Mon, 16 Jan 2006 00:03:54 +0000
parents e88404e8f2cf
children
comparison
equal deleted inserted replaced
88154:8ce476d3ba36 88155:d7ddb3e565de
1 ;;; wid-browse.el --- functions for browsing widgets 1 ;;; wid-browse.el --- functions for browsing widgets
2 ;; 2 ;;
3 ;; Copyright (C) 1997 Free Software Foundation, Inc. 3 ;; Copyright (C) 1997, 2002, 2003, 2004, 2005 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 7
8 ;; This file is part of GNU Emacs. 8 ;; This file is part of GNU Emacs.
17 ;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the 17 ;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
18 ;; GNU General Public License for more details. 18 ;; GNU General Public License for more details.
19 19
20 ;; You should have received a copy of the GNU General Public License 20 ;; You should have received a copy of the GNU General Public License
21 ;; along with GNU Emacs; see the file COPYING. If not, write to the 21 ;; along with GNU Emacs; see the file COPYING. If not, write to the
22 ;; Free Software Foundation, Inc., 59 Temple Place - Suite 330, 22 ;; Free Software Foundation, Inc., 51 Franklin Street, Fifth Floor,
23 ;; Boston, MA 02111-1307, USA. 23 ;; Boston, MA 02110-1301, USA.
24 24
25 ;;; Commentary: 25 ;;; Commentary:
26 ;; 26 ;;
27 ;; Widget browser. See `widget.el'. 27 ;; Widget browser. See `widget.el'.
28 28
80 (setq major-mode 'widget-browse-mode 80 (setq major-mode 'widget-browse-mode
81 mode-name "Widget") 81 mode-name "Widget")
82 (use-local-map widget-browse-mode-map) 82 (use-local-map widget-browse-mode-map)
83 (easy-menu-add widget-browse-mode-customize-menu) 83 (easy-menu-add widget-browse-mode-customize-menu)
84 (easy-menu-add widget-browse-mode-menu) 84 (easy-menu-add widget-browse-mode-menu)
85 (run-hooks 'widget-browse-mode-hook)) 85 (run-mode-hooks 'widget-browse-mode-hook))
86 86
87 (put 'widget-browse-mode 'mode-class 'special) 87 (put 'widget-browse-mode 'mode-class 'special)
88 88
89 ;;; Commands. 89 ;;; Commands.
90 90
295 295
296 ;;; The End: 296 ;;; The End:
297 297
298 (provide 'wid-browse) 298 (provide 'wid-browse)
299 299
300 ;;; arch-tag: d5ffb18f-8984-4735-8502-edf70456db21
300 ;;; wid-browse.el ends here 301 ;;; wid-browse.el ends here