Commit f4d6bb6d authored by Niels Möller's avatar Niels Möller
Browse files

Gör substitute-command-keys på header-separator. Tog bort swasciistöd

parent 91544eb5
......@@ -175,7 +175,8 @@ footn-to -> Fotnot till text %d."
where-put-misc data)))
(setq misc-list (cdr misc-list))))
(princ (lyskom-format 'text-mass subject
(lyskom-get-string 'header-separator)
(substitute-command-keys
(lyskom-get-string 'header-separator))
body
(lyskom-get-string 'header-subject))
where-put-misc)
......@@ -318,11 +319,13 @@ Entry to this mode runs lyskom-edit-mode-hook."
(make-local-variable 'paragraph-separate)
(setq paragraph-start (concat "^"
(regexp-quote
(lyskom-get-string 'header-separator))
(substitute-command-keys
(lyskom-get-string 'header-separator)))
"$\\|" paragraph-start))
(setq paragraph-separate (concat "^"
(regexp-quote
(lyskom-get-string 'header-separator))
(substitute-command-keys
(lyskom-get-string 'header-separator)))
"$\\|" paragraph-separate))
(run-hooks 'lyskom-edit-mode-hook))
......@@ -747,7 +750,8 @@ easy to use the result in a call to `lyskom-create-misc-list'."
; the real subject
(save-restriction
;; Narrow to headers
(search-forward (lyskom-get-string 'header-separator))
(search-forward (substitute-command-keys
(lyskom-get-string 'header-separator)))
(beginning-of-line)
(narrow-to-region (point-min) (point))
(goto-char (point-min))
......@@ -784,11 +788,11 @@ Point must be located on the line where the subject is."
(save-excursion
(goto-char (point-min))
(if (not (or (re-search-forward
(regexp-quote
(substitute-command-keys
(lyskom-get-string 'header-separator))
nil (point-max))
(re-search-forward
(regexp-quote
(search-forward
(substitute-command-keys
(lyskom-get-string 'header-separator))
nil (point-max))))
(signal 'lyskom-internal-error
......@@ -871,10 +875,7 @@ the with-output-to-temp-buffer command is issued to make them both apear."
(progn
(set-buffer editing-buffer)
(with-output-to-temp-buffer "*Commented*"
(princ
(if kom-emacs-knows-iso-8859-1
(text->text-mass text)
(iso-8859-1-to-swascii (text->text-mass text))))))))
(princ (text->text-mass text))))))
(defun lyskom-edit-insert-commented (text editing-buffer)
......
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