3189 |
(prin1 selective-display t) |
(prin1 selective-display t) |
3190 |
(princ "." t)) |
(princ "." t)) |
3191 |
|
|
3192 |
|
(defun toggle-truncate-lines (arg) |
3193 |
|
"Toggle whether to fold or truncate long lines on the screen. |
3194 |
|
With arg, truncate long lines iff arg is positive." |
3195 |
|
(interactive "P") |
3196 |
|
(setq truncate-lines |
3197 |
|
(if (null arg) |
3198 |
|
(not truncate-lines) |
3199 |
|
(> (prefix-numeric-value arg) 0)))) |
3200 |
|
|
3201 |
(defvar overwrite-mode-textual " Ovwrt" |
(defvar overwrite-mode-textual " Ovwrt" |
3202 |
"The string displayed in the mode line when in overwrite mode.") |
"The string displayed in the mode line when in overwrite mode.") |
3203 |
(defvar overwrite-mode-binary " Bin Ovwrt" |
(defvar overwrite-mode-binary " Bin Ovwrt" |