Remove XEmacs compat code from strokes.el

* lisp/strokes.el (strokes-mode): Remove XEmacs compat code;
select-frame-hook does not exist in Emacs.

diff --git a/lisp/strokes.el b/lisp/strokes.el
index 91ddefd37387bba8d2e7288fc7b66cc7d9e1a848..db0eb83a3e66a51ddc792b6e824f4e4fba877d7d 100644 (file)
--- a/lisp/strokes.el
+++ b/lisp/strokes.el
@@ -1395,14 +1395,19 @@ Encode/decode your strokes with \\[strokes-encode-buffer],
              (strokes-load-user-strokes))
         (add-hook 'kill-emacs-query-functions
                   #'strokes-prompt-user-save-strokes)
-        (add-hook 'select-frame-hook
-                  #'strokes-update-window-configuration)
+         ;; FIXME: Should this be something like `focus-in-hook'?
+         ;; That variable is obsolete, but `select-frame-hook' has
+         ;; never existed in Emacs.
+         ;;(add-hook 'select-frame-hook
+         ;;          #'strokes-update-window-configuration)
         (strokes-update-window-configuration))
        (t                              ; turn off strokes
         (if (get-buffer strokes-buffer-name)
-            (kill-buffer (get-buffer strokes-buffer-name)))
-        (remove-hook 'select-frame-hook
-                     #'strokes-update-window-configuration))))
+             (kill-buffer (get-buffer strokes-buffer-name)))
+         ;; FIXME: Same as above.
+         ;;(remove-hook 'select-frame-hook
+         ;;             #'strokes-update-window-configuration)
+         )))
 
 
 ;;;; strokes-xpm stuff (later may be separate)...