From 5f78e057c2481e434d471b8931760577d9558682 Mon Sep 17 00:00:00 2001 From: morioka Date: Wed, 6 May 1998 06:30:51 +0000 Subject: [PATCH] (mime-temp-directory): Use 'defcustom. --- mime-def.el | 25 +++++++++++++++++-------- 1 file changed, 17 insertions(+), 8 deletions(-) diff --git a/mime-def.el b/mime-def.el index 1812efc..779c984 100644 --- a/mime-def.el +++ b/mime-def.el @@ -25,7 +25,11 @@ ;;; Code: (defconst mime-spadework-module-version-string - "FLIM 1.1.1 - \"J-Dþjò\" ")-A + "FLIM 1.1.1 - \"J-Dþjò\"-A ") + + +;;; @ variables +;;; (require 'custom) @@ -37,15 +41,20 @@ (custom-handle-keyword 'default-mime-charset :group 'mime 'custom-variable) -(defvar mime-temp-directory (or (getenv "MIME_TMP_DIR") - (getenv "TM_TMP_DIR") - (getenv "TMPDIR") - (getenv "TMP") - (getenv "TEMP") - "/tmp/") - "*Directory for temporary files.") +(defcustom mime-temp-directory (or (getenv "MIME_TMP_DIR") + (getenv "TM_TMP_DIR") + (getenv "TMPDIR") + (getenv "TMP") + (getenv "TEMP") + "/tmp/") + "*Directory for temporary files." + :group 'mime + :type 'directory) +;;; @ required functions +;;; + (unless (fboundp 'butlast) (defun butlast (x &optional n) "Returns a copy of LIST with the last N elements removed." -- 1.7.10.4