[Emacs-diffs] Changes to emacs/lisp/net/quickurl.el

[Juanma Barranquero]

Index: emacs/lisp/net/quickurl.el
diff -c emacs/lisp/net/quickurl.el:1.5 emacs/lisp/net/quickurl.el:1.6
*** emacs/lisp/net/quickurl.el:1.5      Mon Jul 16 08:22:59 2001
--- emacs/lisp/net/quickurl.el  Tue Feb  4 08:17:16 2003
***************
*** 264,270 ****
    (save-excursion
      (setf (point) (point-min))
      (setq quickurl-urls (funcall quickurl-sort-function (read buffer)))))
!                        
  (defun quickurl-load-urls ()
    "Load the contents of `quickurl-url-file' into `quickurl-urls'."
    (when (file-exists-p quickurl-url-file)
--- 264,270 ----
    (save-excursion
      (setf (point) (point-min))
      (setq quickurl-urls (funcall quickurl-sort-function (read buffer)))))
! 
  (defun quickurl-load-urls ()
    "Load the contents of `quickurl-url-file' into `quickurl-urls'."
    (when (file-exists-p quickurl-url-file)
***************
*** 280,286 ****
        (pp quickurl-urls)
        (princ quickurl-postfix)
        (write-region (point-min) (point-max) quickurl-url-file nil 0))))
!   
  (defun quickurl-find-url (lookup)
    "Return URL associated with key LOOKUP.
  
--- 280,286 ----
        (pp quickurl-urls)
        (princ quickurl-postfix)
        (write-region (point-min) (point-max) quickurl-url-file nil 0))))
! 
  (defun quickurl-find-url (lookup)
    "Return URL associated with key LOOKUP.
  
***************
*** 327,333 ****
    (let ((url (quickurl-find-url lookup)))
      (when url
        (quickurl-insert url))))
!    
  (defun quickurl-grab-url ()
    "Attempt to grab a word/url pair from point in the current buffer.
  
--- 327,333 ----
    (let ((url (quickurl-find-url lookup)))
      (when url
        (quickurl-insert url))))
! 
  (defun quickurl-grab-url ()
    "Attempt to grab a word/url pair from point in the current buffer.
  
***************
*** 370,376 ****
                         (read-string "URL: "     (quickurl-url-url word-url))
                         (read-string "Comment: " (quickurl-url-comment 
word-url)))))
    (if (zerop (length word))
!       (error "You must specify a WORD for lookup")  
      (quickurl-load-urls)
      (let* ((current-url (quickurl-find-url word))
             (add-it      (if current-url
--- 370,376 ----
                         (read-string "URL: "     (quickurl-url-url word-url))
                         (read-string "Comment: " (quickurl-url-comment 
word-url)))))
    (if (zerop (length word))
!       (error "You must specify a WORD for lookup")
      (quickurl-load-urls)
      (let* ((current-url (quickurl-find-url word))
             (add-it      (if current-url
***************
*** 546,552 ****
  (quickurl-list-make-inserter with-lookup)
  (quickurl-list-make-inserter with-desc)
  (quickurl-list-make-inserter lookup)
!   
  (provide 'quickurl)
  
  ;;; quickurl.el ends here
--- 546,552 ----
  (quickurl-list-make-inserter with-lookup)
  (quickurl-list-make-inserter with-desc)
  (quickurl-list-make-inserter lookup)
! 
  (provide 'quickurl)
  
  ;;; quickurl.el ends here