Blame rpm-spec-mode.el-0.14-xemacs-compat.patch

cvsdist d31aa3
diff -u rpm-spec-mode.el~ rpm-spec-mode.el
cvsdist d31aa3
--- rpm-spec-mode.el~	2002-12-02 12:00:38.000000000 +0900
cvsdist d31aa3
+++ rpm-spec-mode.el	2002-12-02 12:00:38.000000000 +0900
cvsdist d31aa3
@@ -105,6 +105,10 @@
cvsdist d31aa3
   :type 'string
cvsdist d31aa3
   :group 'rpm-spec)
cvsdist d31aa3
 
cvsdist d31aa3
+;; XEmacs compatibility function
cvsdist d31aa3
+(unless (fboundp 'define-obsolete-variable-alias)
cvsdist d31aa3
+  (defalias 'define-obsolete-variable-alias 'make-obsolete-variable))
cvsdist d31aa3
+
cvsdist d31aa3
 (define-obsolete-variable-alias
cvsdist d31aa3
   'rpm-completion-ignore-case 'rpm-spec-completion-ignore-case)
cvsdist d31aa3
 
cvsdist d31aa3
@@ -597,6 +601,14 @@
cvsdist d31aa3
 
cvsdist d31aa3
 ;;------------------------------------------------------------
cvsdist d31aa3
 
cvsdist d31aa3
+;; XEmacs compatibility function
cvsdist d31aa3
+(unless (fboundp 'user-mail-address)
cvsdist d31aa3
+  (defun user-mail-address ()
cvsdist d31aa3
+    "Return value of `user-mail-address'.
cvsdist d31aa3
+
cvsdist d31aa3
+XEmacs sendmail compatibility function."
cvsdist d31aa3
+    user-mail-address))
cvsdist d31aa3
+
cvsdist d31aa3
 (defun rpm-add-change-log-entry (&optional change-log-entry)
cvsdist d31aa3
   "Find change log and add an entry for today."
cvsdist d31aa3
   (interactive "sChange log entry: ")
cvsdist d31aa3
@@ -1117,6 +1129,13 @@
cvsdist d31aa3
 
cvsdist d31aa3
 ;;------------------------------------------------------------
cvsdist d31aa3
 
cvsdist d31aa3
+;; XEmacs compatibility function
cvsdist d31aa3
+(unless (fboundp 'ignore-errors)
cvsdist d31aa3
+      (defmacro ignore-errors (&rest body)
cvsdist d31aa3
+	"Execute FORMS; if an error occurs, return nil.
cvsdist d31aa3
+Otherwise, return result of last FORM."
cvsdist d31aa3
+	`(condition-case nil (progn ,@body) (error nil))))
cvsdist d31aa3
+
cvsdist d31aa3
 (defun rpm-spec-field-value (field max)
cvsdist d31aa3
   "Get the value of FIELD, searching up to buffer position MAX.
cvsdist d31aa3
 See `search-forward-regexp'."