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
66793230
Commit
66793230
authored
Aug 31, 2005
by
Juanma Barranquero
Browse files
(mail-yank-prefix): Add defvar.
parent
0ba98490
Changes
1
Hide whitespace changes
Inline
Side-by-side
Showing
1 changed file
with
4 additions
and
2 deletions
+4
-2
lisp/textmodes/ispell.el
lisp/textmodes/ispell.el
+4
-2
No files found.
lisp/textmodes/ispell.el
View file @
66793230
...
...
@@ -201,6 +201,8 @@
;;; Code:
(
defvar
mail-yank-prefix
)
;;; Custom.el macros require recompiling this when they are not present.
;;; Add in backward compatible custom support.
(
eval-when-compile
...
...
@@ -914,7 +916,7 @@ Assumes that value contains no whitespace."
(
insert-file-contents
data-file
)
;; There is zero or one line with special characters declarations.
(
when
(
search-forward-regexp
"^special"
nil
t
)
(
let
((
specials
(
split-string
(
let
((
specials
(
split-string
(
buffer-substring
(
point
)
(
progn
(
end-of-line
)
(
point
))))))
;; The line looks like: special ' -** - -** . -** : -*-
...
...
@@ -951,7 +953,7 @@ Assumes that value contains no whitespace."
(
insert-file-contents
alias-file
)
;; Look for a line "add FOO.multi", extract FOO
(
when
(
search-forward-regexp
"^add \\([^.]+\\)\\.multi"
nil
t
)
(
let*
((
aliasname
(
file-name-sans-extension
(
let*
((
aliasname
(
file-name-sans-extension
(
file-name-nondirectory
alias-file
)))
(
already-exists-p
(
assoc
aliasname
ispell-dictionary-alist
))
(
realname
(
match-string
1
))
...
...
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