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
5d8b68e3
Commit
5d8b68e3
authored
Oct 08, 1996
by
Niels Möller
Browse files
Anpassad till lyskom-get-string.
parent
024586ae
Changes
2
Hide whitespace changes
Inline
Side-by-side
src/commands1.el
View file @
5d8b68e3
...
...
@@ -621,7 +621,7 @@ If optional arg TEXT-NO is present write a comment to that text instead."
(
signal
'lyskom-internal-error
'
(
kom-write-comment
))))))
(
lyskom-start-of-command
(
concat
(
lyskom-get-string
'kom-write-comment
lyskom-
command
s
)
'
command
)
(
if
text-no
(
format
" (%d)"
text-no
)
""
)))
...
...
src/edit-text.el
View file @
5d8b68e3
...
...
@@ -131,9 +131,8 @@ Does lyskom-end-of-command."
(
setq
lyskom-edit-return-to-configuration
config
)
(
lyskom-edit-insert-miscs
misc-list
subject
body
)
(
goto-char
(
point-min
))
(
re-search-forward
(
concat
"\\("
(
regexp-quote
lyskom-header-subject
)
"\\|"
(
regexp-quote
lyskom-swascii-header-subject
)
"\\)"
)
(
re-search-forward
(
regexp-quote
(
lyskom-get-string
'header-subject
))
(
point-max
)
'end
)
(
if
(
not
(
looking-at
"\\s-*$"
))
...
...
@@ -176,13 +175,9 @@ footn-to -> Fotnot till text %d."
where-put-misc
data
)))
(
setq
misc-list
(
cdr
misc-list
))))
(
princ
(
lyskom-format
'text-mass
subject
(
if
kom-emacs-knows-iso-8859-1
lyskom-header-separator
lyskom-swascii-header-separator
)
(
lyskom-get-string
'header-separator
)
body
(
if
kom-emacs-knows-iso-8859-1
lyskom-header-subject
lyskom-swascii-header-subject
))
(
lyskom-get-string
'header-subject
))
where-put-misc
)
(
set-buffer
edit-buffer
)
(
goto-char
where-put-misc
)
...
...
@@ -323,17 +318,11 @@ Entry to this mode runs lyskom-edit-mode-hook."
(
make-local-variable
'paragraph-separate
)
(
setq
paragraph-start
(
concat
"^"
(
regexp-quote
lyskom-header-separator
)
"$\\|^"
(
regexp-quote
lyskom-swascii-header-separator
)
(
lyskom-get-string
'header-separator
))
"$\\|"
paragraph-start
))
(
setq
paragraph-separate
(
concat
"^"
(
regexp-quote
lyskom-header-separator
)
"$\\|^"
(
regexp-quote
lyskom-swascii-header-separator
)
(
lyskom-get-string
'header-separator
))
"$\\|"
paragraph-separate
))
(
run-hooks
'lyskom-edit-mode-hook
))
...
...
@@ -372,9 +361,7 @@ Entry to this mode runs lyskom-edit-mode-hook."
(
if
(
string=
subject
""
)
(
let
((
old
(
point
)))
(
goto-char
(
point-min
))
(
re-search-forward
(
if
kom-emacs-knows-iso-8859-1
lyskom-header-subject
lyskom-swascii-header-subject
)
(
re-search-forward
(
lyskom-get-string
'header-subject
)
nil
t
)
(
end-of-line
)
(
if
(
/=
(
point
)
old
)
...
...
@@ -760,9 +747,7 @@ easy to use the result in a call to `lyskom-create-misc-list'."
; the real subject
(
save-restriction
;; Narrow to headers
(
search-forward
(
if
kom-emacs-knows-iso-8859-1
lyskom-header-separator
lyskom-swascii-header-separator
))
(
search-forward
(
lyskom-get-string
'header-separator
))
(
beginning-of-line
)
(
narrow-to-region
(
point-min
)
(
point
))
(
goto-char
(
point-min
))
...
...
@@ -778,11 +763,7 @@ easy to use the result in a call to `lyskom-create-misc-list'."
(
nconc
result
(
list
'comm-to
n
)))
((
setq
n
(
lyskom-looking-at-header
'footnote-prefix
t
))
(
nconc
result
(
list
'footn-to
n
)))
((
lyskom-looking-at-header
(
if
kom-emacs-knows-iso-8859-1
lyskom-header-subject
(
regexp-quote
lyskom-swascii-header-subject
))
nil
)
((
lyskom-looking-at-header
'header-subject
nil
)
(
setcar
result
(
lyskom-edit-extract-subject
)))
(
t
(
signal
'lyskom-unknown-header
(
list
'unknown-header
(
point
))))))
...
...
@@ -804,15 +785,11 @@ Point must be located on the line where the subject is."
(
goto-char
(
point-min
))
(
if
(
not
(
or
(
re-search-forward
(
regexp-quote
(
if
kom-emacs-knows-iso-8859-1
lyskom-header-separator
lyskom-swascii-header-separator
))
(
lyskom-get-string
'header-separator
))
nil
(
point-max
))
(
re-search-forward
(
regexp-quote
(
if
kom-emacs-knows-iso-8859-1
lyskom-swascii-header-separator
lyskom-header-separator
))
(
lyskom-get-string
'header-separator
))
nil
(
point-max
))))
(
signal
'lyskom-internal-error
"Altered lyskom-header-separator line."
)
...
...
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