Mercurial > hg > xemacs-beta

comparison lisp/prim/minibuf.el @ 159:3bb7ccffb0c0 r20-3b6

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r20-3b6
author cvs
date Mon, 13 Aug 2007 09:41:43 +0200
parents 43dd3413c7c7
children 0132846995bd
comparison
equal deleted inserted replaced
158:558dfa75ffb3 159:3bb7ccffb0c0
30 ;;; 19.30. Not sure about the rest. 30 ;;; 19.30. Not sure about the rest.
31 31
32 ;;; Commentary: 32 ;;; Commentary:
33 33
34 ;; Written by Richard Mlynarik 2-Oct-92 34 ;; Written by Richard Mlynarik 2-Oct-92
35
36 ;; 06/11/1997 - Use char-(after|before) instead of
37 ;; (following|preceding)-char. -slb
35 38
36 ;;; Code: 39 ;;; Code:
37 40
38 (defgroup minibuffer nil 41 (defgroup minibuffer nil
39 "Minibuffer customizations" 42 "Minibuffer customizations"
192 195
193 (defun minibuffer-electric-slash () 196 (defun minibuffer-electric-slash ()
194 ;; by Stig@hackvan.com 197 ;; by Stig@hackvan.com
195 (interactive) 198 (interactive)
196 (and minibuffer-electric-file-name-behavior 199 (and minibuffer-electric-file-name-behavior
197 (eq ?/ (preceding-char)) 200 (eq ?/ (char-before (point)))
198 (not (eq (point) (1+ (point-min)))) ; permit `//hostname/path/to/file' 201 (not (eq (point) (1+ (point-min)))) ; permit `//hostname/path/to/file'
199 (not (eq ?: (char-after (- (point) 2)))) ; permit `http://url/goes/here' 202 (not (eq ?: (char-after (- (point) 2)))) ; permit `http://url/goes/here'
200 (delete-region (point-min) (point))) 203 (delete-region (point-min) (point)))
201 (insert ?/)) 204 (insert ?/))
202 205
203 (defun minibuffer-electric-tilde () 206 (defun minibuffer-electric-tilde ()
204 (interactive) 207 (interactive)
205 (and minibuffer-electric-file-name-behavior 208 (and minibuffer-electric-file-name-behavior
206 (eq ?/ (preceding-char)) 209 (eq ?/ (char-before (point)))
207 ;; permit URL's with //, for e.g. http://hostname/~user 210 ;; permit URL's with //, for e.g. http://hostname/~user
208 (not (save-excursion (search-backward "//" nil t))) 211 (not (save-excursion (search-backward "//" nil t)))
209 (delete-region (point-min) (point))) 212 (delete-region (point-min) (point)))
210 (insert ?~)) 213 (insert ?~))
211 214