Commits

Anonymous committed cc2cc1d

Make power-macros work with SXEmacs <8664qcy0ot.fsf@yandex.ru>.

Comments (0)

Files changed (2)

+2005-11-28  Zajcev Evgeny  <zevlg@yandex.ru>
+
+	* power-macros.el: Use (featurep 'xemacs) instead of (boundp
+	'xemacs-logo).
+
 2005-11-25  Norbert Koch  <viteno@xemacs.org>
 
 	* Makefile (VERSION): XEmacs package 2.31 released.
 
 ; Make the compiler shut up under GNU-Emacs:
 (eval-when-compile 
-  (or (boundp 'xemacs-logo) 
+  (or (featurep 'xemacs) 
       (boundp 'event-closest-point)
       (defun event-closest-point (dummy) 'dummy))
-  (or (boundp 'xemacs-logo)
+  (or (featurep 'xemacs)
       (boundp 'events-to-keys)
       (defun events-to-keys(dummy) 'dummy))
 )
       (add-text-properties p2 (point) '(mouse-face highlight))
 
       ;;---------- End of tuple
-      (if (not (boundp 'xemacs-logo))
+      (if (not (featurep 'xemacs))
           (insert "\n"))
 
       (push (list tuple-physical-start tuple-logical-start (point) 
   (define-key pm-normal-edit-map [(control c) (control c)] 
     (lambda () (interactive) (kill-buffer (current-buffer))))
   (define-key pm-normal-edit-map [(return)] 'pm-edit-field-return)
-  (if (boundp 'xemacs-logo)
+  (if (featurep 'xemacs)
       (define-key pm-normal-edit-map [(button1)] 'pm-edit-field-mouse)
     (define-key pm-normal-edit-map [(mouse-1)] 'pm-edit-field-mouse))
   (define-key pm-normal-edit-map [(d)] 'pm-set-delete-mark)
 (defun pm-edit-field-mouse (event)
   "See the description for `pm-edit-field'."
   (interactive "e")
-  (if (boundp 'xemacs-logo)
+  (if (featurep 'xemacs)
       (goto-char (event-closest-point event)))
   (pm-edit-field t))
 
     (define-key keym [(control g)] 
       (lambda () (interactive) 
         (pm-end-edit-or-abort-desc-field 'abort)))
-    (if (boundp 'xemacs-logo)
+    (if (featurep 'xemacs)
         (add-text-properties start end `(keymap ,keym))
       (add-text-properties start end `(local-map ,keym))))
 
 (defun pm-read-key-sequence (question)
   "Reads a key sequence."
   (let ((key (read-key-sequence question nil t)))
-    (if (boundp 'xemacs-logo)
+    (if (featurep 'xemacs)
         (events-to-keys key)
       key)))