Skip to content
GitLab
Projects
Groups
Snippets
/
Help
Help
Support
Community forum
Keyboard shortcuts
?
Submit feedback
Contribute to GitLab
Sign in / Register
Toggle navigation
Menu
Open sidebar
lyskom-elisp-client
lyskom-elisp-client
Commits
f4d6bb6d
Commit
f4d6bb6d
authored
Oct 11, 1996
by
Niels Möller
Browse files
Gör substitute-command-keys på header-separator. Tog bort swasciistöd
parent
91544eb5
Changes
1
Hide whitespace changes
Inline
Side-by-side
src/edit-text.el
View file @
f4d6bb6d
...
...
@@ -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
)
...
...
Write
Preview
Supports
Markdown
0%
Try again
or
attach a new file
.
Cancel
You are about to add
0
people
to the discussion. Proceed with caution.
Finish editing this message first!
Cancel
Please
register
or
sign in
to comment