HCoop
/
bpt
/
emacs.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
guile feature
[bpt/emacs.git]
/
lisp
/
url
/
url-privacy.el
diff --git
a/lisp/url/url-privacy.el
b/lisp/url/url-privacy.el
index
ff89b12
..
5ab0147
100644
(file)
--- a/
lisp/url/url-privacy.el
+++ b/
lisp/url/url-privacy.el
@@
-1,6
+1,6
@@
;;; url-privacy.el --- Global history tracking for URL package
;;; url-privacy.el --- Global history tracking for URL package
-;; Copyright (C) 1996-1999, 2004-201
1
Free Software Foundation, Inc.
+;; Copyright (C) 1996-1999, 2004-201
4
Free Software Foundation, Inc.
;; Keywords: comm, data, processes, hypermedia
;; Keywords: comm, data, processes, hypermedia
@@
-21,7
+21,6
@@
;;; Code:
;;; Code:
-(eval-when-compile (require 'cl))
(require 'url-vars)
(defun url-device-type (&optional device)
(require 'url-vars)
(defun url-device-type (&optional device)
@@
-46,11
+45,11
@@
((memq (url-device-type) '(win32 w32)) "Windows; 32bit")
((eq (url-device-type) 'pm) "OS/2; 32bit")
(t
((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)))))
+ (
p
case (url-device-type)
+ (
`
x "X11")
+ (
`
ns "OpenStep")
+ (
`
tty "TTY")
+ (
_
nil)))))
(setq url-personal-mail-address (or url-personal-mail-address
user-mail-address
(setq url-personal-mail-address (or url-personal-mail-address
user-mail-address