Hantera lite obsoleta funktioner bättre

src/ChangeLog

+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.

src/commands2.el

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

src/compatibility.el

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