Commit d220411e authored by David Kågedal's avatar David Kågedal
Browse files

* edit-text.el (lyskom-edit-mode): Rensade bort allt junk om

 	lyskom-edit-mode-mode-*.
	(lyskom-edit-mode-mode-hook): Tog bort.
	(lyskom-edit-mode-mode-map): Tog bort.
parent 777d6cbd
......@@ -39,9 +39,6 @@
;;;; ================================================================
(defvar lyskom-edit-mode-mode-map nil
"Mode map for the mode LysKOM edites in.")
(defvar lyskom-edit-mode-name "LysKOM edit"
"Name of the mode.")
......@@ -230,8 +227,7 @@ NUMBER is the number of the person. Used if the conf-stat is nil."
(if conf-stat
(lyskom-format 'by conf-stat)
""))
stream)
)
stream))
......@@ -271,16 +267,6 @@ Watch out! None of these functions are allowed to do kill-all-local-variables
because kom-edit-send and other functions depend on some variables to be able
to enter the text in the correct lyskom-process.")
(defvar lyskom-edit-mode-mode-hook nil
"*List of functions to be called when entering lyskom-edit-mode.
Watch out! None of these functions are allowed to do kill-all-local-variables
because kom-edit-send and other functions depend on some variables to be able
to enter the text in the correct lyskom-process.
This one differs from lyskom-edit-mode-hook in that it is called before
the lyskom-special key bindings are added.")
(defun lyskom-edit-mode ()
"\\<lyskom-edit-mode-map>Mode for editing texts for LysKOM.
Commands:
......@@ -294,22 +280,15 @@ Commands:
\\[kom-edit-add-copy] as \\[kom-edit-add-recipient] but adds him as copy-recipient.
\\[kom-edit-insert-commented] inserts the commented of footnoted text.
\\[kom-edit-insert-text] inserts the shown text, you tell the number.
The mode is based on the mode in the lyskom-edit-mode-mode-hook or fundamental.
Entry to this mode runs lyskom-edit-mode-hook."
\\[kom-edit-insert-text] inserts the shown text, you tell the number."
(interactive)
(lyskom-clear-vars)
(setq mode-line-buffer-identification '("LysKOM (server: %b)"))
(text-mode)
(run-hooks 'lyskom-edit-mode-mode-hook)
(setq lyskom-edit-mode-mode-map (and (current-local-map)
(copy-keymap (current-local-map))))
(setq mode-line-buffer-identification '("LysKOM (server: %b)"))
(setq major-mode 'lyskom-edit-mode)
(setq mode-name lyskom-edit-mode-name)
;; (setq buffer-offer-save t)
(use-local-map (append lyskom-edit-mode-map
(cdr lyskom-edit-mode-mode-map)))
(use-local-map lyskom-edit-mode-map)
(auto-save-mode 1)
(auto-fill-mode 1)
(make-local-variable 'paragraph-start)
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment