Mercurial > hg > xemacs-beta

comparison lisp/prim/minibuf.el @ 163:0132846995bd r20-3b8

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r20-3b8
author cvs
date Mon, 13 Aug 2007 09:43:35 +0200
parents 3bb7ccffb0c0
children 5a88923fcbfe
comparison
equal deleted inserted replaced
162:4de2936b4e77 163:0132846995bd
513 ;; does. This kind of thing should be generalized. 513 ;; does. This kind of thing should be generalized.
514 (setq minibuffer-max-depth nil) 514 (setq minibuffer-max-depth nil)
515 (save-excursion 515 (save-excursion
516 (set-buffer 516 (set-buffer
517 (find-file-noselect 517 (find-file-noselect
518 (substitute-in-file-name "~/.emacs"))) 518 (substitute-in-file-name custom-file)))
519 (goto-char (point-min)) 519 (goto-char (point-min))
520 (if (re-search-forward 520 (if (re-search-forward
521 "^(setq minibuffer-max-depth \\([0-9]+\\|'?nil\\|'?()\\))\n" 521 "^(setq minibuffer-max-depth \\([0-9]+\\|'?nil\\|'?()\\))\n"
522 nil t) 522 nil t)
523 (delete-region (match-beginning 0 ) (match-end 0)) 523 (delete-region (match-beginning 0 ) (match-end 0))