[Emacs-diffs] Changes to emacs/lisp/url/url-privacy.el,v

[Dan Nicolaescu]

CVSROOT:        /cvsroot/emacs
Module name:    emacs
Changes by:     Dan Nicolaescu <dann>   07/11/20 00:57:11

Index: url/url-privacy.el
===================================================================
RCS file: /cvsroot/emacs/emacs/lisp/url/url-privacy.el,v
retrieving revision 1.10
retrieving revision 1.11
diff -u -b -r1.10 -r1.11
--- url/url-privacy.el  26 Jul 2007 05:27:37 -0000      1.10
+++ url/url-privacy.el  20 Nov 2007 00:57:08 -0000      1.11
@@ -27,9 +27,10 @@
 (eval-when-compile (require 'cl))
 (require 'url-vars)
 
-(if (fboundp 'device-type)
-    (defalias 'url-device-type 'device-type)
-  (defun url-device-type (&optional device) (or window-system 'tty)))
+(defun url-device-type (&optional device)
+  (if (fboundp 'device-type)
+      (url-device-type device)
+    (or window-system 'tty)))
 
 ;;;###autoload
 (defun url-setup-privacy-info ()