master 3939cb2: Remove XEmacs compat code from strokes.el

[Stefan Kangas]

branch: master
commit 3939cb2a9ca33269d2d9f6cf1fa35637d9297830
Author: Stefan Kangas <stefan@marxist.se>
Commit: Stefan Kangas <stefan@marxist.se>

    Remove XEmacs compat code from strokes.el
    
    * lisp/strokes.el (strokes-mode): Remove XEmacs compat code;
    select-frame-hook does not exist in Emacs.
---
 lisp/strokes.el | 15 ++++++++++-----
 1 file changed, 10 insertions(+), 5 deletions(-)

diff --git a/lisp/strokes.el b/lisp/strokes.el
index 91ddefd..db0eb83 100644
--- 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)...