- ;; GNU Emacs
- (or (fboundp 'line-beginning-position)
- (defun line-beginning-position (&optional n)
- (save-excursion
- (and n (/= n 1) (forward-line (1- n)))
- (beginning-of-line)
- (point))))
-
-
- ;; to avoid compilation gripes
-
- ;; XEmacs
- (defalias 'ps-x-color-instance-p 'color-instance-p)
- (defalias 'ps-x-color-instance-rgb-components 'color-instance-rgb-components)
- (defalias 'ps-x-color-name 'color-name)
- (defalias 'ps-x-color-specifier-p 'color-specifier-p)
- (defalias 'ps-x-copy-coding-system 'copy-coding-system)
- (defalias 'ps-x-device-class 'device-class)
- (defalias 'ps-x-extent-end-position 'extent-end-position)
- (defalias 'ps-x-extent-face 'extent-face)
- (defalias 'ps-x-extent-priority 'extent-priority)
- (defalias 'ps-x-extent-start-position 'extent-start-position)
- (defalias 'ps-x-face-font-instance 'face-font-instance)
- (defalias 'ps-x-find-coding-system 'find-coding-system)
- (defalias 'ps-x-font-instance-properties 'font-instance-properties)
- (defalias 'ps-x-make-color-instance 'make-color-instance)
- (defalias 'ps-x-map-extents 'map-extents)
-
- ;; GNU Emacs
- (defalias 'ps-e-face-bold-p 'face-bold-p)
- (defalias 'ps-e-face-italic-p 'face-italic-p)
- (defalias 'ps-e-next-overlay-change 'next-overlay-change)
- (defalias 'ps-e-overlays-at 'overlays-at)
- (defalias 'ps-e-overlay-get 'overlay-get)
- (defalias 'ps-e-x-color-values 'x-color-values)
- (defalias 'ps-e-color-values 'color-values)
- (if (fboundp 'find-composition)
- (defalias 'ps-e-find-composition 'find-composition)
- (defalias 'ps-e-find-composition 'ignore))
-
-
- (defconst ps-windows-system
- (memq system-type '(emx win32 w32 mswindows ms-dos windows-nt)))
- (defconst ps-lp-system
- (memq system-type '(usq-unix-v dgux hpux irix))))
+
+;; GNU Emacs
+(or (fboundp 'line-beginning-position)
+ (defun line-beginning-position (&optional n)
+ (save-excursion
+ (and n (/= n 1) (forward-line (1- n)))
+ (beginning-of-line)
+ (point))))
+
+
+;; to avoid compilation gripes
+
+;; XEmacs
+(defalias 'ps-x-color-instance-p 'color-instance-p)
+(defalias 'ps-x-color-instance-rgb-components 'color-instance-rgb-components)
+(defalias 'ps-x-color-name 'color-name)
+(defalias 'ps-x-color-specifier-p 'color-specifier-p)
+(defalias 'ps-x-copy-coding-system 'copy-coding-system)
+(defalias 'ps-x-device-class 'device-class)
+(defalias 'ps-x-extent-end-position 'extent-end-position)
+(defalias 'ps-x-extent-face 'extent-face)
+(defalias 'ps-x-extent-priority 'extent-priority)
+(defalias 'ps-x-extent-start-position 'extent-start-position)
+(defalias 'ps-x-face-font-instance 'face-font-instance)
+(defalias 'ps-x-find-coding-system 'find-coding-system)
+(defalias 'ps-x-font-instance-properties 'font-instance-properties)
+(defalias 'ps-x-make-color-instance 'make-color-instance)
+(defalias 'ps-x-map-extents 'map-extents)
+
+;; GNU Emacs
+(defalias 'ps-e-face-bold-p 'face-bold-p)
+(defalias 'ps-e-face-italic-p 'face-italic-p)
+(defalias 'ps-e-next-overlay-change 'next-overlay-change)
+(defalias 'ps-e-overlays-at 'overlays-at)
+(defalias 'ps-e-overlay-get 'overlay-get)
+(defalias 'ps-e-overlay-end 'overlay-end)
+(defalias 'ps-e-x-color-values 'x-color-values)
+(defalias 'ps-e-color-values 'color-values)
+(if (fboundp 'find-composition)
+ (defalias 'ps-e-find-composition 'find-composition)
+ (defalias 'ps-e-find-composition 'ignore))
+
+
+(defconst ps-windows-system
+ (memq system-type '(emx win32 w32 mswindows ms-dos windows-nt)))
+(defconst ps-lp-system
+ (memq system-type '(usg-unix-v dgux hpux irix)))
+
+
+(defun ps-xemacs-color-name (color)
+ (if (ps-x-color-specifier-p color)
+ (ps-x-color-name color)
+ color))
+
+
+(cond ((featurep 'xemacs) ; xemacs
+ (defalias 'ps-mark-active-p 'region-active-p)
+ (defun ps-face-foreground-name (face)
+ (ps-xemacs-color-name (face-foreground face)))
+ (defun ps-face-background-name (face)
+ (ps-xemacs-color-name (face-background face)))
+ )
+ (t ; emacs
+ (defvar mark-active nil)
+ (defun ps-mark-active-p ()
+ mark-active)
+ (defun ps-face-foreground-name (face)
+ (face-foreground face nil t))
+ (defun ps-face-background-name (face)
+ (face-background face nil t))))