Mercurial > emacs

comparison lisp/url/url-history.el @ 83262:92c8be21e2c3

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
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)