Mercurial > emacs
comparison lisp/url/url-history.el @ 83262:92c8be21e2c3
Merged from miles@gnu.org--gnu-2005 (patch 31-33, 129-141)
Patches applied:
* miles@gnu.org--gnu-2005/emacs--cvs-trunk--0--patch-129
Update from CVS
* miles@gnu.org--gnu-2005/emacs--cvs-trunk--0--patch-130
Update from CVS
* miles@gnu.org--gnu-2005/emacs--cvs-trunk--0--patch-131
Update from CVS
* miles@gnu.org--gnu-2005/emacs--cvs-trunk--0--patch-132
Update from CVS
* miles@gnu.org--gnu-2005/emacs--cvs-trunk--0--patch-133
Merge from gnus--rel--5.10
* miles@gnu.org--gnu-2005/emacs--cvs-trunk--0--patch-134
Update from CVS
* miles@gnu.org--gnu-2005/emacs--cvs-trunk--0--patch-135
Update from CVS
* miles@gnu.org--gnu-2005/emacs--cvs-trunk--0--patch-136
Update from CVS
* miles@gnu.org--gnu-2005/emacs--cvs-trunk--0--patch-137
Update from CVS
* miles@gnu.org--gnu-2005/emacs--cvs-trunk--0--patch-138
Update from CVS
* miles@gnu.org--gnu-2005/emacs--cvs-trunk--0--patch-139
Merge from gnus--rel--5.10
* miles@gnu.org--gnu-2005/emacs--cvs-trunk--0--patch-140
Update from CVS
* miles@gnu.org--gnu-2005/emacs--cvs-trunk--0--patch-141
Update from CVS
* miles@gnu.org--gnu-2005/gnus--rel--5.10--patch-31
Merge from emacs--cvs-trunk--0
* miles@gnu.org--gnu-2005/gnus--rel--5.10--patch-32
Merge from emacs--cvs-trunk--0
* miles@gnu.org--gnu-2005/gnus--rel--5.10--patch-33
Update from CVS
git-archimport-id: lorentey@elte.hu--2004/emacs--multi-tty--0--patch-302
author | Karoly Lorentey <lorentey@elte.hu> |
---|---|
date | Mon, 28 Feb 2005 15:15:44 +0000 |
parents | 47f53c5c9620 a94bedf417a1 |
children | e58cb448e07c |
comparison
equal
deleted
inserted
replaced
83261:7d309d464f83 | 83262:92c8be21e2c3 |
---|---|
162 (kill-buffer (current-buffer)))))) | 162 (kill-buffer (current-buffer)))))) |
163 (setq url-history-changed-since-last-save nil)) | 163 (setq url-history-changed-since-last-save nil)) |
164 | 164 |
165 (defun url-have-visited-url (url) | 165 (defun url-have-visited-url (url) |
166 (url-do-setup) | 166 (url-do-setup) |
167 (gethash url url-history-hash-table nil)) | 167 (and url-history-hash-table |
168 (gethash url url-history-hash-table nil))) | |
168 | 169 |
169 (defun url-completion-function (string predicate function) | 170 (defun url-completion-function (string predicate function) |
170 (url-do-setup) | 171 (url-do-setup) |
171 (cond | 172 (cond |
172 ((eq function nil) | 173 ((eq function nil) |