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