comparison lisp/wid-edit.el @ 90237:aa89c814f853

Revision: [e-mail]--gnu-2005/emacs--unicode--0--patch-88 Merge from emacs--cvs-trunk--0 Patches applied: * emacs--cvs-trunk--0 (patch 569-579) - Update from CVS - Merge from gnus--rel--5.10 * gnus--rel--5.10 (patch 129-132) - Update from CVS - Merge from emacs--cvs-trunk--0

90236:7871ecd1281b

;;; Commentary:
;;
;; See `widget.el'.

;;; Code:

;;; Compatibility.

(defun widget-event-point (event)
  "Character position of the end of event if that exists, or nil."

(defun widget-file-complete ()
  "Perform completion on file name preceding point."
  (interactive)
  (let* ((end (point))
	 (beg (save-excursion
		(skip-chars-backward "^ ")
		(point)))
	 (pattern (buffer-substring beg end))
	 (name-part (file-name-nondirectory pattern))
	 (directory (file-name-directory pattern))
	 (completion (file-name-completion name-part directory)))
    (cond ((eq completion t))
	  ((null completion)
	   (message "Can't find completion for \"%s\"" pattern)
	   (ding))

90237:aa89c814f853

;;; Commentary:
;;
;; See `widget.el'.

;;; Code:

(defvar widget)

;;; Compatibility.

(defun widget-event-point (event)
  "Character position of the end of event if that exists, or nil."

(defun widget-file-complete ()
  "Perform completion on file name preceding point."
  (interactive)
  (let* ((end (point))
	 (beg (widget-field-start widget))
	 (pattern (buffer-substring beg end))
	 (name-part (file-name-nondirectory pattern))
	 ;; I think defaulting to root is right
	 ;; because these really should be absolute file names.
	 (directory (or (file-name-directory pattern) "/"))
	 (completion (file-name-completion name-part directory)))
    (cond ((eq completion t))
	  ((null completion)
	   (message "Can't find completion for \"%s\"" pattern)
	   (ding))