(face-list): Use `defalias-maybe'.

(line-beginning-position): Likewise.
(line-end-position): Likewise.

diff --git a/poe-xemacs.el b/poe-xemacs.el
index 6fecb42..1700c49 100644 (file)
--- a/poe-xemacs.el
+++ b/poe-xemacs.el
@@ -1,7 +1,7 @@
 ;;; poe-xemacs.el --- poe API implementation for XEmacs
 
 ;; Copyright (C) 1995 Free Software Foundation, Inc.
-;; Copyright (C) 1995,1996,1997 MORIOKA Tomohiko
+;; Copyright (C) 1995,1996,1997,1998 MORIOKA Tomohiko
 
 ;; Author: MORIOKA Tomohiko <morioka@jaist.ac.jp>
 ;; Keywords: emulation, compatibility, XEmacs
@@ -28,8 +28,7 @@
 ;;; @ face
 ;;;
 
-(or (fboundp 'face-list)
-    (defalias 'face-list 'list-faces))
+(defalias-maybe 'face-list 'list-faces)
 
 (or (memq 'underline (face-list))
     (and (fboundp 'make-face)
@@ -88,11 +87,9 @@
 ;;; @ Emacs 20.3 emulation
 ;;;
 
-(or (fboundp 'line-beginning-position)
-    (defalias 'line-beginning-position 'point-at-bol))
+(defalias-maybe 'line-beginning-position 'point-at-bol)
 
-(or (fboundp 'line-end-position)
-    (defalias 'line-end-position 'point-at-eol))
+(defalias-maybe 'line-end-position 'point-at-eol)
 
 
 ;;; @ end