Github/emacs
2
0
Fork 1
mirror of git://git.sv.gnu.org/emacs.git synced 2026-02-18 10:57:34 +00:00
Code Issues Projects Releases Packages Wiki Activity

(rmail-cease-edit): Call kill-all-local-variables.

Browse source 
Call rmail-variables.
(rmail-edit-mode): Call text-mode.  Don't run text-mode-hook here.
(rmail-edit-map): Use set-keymap-parent.
(rmail-old-text): Add defvar.
This commit is contained in:
Karl Heuer 1998-04-08 19:03:00 +00:00
parent 9cda36c036
commit c241bb9cbb
1 changed files with 8 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

10
lisp/mail/rmailedit.el
View file

@ -26,11 +26,14 @@
(require 'rmail)
(defvar rmail-old-text)
(defvar rmail-edit-map nil)
(if rmail-edit-map
nil
;; Make a keymap that inherits text-mode-map.
(setq rmail-edit-map (nconc (make-sparse-keymap) text-mode-map))
(setq rmail-edit-map (make-sparse-keymap))
(set-keymap-parent rmail-edit-map text-mode-map)
(define-key rmail-edit-map "\C-c\C-c" 'rmail-cease-edit)
(define-key rmail-edit-map "\C-c\C-]" 'rmail-abort-edit))
@ -45,6 +48,7 @@ to return to regular RMAIL:
you have made and returns to RMAIL
* rmail-cease-edit makes them permanent.
\\{rmail-edit-map}"
(text-mode)
(use-local-map rmail-edit-map)
(setq major-mode 'rmail-edit-mode)
(setq mode-name "RMAIL Edit")
@ -55,7 +59,7 @@ to return to regular RMAIL:
(save-excursion
(set-buffer rmail-summary-buffer)
(rmail-summary-disable)))
(run-hooks 'text-mode-hook 'rmail-edit-mode-hook))
(run-hooks 'rmail-edit-mode-hook))
;;;###autoload
(defun rmail-edit-current-message ()
@ -89,7 +93,9 @@ to return to regular RMAIL:
(point)))
(let ((old rmail-old-text))
(force-mode-line-update)
(kill-all-local-variables)
(rmail-mode-1)
(rmail-variables)
(if (and (= (length old) (- (point-max) (point-min)))
(string= old (buffer-substring (point-min) (point-max))))
()