Skip to content
GitLab
Menu
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
6867dbdb
Commit
6867dbdb
authored
Jul 05, 1992
by
Linus Tolke
Browse files
Trailing spaces in who-buffer and in who-list removed.
parent
6792b489
Changes
2
Hide whitespace changes
Inline
Side-by-side
src/ChangeLog
View file @
6867dbdb
Sun Jul 5 05:02:37 1992 Linus Tolke Y (linus@lysator)
* commands1.el (lyskom-return-who-info-line): Now removes all
ending spaces.
* commands1.el (lyskom-write-comment, lyskom-comment-recipients):
Now writing footnotes keep the cc-recipients.
...
...
src/commands1.el
View file @
6867dbdb
...
...
@@ -1655,14 +1655,16 @@ MY-SESSION-NO is the session number of the running session.
(
defun
lyskom-return-who-info-line
(
prefix
string1
string2
)
"Return a formatted line (with reference to the current window width."
(
concat
prefix
(
lyskom-fix-str
(
/
(
*
37
(
-
(
lyskom-window-width
)
7
))
73
)
string1
)
" "
(
lyskom-fix-str
(
/
(
*
36
(
-
(
lyskom-window-width
)
7
))
73
)
string2
)
"\n"
))
(
let
((
line
(
concat
prefix
(
lyskom-fix-str
(
/
(
*
37
(
-
(
lyskom-window-width
)
7
))
73
)
string1
)
" "
(
lyskom-fix-str
(
/
(
*
36
(
-
(
lyskom-window-width
)
7
))
73
)
string2
))))
(
while
(
string=
(
substring
line
-1
)
" "
)
(
setq
line
(
substring
line
0
-2
)))
(
concat
line
"\n"
)))
(
defun
lyskom-window-width
()
...
...
Write
Preview
Supports
Markdown
0%
Try again
or
attach a new file
.
Attach a 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