Github/emacs
2
0
Fork 1
mirror of git://git.sv.gnu.org/emacs.git synced 2026-02-16 17:24:23 +00:00
Code Issues Projects Releases Packages Wiki Activity

Remove XEmacs compat code from strokes.el

Browse source 
* lisp/strokes.el (strokes-mode): Remove XEmacs compat code;
select-frame-hook does not exist in Emacs.
This commit is contained in:
Stefan Kangas 2021-12-07 11:39:46 +01:00
parent 9a1e87ba44
commit 3939cb2a9c
1 changed files with 10 additions and 5 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

15
lisp/strokes.el
View file

@ -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)...