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
a166f623
Commit
a166f623
authored
Jan 23, 2003
by
Dave Love
Browse files
(write-abbrev-file): Simplify, and put a coding cookie
in the file.
parent
ceb39a17
Changes
2
Hide whitespace changes
Inline
Side-by-side
Showing
2 changed files
with
10 additions
and
9 deletions
+10
-9
lisp/ChangeLog
lisp/ChangeLog
+5
-0
lisp/abbrev.el
lisp/abbrev.el
+5
-9
No files found.
lisp/ChangeLog
View file @
a166f623
2003-01-23 Dave Love <fx@gnu.org>
* abbrev.el (write-abbrev-file): Simplify, and put a coding cookie
in the file.
2003-01-23 Masatake YAMATO <jet@gyve.org>
* progmodes/asm-mode.el (asm-mode): Added syntax table entries for
...
...
lisp/abbrev.el
View file @
a166f623
...
...
@@ -212,15 +212,11 @@ The argument FILE is the file name to write."
abbrev-file-name
)))
(
or
(
and
file
(
>
(
length
file
)
0
))
(
setq
file
abbrev-file-name
))
(
save-excursion
(
set-buffer
(
get-buffer-create
" write-abbrev-file"
))
(
erase-buffer
)
(
let
((
tables
abbrev-table-name-list
))
(
while
tables
(
insert-abbrev-table-description
(
car
tables
)
nil
)
(
setq
tables
(
cdr
tables
))))
(
write-region
(
point-min
)
(
point-max
)
file
)
(
erase-buffer
)))
(
let
((
coding-system-for-write
'emacs-mule
))
(
with-temp-file
file
(
insert
";;-*-coding: emacs-mule;-*-\n"
)
(
dolist
(
table
abbrev-table-name-list
)
(
insert-abbrev-table-description
table
nil
)))))
(
defun
add-mode-abbrev
(
arg
)
"Define mode-specific abbrev for last word(s) before point.
...
...
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