Mercurial > emacs
comparison lisp/gnus/gnus-eform.el @ 31716:9968f55ad26e
Update to emacs-21-branch of the Gnus CVS repository.
author | Gerd Moellmann <gerd@gnu.org> |
---|---|
date | Tue, 19 Sep 2000 13:37:09 +0000 |
parents | 15fc6acbae7a |
children | 695cf19ef79e d7ddb3e565de |
comparison
equal
deleted
inserted
replaced
31715:7c896543d225 | 31716:9968f55ad26e |
---|---|
1 ;;; gnus-eform.el --- a mode for editing forms for Gnus | 1 ;;; gnus-eform.el --- a mode for editing forms for Gnus |
2 ;; Copyright (C) 1996,97,98 Free Software Foundation, Inc. | 2 ;; Copyright (C) 1996, 1997, 1998, 1999, 2000 |
3 ;; Free Software Foundation, Inc. | |
3 | 4 |
4 ;; Author: Lars Magne Ingebrigtsen <larsi@gnus.org> | 5 ;; Author: Lars Magne Ingebrigtsen <larsi@gnus.org> |
5 ;; Keywords: news | 6 ;; Keywords: news |
6 | 7 |
7 ;; This file is part of GNU Emacs. | 8 ;; This file is part of GNU Emacs. |
51 (defvar gnus-edit-form-buffer "*Gnus edit form*") | 52 (defvar gnus-edit-form-buffer "*Gnus edit form*") |
52 (defvar gnus-edit-form-done-function nil) | 53 (defvar gnus-edit-form-done-function nil) |
53 | 54 |
54 (defvar gnus-edit-form-mode-map nil) | 55 (defvar gnus-edit-form-mode-map nil) |
55 (unless gnus-edit-form-mode-map | 56 (unless gnus-edit-form-mode-map |
56 (setq gnus-edit-form-mode-map (copy-keymap emacs-lisp-mode-map)) | 57 (setq gnus-edit-form-mode-map (make-sparse-keymap)) |
58 (set-keymap-parent gnus-edit-form-mode-map emacs-lisp-mode-map) | |
57 (gnus-define-keys gnus-edit-form-mode-map | 59 (gnus-define-keys gnus-edit-form-mode-map |
58 "\C-c\C-c" gnus-edit-form-done | 60 "\C-c\C-c" gnus-edit-form-done |
59 "\C-c\C-k" gnus-edit-form-exit)) | 61 "\C-c\C-k" gnus-edit-form-exit)) |
60 | 62 |
61 (defun gnus-edit-form-make-menu-bar () | 63 (defun gnus-edit-form-make-menu-bar () |