Commit c6851654 authored by David Byers's avatar David Byers

Hantera lite obsoleta funktioner bättre

parent f5aa5673
2011-01-06 David Byers <davby@ida.liu.se>
Compatibility with Emacs 24:
* compatibility.el (function-obsolete-p): Count functions as
obsolete if they are undefined (for Emacs 24).
(process-kill-without-query): Handle case where
set-process-query-on-exit-flag is undefined.
2012-05-24 Per Cederqvist <cederp@opera.com>
Fixed typo in doc-string.
......
......@@ -2381,8 +2381,9 @@ This command accepts text number prefix arguments \(see
(save-current-buffer (set-buffer buffer)
(if (eq (process-status lyskom-proc) 'open)
(initiate-get-time 'keep nil)
(lyskom-stop-keep-alive)))
(error (lyskom-stop-keep-alive))))
(lyskom-stop-keep-alive)
(message "Terminating keep-alive")))
(error (message "ERROR!") (lyskom-stop-keep-alive))))
(def-kom-command kom-keep-alive ()
"Keep the LysKOM session alive by sending a request every once in a
......
......@@ -677,12 +677,14 @@ Emacsen."
(lyskom-function-alias function-obsolete-p (function)
"Return non-nil if FUNCTION is obsolete"
(get function 'byte-obsolete-info))
(or (not (fboundp function))
(get function 'byte-obsolete-info)))
(eval-and-compile
(if (and (lyskom-function-obsolete-p 'process-kill-without-query)
(fboundp 'set-process-query-on-exit-flag))
(fset 'lyskom-set-process-query-on-exit-flag 'set-process-query-on-exit-flag)
(if (lyskom-function-obsolete-p 'process-kill-without-query)
(if (fboundp 'set-process-query-on-exit-flag)
(fset 'lyskom-set-process-query-on-exit-flag 'set-process-query-on-exit-flag)
(defun (lyskom-set-process-query-on-exit-flag (&rest args))))
(fset 'lyskom-set-process-query-on-exit-flag 'process-kill-without-query)))
(eval-and-compile
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment