Mercurial > hg > xemacs-beta

comparison lisp/w3/w3.el @ 134:34a5b81f86ba r20-2b1

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r20-2b1
author cvs
date Mon, 13 Aug 2007 09:30:11 +0200
parents cca96a509cfe
children 6608ceec7cf8
comparison
equal deleted inserted replaced
133:b27e67717092 134:34a5b81f86ba
1 ;;; w3.el --- Main functions for emacs-w3 on all platforms/versions 1 ;;; w3.el --- Main functions for emacs-w3 on all platforms/versions
2 ;; Author: wmperry 2 ;; Author: wmperry
3 ;; Created: 1997/04/07 15:59:56 3 ;; Created: 1997/04/15 23:28:10
4 ;; Version: 1.108 4 ;; Version: 1.111
5 ;; Keywords: faces, help, comm, news, mail, processes, mouse, hypermedia 5 ;; Keywords: faces, help, comm, news, mail, processes, mouse, hypermedia
6 6
7 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; 7 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
8 ;;; Copyright (c) 1993 - 1996 by William M. Perry (wmperry@cs.indiana.edu) 8 ;;; Copyright (c) 1993 - 1996 by William M. Perry (wmperry@cs.indiana.edu)
9 ;;; Copyright (c) 1996, 1997 Free Software Foundation, Inc. 9 ;;; Copyright (c) 1996, 1997 Free Software Foundation, Inc.
1627 (if pos 1627 (if pos
1628 (progn 1628 (progn
1629 (goto-char (cdr pos)) 1629 (goto-char (cdr pos))
1630 (if (and (eolp) (not (eobp))) 1630 (if (and (eolp) (not (eobp)))
1631 (forward-char 1))) 1631 (forward-char 1)))
1632 (error "Link #%s not found." link)))) 1632 (message "Link #%s not found." link))))
1633 1633
1634 (defun w3-force-reload-document () 1634 (defun w3-force-reload-document ()
1635 "Reload the current document. Take it from the network, even if 1635 "Reload the current document. Take it from the network, even if
1636 cached and in local mode." 1636 cached and in local mode."
1637 (let ((url-standalone-mode nil)) 1637 (let ((url-standalone-mode nil))
1638 (w3-reload-document))) 1638 (w3-reload-document)))
1639 1639
2190 link-at-point 2190 link-at-point
2191 (concat 2191 (concat
2192 (substring link-at-point 0 17) "...")) 2192 (substring link-at-point 0 17) "..."))
2193 "): ") 2193 "): ")
2194 "Link: ") links-alist nil t)) 2194 "Link: ") links-alist nil t))
2195 (if (and (string= choice "") link-at-point)
2196 (setq choice link-at-point))
2195 (let ((match (try-completion choice links-alist))) 2197 (let ((match (try-completion choice links-alist)))
2196 (cond 2198 (cond
2197 ((eq t match) ; We have an exact match 2199 ((eq t match) ; We have an exact match
2198 (setq choice (cdr (assoc choice links-alist)))) 2200 (setq choice (cdr (assoc choice links-alist))))
2199 ((stringp match) 2201 ((stringp match)