diff options
Diffstat (limited to 'lisp/strokes.el')
| -rw-r--r-- | lisp/strokes.el | 19 |
1 files changed, 12 insertions, 7 deletions
diff --git a/lisp/strokes.el b/lisp/strokes.el index 32f657d1149..5402ebf1e1c 100644 --- a/lisp/strokes.el +++ b/lisp/strokes.el @@ -1036,8 +1036,8 @@ o Strokes are a bit computer-dependent in that they depend somewhat on (defun strokes-window-configuration-changed-p () "Non-nil if the `strokes-window-configuration' frame properties changed. This is based on the last time `strokes-window-configuration' was updated." - (compare-window-configurations (current-window-configuration) - strokes-window-configuration)) + (window-configuration-equal-p (current-window-configuration) + strokes-window-configuration)) (defun strokes-update-window-configuration () "Ensure that `strokes-window-configuration' is up-to-date." @@ -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)... |