mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2024-11-27 07:37:33 +00:00
Code Issues Releases Activity

Avoid breaking non-xwidget Emacs that happen to load xwidget.el.

Browse Source 
* lisp/xwidget.el (window-configuration-change-hook)
(kill-buffer-query-functions): Only modify these hooks if
compiled with xwidget support.
This commit is contained in:
Glenn Morris 2016-01-19 18:06:30 -05:00
parent 22977b5c51
commit b88f4a2c76
1 changed files with 4 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
lisp/xwidget.el
View File

@ -571,7 +571,8 @@ It can be retrieved with `(xwidget-get XWIDGET PROPNAME)'."
;; This would have felt better in C, but this seems to work well in
;; practice though.
(add-hook 'window-configuration-change-hook 'xwidget-delete-zombies)
(if (featurep 'xwidget-internal)
(add-hook 'window-configuration-change-hook 'xwidget-delete-zombies))
(defun xwidget-kill-buffer-query-function ()
"Ask beforek illing a buffer that has xwidgets."
@ -582,7 +583,8 @@ It can be retrieved with `(xwidget-get XWIDGET PROPNAME)'."
(format "Buffer %S has xwidgets; kill it? "
(buffer-name (current-buffer)))))))
(add-hook 'kill-buffer-query-functions 'xwidget-kill-buffer-query-function)
(if (featurep 'xwidget-internal)
(add-hook 'kill-buffer-query-functions 'xwidget-kill-buffer-query-function))
(provide 'xwidget)