[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
master 3939cb2: Remove XEmacs compat code from strokes.el
From: |
Stefan Kangas |
Subject: |
master 3939cb2: Remove XEmacs compat code from strokes.el |
Date: |
Tue, 7 Dec 2021 05:40:18 -0500 (EST) |
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)...
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- master 3939cb2: Remove XEmacs compat code from strokes.el,
Stefan Kangas <=