procyberian/emacs
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

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

Browse source 
in the file.
This commit is contained in:
Dave Love 2003-01-23 20:37:49 +00:00
parent ceb39a1798
commit a166f62348
2 changed files with 10 additions and 9 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

5
lisp/ChangeLog
View file

@ -1,3 +1,8 @@
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

14
lisp/abbrev.el
View file

@ -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.