~mdw
/
profile
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
dot/gnus.el: Truncate and word-wrap.
[profile]
/
el
/
dot-emacs.el
diff --git
a/el/dot-emacs.el
b/el/dot-emacs.el
index
2909fdd
..
497318a
100644
(file)
--- a/
el/dot-emacs.el
+++ b/
el/dot-emacs.el
@@
-647,13
+647,13
@@
This is mainly useful in `auto-fill-mode'.")
(defun mdw-maybe-tabify (s)
"Tabify or untabify the string S, according to `indent-tabs-mode'."
(defun mdw-maybe-tabify (s)
"Tabify or untabify the string S, according to `indent-tabs-mode'."
- (
with-temp-buffer
- (
save-match-data
- (
let ((tabfun (if indent-tabs-mode #'tabify #'untabify)))
+ (
let ((tabfun (if indent-tabs-mode #'tabify #'untabify)))
+ (
with-temp-buffer
+ (
save-match-data
(insert s "\n")
(let ((start (point-min)) (end (point-max)))
(insert s "\n")
(let ((start (point-min)) (end (point-max)))
- (funcall tabfun
start end
)
- (setq s (buffer-substring
start (1- end
))))))))
+ (funcall tabfun
(point-min) (point-max)
)
+ (setq s (buffer-substring
(point-min) (1- (point-max)
))))))))
(defun mdw-examine-fill-prefixes (l)
"Given a list of dynamic fill prefixes, pick one which matches
(defun mdw-examine-fill-prefixes (l)
"Given a list of dynamic fill prefixes, pick one which matches