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
a18ff5ac
Commit
a18ff5ac
authored
Sep 03, 2000
by
Ulrik Haugen
Browse files
Fixed a spelling error. lyskom-trim-buffer-hook isn't run for non-kom-buffers.
parent
89ce6264
Changes
4
Hide whitespace changes
Inline
Side-by-side
src/ChangeLog
View file @
a18ff5ac
2000-09-03 Ulrik Haugen <qha@lysator.liu.se>
* buffers.el (kill-buffer-hook): Moved the adding to kill-buffer-hook
here and added a check for the major-moded; this should keep it from
affecting all buffers.
* english-strings.el (lyskom-custom-strings): Fixed a spelling error.
2000-09-02 Ulrik Haugen <qha@lysator.liu.se>
* startup.el (lyskom-mode): kill-buffer-hook runs the
...
...
src/buffers.el
View file @
a18ff5ac
...
...
@@ -182,6 +182,13 @@ the children object"
(
add-hook
'kill-buffer-hook
'lyskom-buffer-hierarchy-kill-hook
)
(
add-hook
'kill-buffer-hook
'
(
lambda
()
(
when
(
eq
major-mode
'lyskom-mode
)
(
let
((
lyskom-trim-buffer-delete-to
(
point-max
)))
(
run-hooks
'lyskom-trim-buffer-hook
))))
nil
t
)
(
add-hook
'kill-buffer-query-functions
'lyskom-buffer-hierarchy-query-kill-function
)
...
...
src/english-strings.el
View file @
a18ff5ac
...
...
@@ -3186,7 +3186,7 @@ be saved in the server. Otherwise it will be saved in your .emacs.")
(kom-trim-buffer-minimum-doc . "
\
If
you
have
limited
the
LysKOM
buffer
size,
this
variable
determines
how
much
large
t
than
the
limit
the
buffer
has
to
be
before
it
is
how
much
large
r
than
the
limit
the
buffer
has
to
be
before
it
is
trimmed
back
to
the
maximum
size.
The
variable
must
be
an
integer
;
the
default
is
4096.
")
...
...
src/startup.el
View file @
a18ff5ac
...
...
@@ -815,11 +815,6 @@ to see, set of call."
(
use-local-map
lyskom-mode-map
)
(
lyskom-set-menus
'lyskom-mode
lyskom-mode-map
)
(
run-hooks
'lyskom-mode-hook
)
(
add-hook
'kill-buffer-hook
'
(
lambda
()
(
let
((
lyskom-trim-buffer-delete-to
(
point-max
)))
(
run-hooks
'lyskom-trim-buffer-hook
)))
nil
t
)
(
buffer-disable-undo
(
current-buffer
))
(
setq
buffer-read-only
t
))
...
...
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