Mercurial > hg > xemacs-beta

comparison lisp/minibuf.el @ 217:d44af0c54775 r20-4b7

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r20-4b7
author cvs
date Mon, 13 Aug 2007 10:08:34 +0200
parents 1f0dabaa0855
children 12579d965149
comparison
equal deleted inserted replaced
216:43306a74e31c 217:d44af0c54775
207 (interactive) 207 (interactive)
208 (and minibuffer-electric-file-name-behavior 208 (and minibuffer-electric-file-name-behavior
209 (eq ?/ (char-before (point))) 209 (eq ?/ (char-before (point)))
210 (not (save-excursion 210 (not (save-excursion
211 (goto-char (point-min)) 211 (goto-char (point-min))
212 (and (looking-at "^/.+:~?") 212 (and (looking-at "^/.+:~?[^/]*/.+")
213 (re-search-forward "^/.+:~?[^/]*" nil t) 213 (re-search-forward "^/.+:~?[^/]*" nil t)
214 (progn 214 (progn
215 (delete-region (point) (point-max)) 215 (delete-region (point) (point-max))
216 t)))) 216 t))))
217 (not (save-excursion
218 (goto-char (point-min))
219 (and (looking-at "^.+://[^/]*/.+")
220 (re-search-forward "^.+:/" nil t)
221 (progn
222 (delete-region (point) (point-max))
223 t))))
217 (not (eq (point) (1+ (point-min)))) ; permit `//hostname/path/to/file' 224 (not (eq (point) (1+ (point-min)))) ; permit `//hostname/path/to/file'
218 (not (eq ?: (char-after (- (point) 2)))) ; permit `http://url/goes/here' 225 (or (not (eq ?: (char-after (- (point) 2)))) ; permit `http://url/goes/here'
226 (eq ?/ (char-after (point-min))))
219 (delete-region (point-min) (point))) 227 (delete-region (point-min) (point)))
220 (insert ?/)) 228 (insert ?/))
221 229
222 (defun minibuffer-electric-tilde () 230 (defun minibuffer-electric-tilde ()
223 (interactive) 231 (interactive)