[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Emacs-diffs] Changes to emacs/lisp/net/quickurl.el
From: |
Juanma Barranquero |
Subject: |
[Emacs-diffs] Changes to emacs/lisp/net/quickurl.el |
Date: |
Tue, 04 Feb 2003 08:17:19 -0500 |
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
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- [Emacs-diffs] Changes to emacs/lisp/net/quickurl.el,
Juanma Barranquero <=