Mercurial > hg > xemacs-beta

comparison lisp/custom/wid-edit.el @ 36:c53a95d3c46d r19-15b101

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r19-15b101
author cvs
date Mon, 13 Aug 2007 08:53:38 +0200
parents d620409f5eb8
children 8d2a9b52c682 9f59509498e1
comparison
equal deleted inserted replaced
35:279432d5c479 36:c53a95d3c46d
2 ;; 2 ;;
3 ;; Copyright (C) 1996, 1997 Free Software Foundation, Inc. 3 ;; Copyright (C) 1996, 1997 Free Software Foundation, Inc.
4 ;; 4 ;;
5 ;; Author: Per Abrahamsen <abraham@dina.kvl.dk> 5 ;; Author: Per Abrahamsen <abraham@dina.kvl.dk>
6 ;; Keywords: extensions 6 ;; Keywords: extensions
7 ;; Version: 1.64 7 ;; Version: 1.65
8 ;; X-URL: http://www.dina.kvl.dk/~abraham/custom/ 8 ;; X-URL: http://www.dina.kvl.dk/~abraham/custom/
9 9
10 ;;; Commentary: 10 ;;; Commentary:
11 ;; 11 ;;
12 ;; See `widget.el'. 12 ;; See `widget.el'.
2156 (let* ((value (widget-value widget)) 2156 (let* ((value (widget-value widget))
2157 (dir (file-name-directory value)) 2157 (dir (file-name-directory value))
2158 (file (file-name-nondirectory value)) 2158 (file (file-name-nondirectory value))
2159 (menu-tag (widget-apply widget :menu-tag-get)) 2159 (menu-tag (widget-apply widget :menu-tag-get))
2160 (must-match (widget-get widget :must-match)) 2160 (must-match (widget-get widget :must-match))
2161 (answer (read-file-name (concat menu-tag ": (defalt `" value "') ") 2161 (answer (read-file-name (concat menu-tag ": (default `" value "') ")
2162 dir nil must-match file))) 2162 dir nil must-match file)))
2163 (widget-value-set widget (abbreviate-file-name answer)) 2163 (widget-value-set widget (abbreviate-file-name answer))
2164 (widget-apply widget :notify widget event) 2164 (widget-apply widget :notify widget event)
2165 (widget-setup))) 2165 (widget-setup)))
2166 2166