Commit a166f623 authored by Dave Love's avatar Dave Love
Browse files

(write-abbrev-file): Simplify, and put a coding cookie

in the file.
parent ceb39a17
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
......
......@@ -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.
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment