PATCH [packages(edit-utils/power-macros)] fix to make work under SXEmacs
Use of (boundp 'xemacs-logo) form causes problems to SXEmacs (
'xemacs-logo is unbound in SXEmacs) -- (featurep 'xemacs) is safer ..
-----
Index: ChangeLog
===================================================================
RCS file: /pack/xemacscvs/XEmacs/packages/xemacs-packages/edit-utils/ChangeLog,v
retrieving revision 1.214
diff -u -p -r1.214 ChangeLog
--- ChangeLog 2005/11/25 08:15:15 1.214
+++ ChangeLog 2005/11/28 20:29:02
＠＠ -1,3 +1,8 ＠＠
+2005-11-28 Zajcev Evgeny <zevlg(a)yandex.ru>
+
+ * power-macros.el: Use (featurep 'xemacs) instead of (boundp
+ 'xemacs-logo)
+
2005-11-25 Norbert Koch <viteno(a)xemacs.org>
* Makefile (VERSION): XEmacs package 2.31 released.
Index: power-macros.el
===================================================================
RCS file: /pack/xemacscvs/XEmacs/packages/xemacs-packages/edit-utils/power-macros.el,v
retrieving revision 1.1
diff -u -p -r1.1 power-macros.el
--- power-macros.el 2000/10/18 17:54:30 1.1
+++ power-macros.el 2005/11/28 20:29:03
＠＠ -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)))
-----
Thanks!
--
lg