projects
/
riece
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
* riece.el (riece-command-mode): Set truncate-lines to nil.
[riece]
/
lisp
/
riece.el
diff --git
a/lisp/riece.el
b/lisp/riece.el
index
4622c83
..
33d3030
100644
(file)
--- a/
lisp/riece.el
+++ b/
lisp/riece.el
@@
-368,7
+368,12
@@
For a list of the generic commands type \\[riece-command-generic] ? RET.
(interactive)
(kill-all-local-variables)
(interactive)
(kill-all-local-variables)
+ ;; Make `truncate-partial-width-windows' buffer local and set it to
+ ;; nil. This causes `truncate-lines' to directly control line
+ ;; truncation.
(make-local-variable 'truncate-partial-width-windows)
(make-local-variable 'truncate-partial-width-windows)
+ (setq truncate-partial-width-windows nil)
+
(setq riece-away-indicator "-"
riece-operator-indicator "-"
major-mode 'riece-command-mode
(setq riece-away-indicator "-"
riece-operator-indicator "-"
major-mode 'riece-command-mode
@@
-382,7
+387,7
@@
For a list of the generic commands type \\[riece-command-generic] ? RET.
riece-user-indicator
" "
riece-channel-indicator))
riece-user-indicator
" "
riece-channel-indicator))
- truncate-
partial-width-window
s nil)
+ truncate-
line
s nil)
(riece-simplify-mode-line-format)
(use-local-map riece-command-mode-map)
(riece-simplify-mode-line-format)
(use-local-map riece-command-mode-map)
@@
-404,7
+409,12
@@
Instead, these commands are available:
(kill-all-local-variables)
(make-local-variable 'riece-freeze)
(make-local-variable 'riece-freeze-indicator)
(kill-all-local-variables)
(make-local-variable 'riece-freeze)
(make-local-variable 'riece-freeze-indicator)
+
+ ;; Make `truncate-partial-width-windows' buffer local and set it to
+ ;; nil. This causes `truncate-lines' to directly control line truncation.
(make-local-variable 'truncate-partial-width-windows)
(make-local-variable 'truncate-partial-width-windows)
+ (setq truncate-partial-width-windows nil)
+
(setq riece-freeze riece-default-freeze
riece-away-indicator "-"
riece-operator-indicator "-"
(setq riece-freeze riece-default-freeze
riece-away-indicator "-"
riece-operator-indicator "-"
@@
-418,8
+428,8
@@
Instead, these commands are available:
riece-freeze-indicator
" "
riece-channel-list-indicator " "))
riece-freeze-indicator
" "
riece-channel-list-indicator " "))
- buffer-read-only t
-
truncate-partial-width-windows nil
)
+ truncate-lines nil
+
buffer-read-only t
)
(riece-simplify-mode-line-format)
(use-local-map riece-dialogue-mode-map)
(buffer-disable-undo)
(riece-simplify-mode-line-format)
(use-local-map riece-dialogue-mode-map)
(buffer-disable-undo)
@@
-453,6
+463,12
@@
Instead, these commands are available:
All normal editing commands are turned off."
(kill-all-local-variables)
(buffer-disable-undo)
All normal editing commands are turned off."
(kill-all-local-variables)
(buffer-disable-undo)
+
+ ;; Make `truncate-partial-width-windows' buffer local and set it to
+ ;; nil. This causes `truncate-lines' to directly control line truncation.
+ (make-local-variable 'truncate-partial-width-windows)
+ (setq truncate-partial-width-windows nil)
+
(setq major-mode 'riece-channel-list-mode
mode-name "Channels"
mode-line-buffer-identification
(setq major-mode 'riece-channel-list-mode
mode-name "Channels"
mode-line-buffer-identification
@@
-472,6
+488,12
@@
Instead, these commands are available:
\\{riece-user-list-mode-map}"
(kill-all-local-variables)
(buffer-disable-undo)
\\{riece-user-list-mode-map}"
(kill-all-local-variables)
(buffer-disable-undo)
+
+ ;; Make `truncate-partial-width-windows' buffer local and set it to
+ ;; nil. This causes `truncate-lines' to directly control line truncation.
+ (make-local-variable 'truncate-partial-width-windows)
+ (setq truncate-partial-width-windows nil)
+
(setq major-mode 'riece-user-list-mode
mode-name "Users"
mode-line-buffer-identification
(setq major-mode 'riece-user-list-mode
mode-name "Users"
mode-line-buffer-identification