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