;;; url-privacy.el --- Global history tracking for URL package
-;; Copyright (C) 1996-1999, 2004-2012 Free Software Foundation, Inc.
+;; Copyright (C) 1996-1999, 2004-2014 Free Software Foundation, Inc.
;; Keywords: comm, data, processes, hypermedia
;;; Code:
-(eval-when-compile (require 'cl))
(require 'url-vars)
(defun url-device-type (&optional device)
((memq (url-device-type) '(win32 w32)) "Windows; 32bit")
((eq (url-device-type) 'pm) "OS/2; 32bit")
(t
- (case (url-device-type)
- (x "X11")
- (ns "OpenStep")
- (tty "TTY")
- (otherwise nil)))))
+ (pcase (url-device-type)
+ (`x "X11")
+ (`ns "OpenStep")
+ (`tty "TTY")
+ (_ nil)))))
(setq url-personal-mail-address (or url-personal-mail-address
user-mail-address