From: morioka <morioka>
Date: Sun, 25 Oct 1998 16:40:54 +0000 (+0000)
Subject: (face-list): Use `defalias-maybe'.
X-Git-Tag: apel-9_6~18
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=97fe18011adeb89ded85d67383c8733c7b98f327;p=elisp%2Fapel.git

(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
--- 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