summary |
shortlog |
log |
commit | commitdiff |
tree
raw |
patch |
inline | side by side (from parent 1:
5ae6803)
variable.
(ecomplete-save): Use it.
(ecomplete-setup): Use it.
+2006-04-22 Lars Magne Ingebrigtsen <larsi@gnus.org>
+
+ * ecomplete.el (ecomplete-database-file-coding-system): New
+ variable.
+ (ecomplete-save): Use it.
+ (ecomplete-setup): Use it.
+
2006-04-22 Katsumi Yamaoka <yamaoka@jpl.org>
* message.el (message-self-insert-commands): New variable.
2006-04-22 Katsumi Yamaoka <yamaoka@jpl.org>
* message.el (message-self-insert-commands): New variable.
:group 'ecomplete
:type 'file)
:group 'ecomplete
:type 'file)
+(defcustom ecomplete-database-file-coding-system 'iso-2022-7bit
+ "Coding system used for writing the ecomplete database file."
+ :type '(repeat (symbol :tag "Coding system"))
+ :group 'ecomplete)
+
;;; Internal variables.
(defvar ecomplete-database nil)
;;; Internal variables.
(defvar ecomplete-database nil)
(defun ecomplete-setup ()
(when (file-exists-p ecomplete-database-file)
(with-temp-buffer
(defun ecomplete-setup ()
(when (file-exists-p ecomplete-database-file)
(with-temp-buffer
- (insert-file-contents ecomplete-database-file)
- (setq ecomplete-database (read (current-buffer))))))
+ (let ((coding-system-for-read ecomplete-database-file-coding-system))
+ (insert-file-contents ecomplete-database-file)
+ (setq ecomplete-database (read (current-buffer)))))))
(defun ecomplete-add-item (type key text)
(let ((elems (assq type ecomplete-database))
(defun ecomplete-add-item (type key text)
(let ((elems (assq type ecomplete-database))
(defun ecomplete-save ()
(with-temp-buffer
(defun ecomplete-save ()
(with-temp-buffer
- (insert "(")
- (loop for (type . elems) in ecomplete-database
- do
- (insert (format "(%s\n" type))
- (dolist (entry elems)
- (prin1 entry (current-buffer))
- (insert "\n"))
- (insert ")\n"))
- (insert ")")
- (write-region (point-min) (point-max) ecomplete-database-file nil 'silent)))
+ (let ((coding-system-for-write ecomplete-database-file-coding-system))
+ (insert "(")
+ (loop for (type . elems) in ecomplete-database
+ do
+ (insert (format "(%s\n" type))
+ (dolist (entry elems)
+ (prin1 entry (current-buffer))
+ (insert "\n"))
+ (insert ")\n"))
+ (insert ")")
+ (write-region (point-min) (point-max)
+ ecomplete-database-file nil 'silent))))
(defun ecomplete-get-matches (type match)
(let* ((elems (cdr (assq type ecomplete-database)))
(defun ecomplete-get-matches (type match)
(let* ((elems (cdr (assq type ecomplete-database)))