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
6a65537f
Commit
6a65537f
authored
Aug 16, 1991
by
Linus Tolke
Browse files
lyskom-edit-extract-text omskriven
parent
13b3db25
Changes
2
Hide whitespace changes
Inline
Side-by-side
src/ChangeLog
View file @
6a65537f
No preview for this file type
src/edit-text.el
View file @
6a65537f
...
...
@@ -266,12 +266,12 @@ Entry to this mode runs lyskom-edit-mode-hook."
(
save-excursion
(
setq
misc-list
(
lyskom-edit-read-misc-list
)
subject
(
lyskom-edit-extract-subject
)
message
(
lyskom-edit-extract-text
)))
subject
(
lyskom-edit-extract-subject
)))
(
let
((
minibuffer-local-map
(
overlay-map
(
current-local-map
)
minibuffer-local-map
)))
(
setq
subject
(
read-string
(
lyskom-get-string
'subject
)
subject
)))
(
setq
message
(
lyskom-edit-extract-text
))
(
setq
mode-name
"LysKOM sending"
)
(
save-excursion
(
set-buffer
(
process-buffer
lyskom-proc
))
...
...
@@ -480,12 +480,19 @@ Point must be located on the line where the subject is."
(
defun
lyskom-edit-extract-text
()
"Get text as a string."
(
beginning-of-line
3
)
(
buffer-substring
(
point
)
(
if
(
eq
(
char-after
(
1-
(
point-max
)))
; remove trailing
?\n
)
; linefeed if present
(
1-
(
point-max
))
(
point-max
))))
(
save-excursion
(
goto-char
(
point-min
))
(
if
(
not
(
re-search-forward
(
regexp-quote
lyskom-header-separator
)
nil
(
point-max
)))
(
signal
'lyskom-internal-error
"Altered lyskom-header-separator line."
)
(
buffer-substring
(
1+
(
point
))
(
progn
(
goto-char
(
1-
(
point-max
)))
(
while
(
looking-at
"\\s-"
)
; remove trailing
(
backward-char
1
))
; whitespace
(
forward-char
1
)
(
point
))))))
(
defun
lyskom-create-text-handler
(
text-no
edit-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