From a52b853395988d1c9a4abdc9507f6828b562d0ad Mon Sep 17 00:00:00 2001 From: ueno Date: Sun, 28 Apr 2002 03:38:12 +0000 Subject: [PATCH] * lsdb.el (lsdb-save-file): Check whether coding-system-name is bound. (lsdb-mode): Use static-if. --- lsdb.el | 23 +++++++++++++++-------- 1 file changed, 15 insertions(+), 8 deletions(-) diff --git a/lsdb.el b/lsdb.el index 90b3761..3158c5f 100644 --- a/lsdb.el +++ b/lsdb.el @@ -328,12 +328,15 @@ This is the current number of slots in HASH-TABLE, whether occupied or not." (if (and (or (featurep 'mule) (featurep 'file-coding)) lsdb-file-coding-system) - (insert ";;; -*- coding: " - (if (symbolp lsdb-file-coding-system) - (symbol-name lsdb-file-coding-system) - ;; XEmacs - (symbol-name (coding-system-name lsdb-file-coding-system))) - " -*-\n")) + (let ((coding-system-name + (if (symbolp lsdb-file-coding-system) + (symbol-name lsdb-file-coding-system) + ;; XEmacs + (static-if (featurep 'xemacs) + (symbol-name (coding-system-name + lsdb-file-coding-system)))))) + (if coding-system-name + (insert ";;; -*- coding: " coding-system-name " -*-\n")))) (insert "#s(hash-table size " (number-to-string (lsdb-hash-table-size hash-table)) " test equal data (") @@ -686,7 +689,7 @@ Modify whole identification by side effect." (define-derived-mode lsdb-mode fundamental-mode "LSDB" "Major mode for browsing LSDB records." (setq buffer-read-only t) - (if (featurep 'xemacs) + (static-if (featurep 'xemacs) ;; In XEmacs, setting `font-lock-defaults' only affects on ;; `find-file-hooks'. (font-lock-set-defaults) @@ -1059,7 +1062,11 @@ of the buffer." ;;;_. Interface to Mew written by Hideyuki SHIRAI (eval-when-compile - (ignore-errors (require 'mew))) + (autoload 'mew-sinfo-get-disp-msg "mew") + (autoload 'mew-current-get-fld "mew") + (autoload 'mew-current-get-msg "mew") + (autoload 'mew-frame-id "mew") + (autoload 'mew-cache-hit "mew")) ;;;###autoload (defun lsdb-mew-insinuate () -- 1.7.10.4