Skip to content
GitLab
Projects
Groups
Snippets
Help
Loading...
Help
Help
Support
Community forum
Keyboard shortcuts
?
Submit feedback
Contribute to GitLab
Sign in / Register
Toggle navigation
Open sidebar
emacs
emacs
Commits
84347194
Commit
84347194
authored
Mar 12, 2000
by
Dave Love
Browse files
(text-mode-hook): Add flyspell-mode to
:options.
parent
bdec99ee
Changes
1
Hide whitespace changes
Inline
Side-by-side
Showing
1 changed file
with
2 additions
and
2 deletions
+2
-2
lisp/textmodes/text-mode.el
lisp/textmodes/text-mode.el
+2
-2
No files found.
lisp/textmodes/text-mode.el
View file @
84347194
...
@@ -31,7 +31,7 @@
...
@@ -31,7 +31,7 @@
(
defcustom
text-mode-hook
nil
(
defcustom
text-mode-hook
nil
"Normal hook run when entering Text mode and many related modes."
"Normal hook run when entering Text mode and many related modes."
:type
'hook
:type
'hook
:options
'
(
turn-on-auto-fill
)
:options
'
(
turn-on-auto-fill
flyspell-mode
)
:group
'data
)
:group
'data
)
(
defvar
text-mode-variant
nil
(
defvar
text-mode-variant
nil
...
@@ -192,7 +192,7 @@ The argument NLINES says how many lines to center."
...
@@ -192,7 +192,7 @@ The argument NLINES says how many lines to center."
(
delete-horizontal-space
)
(
delete-horizontal-space
)
(
setq
line-length
(
current-column
))
(
setq
line-length
(
current-column
))
(
if
(
>
(
-
fill-column
lm
line-length
)
0
)
(
if
(
>
(
-
fill-column
lm
line-length
)
0
)
(
indent-line-to
(
indent-line-to
(
+
lm
(
/
(
-
fill-column
lm
line-length
)
2
))))))
(
+
lm
(
/
(
-
fill-column
lm
line-length
)
2
))))))
(
cond
((
null
nlines
)
(
cond
((
null
nlines
)
(
setq
nlines
0
))
(
setq
nlines
0
))
...
...
Write
Preview
Markdown
is supported
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