From: ueno <ueno>
Date: Sun, 28 Apr 2002 03:38:12 +0000 (+0000)
Subject: * lsdb.el (lsdb-save-file): Check whether coding-system-name is bound.
X-Git-Tag: lsdb-0_2
X-Git-Url: http://git.chise.org/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=a52b853395988d1c9a4abdc9507f6828b562d0ad;p=elisp%2Flsdb.git

* lsdb.el (lsdb-save-file): Check whether coding-system-name is bound.
(lsdb-mode): Use static-if.
---

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 <shirai@rdmg.mgcs.mei.co.jp>
 (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 ()