User: scop Date: 05/12/01 13:00:18 Modified: packages/xemacs-packages/edit-utils ChangeLog power-macros.el Log: Make power-macros work with SXEmacs <8664qcy0ot.fsf(a)yandex.ru&gt;. Revision Changes Path 1.215 +5 -0 XEmacs/packages/xemacs-packages/edit-utils/ChangeLog Index: ChangeLog =================================================================== RCS file: /pack/xemacscvs/XEmacs/packages/xemacs-packages/edit-utils/ChangeLog,v retrieving revision 1.214 retrieving revision 1.215 diff -u -p -r1.214 -r1.215 --- ChangeLog 2005/11/25 08:15:15 1.214 +++ ChangeLog 2005/12/01 12:00:17 1.215 ＠＠ -1,3 +1,8 ＠＠ +2005-11-28 Zajcev Evgeny <zevlg(a)yandex.ru&gt; + + * power-macros.el: Use (featurep 'xemacs) instead of (boundp + 'xemacs-logo). + 2005-11-25 Norbert Koch <viteno(a)xemacs.org&gt; * Makefile (VERSION): XEmacs package 2.31 released. 1.2 +7 -7 XEmacs/packages/xemacs-packages/edit-utils/power-macros.el Index: power-macros.el =================================================================== RCS file: /pack/xemacscvs/XEmacs/packages/xemacs-packages/edit-utils/power-macros.el,v retrieving revision 1.1 retrieving revision 1.2 diff -u -p -r1.1 -r1.2 --- power-macros.el 2000/10/18 17:54:30 1.1 +++ power-macros.el 2005/12/01 12:00:17 1.2 ＠＠ -226,10 +226,10 ＠＠ be accurate) by pressing \\[pm-define]." ; 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)) ) ＠＠ -537,7 +537,7 ＠＠ In this buffer you have the following po (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) ＠＠ -564,7 +564,7 ＠＠ In this buffer you have the following po (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) ＠＠ -653,7 +653,7 ＠＠ type." (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)) ＠＠ -855,7 +855,7 ＠＠ field in the manage buffer." (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)))) ＠＠ -1920,7 +1920,7 ＠＠ The buffer is created if it doesn't exis (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)))