/[emacs]/emacs/lisp/url/url-util.el
ViewVC logotype

Diff of /emacs/lisp/url/url-util.el

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.4 by monnier, Mon Apr 12 04:06:01 2004 UTC revision 1.4.2.1 by miles, Mon Jun 28 07:30:01 2004 UTC
# Line 1  Line 1 
1  ;;; url-util.el --- Miscellaneous helper routines for URL library  ;;; url-util.el --- Miscellaneous helper routines for URL library
2    
3    ;; Copyright (c) 1996,97,98,99,2001,2004  Free Software Foundation, Inc.
4    ;; Copyright (c) 1993 - 1996 by William M. Perry <wmperry@cs.indiana.edu>
5    
6  ;; Author: Bill Perry <wmperry@gnu.org>  ;; Author: Bill Perry <wmperry@gnu.org>
7  ;; Keywords: comm, data, processes  ;; Keywords: comm, data, processes
8    
9  ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;  ;; This file is part of GNU Emacs.
10  ;;; Copyright (c) 1993 - 1996 by William M. Perry <wmperry@cs.indiana.edu>  ;;
11  ;;; Copyright (c) 1996, 97, 98, 99, 2001 Free Software Foundation, Inc.  ;; GNU Emacs is free software; you can redistribute it and/or modify
12  ;;;  ;; it under the terms of the GNU General Public License as published by
13  ;;; This file is part of GNU Emacs.  ;; the Free Software Foundation; either version 2, or (at your option)
14  ;;;  ;; any later version.
15  ;;; GNU Emacs is free software; you can redistribute it and/or modify  ;;
16  ;;; it under the terms of the GNU General Public License as published by  ;; GNU Emacs is distributed in the hope that it will be useful,
17  ;;; the Free Software Foundation; either version 2, or (at your option)  ;; but WITHOUT ANY WARRANTY; without even the implied warranty of
18  ;;; any later version.  ;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
19  ;;;  ;; GNU General Public License for more details.
20  ;;; GNU Emacs is distributed in the hope that it will be useful,  ;;
21  ;;; but WITHOUT ANY WARRANTY; without even the implied warranty of  ;; You should have received a copy of the GNU General Public License
22  ;;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the  ;; along with GNU Emacs; see the file COPYING.  If not, write to the
23  ;;; GNU General Public License for more details.  ;; Free Software Foundation, Inc., 59 Temple Place - Suite 330,
24  ;;;  ;; Boston, MA 02111-1307, USA.
25  ;;; You should have received a copy of the GNU General Public License  
26  ;;; along with GNU Emacs; see the file COPYING.  If not, write to the  ;;; Commentary:
27  ;;; Free Software Foundation, Inc., 59 Temple Place - Suite 330,  
28  ;;; Boston, MA 02111-1307, USA.  ;;; Code:
 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;  
29    
30  (require 'url-parse)  (require 'url-parse)
31  (autoload 'timezone-parse-date "timezone")  (autoload 'timezone-parse-date "timezone")
# Line 63  If a list, it is a list of the types of Line 66  If a list, it is a list of the types of
66    (if (or (eq url-debug t)    (if (or (eq url-debug t)
67            (numberp url-debug)            (numberp url-debug)
68            (and (listp url-debug) (memq tag url-debug)))            (and (listp url-debug) (memq tag url-debug)))
69        (save-excursion        (with-current-buffer (get-buffer-create "*URL-DEBUG*")
         (set-buffer (get-buffer-create "*URL-DEBUG*"))  
70          (goto-char (point-max))          (goto-char (point-max))
71          (insert (symbol-name tag) " -> " (apply 'format args) "\n")          (insert (symbol-name tag) " -> " (apply 'format args) "\n")
72          (if (numberp url-debug)          (if (numberp url-debug)
# Line 173  Strips out default port numbers, etc." Line 175  Strips out default port numbers, etc."
175  ;;;###autoload  ;;;###autoload
176  (defun url-lazy-message (&rest args)  (defun url-lazy-message (&rest args)
177    "Just like `message', but is a no-op if called more than once a second.    "Just like `message', but is a no-op if called more than once a second.
178  Will not do anything if url-show-status is nil."  Will not do anything if `url-show-status' is nil."
179    (if (or (null url-show-status)    (if (or (null url-show-status)
180            (active-minibuffer-window)            (active-minibuffer-window)
181            (= url-lazy-message-time            (= url-lazy-message-time
# Line 502  Has a preference for looking backward wh Line 504  Has a preference for looking backward wh
504    
505  (provide 'url-util)  (provide 'url-util)
506    
507  ;;; arch-tag: 24352abc-5a5a-412e-90cd-313b26bed5c9  ;; arch-tag: 24352abc-5a5a-412e-90cd-313b26bed5c9
508    ;;; url-util.el ends here

Legend:
Removed from v.1.4  
changed lines
  Added in v.1.4.2.1

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26