Mercurial > emacs
comparison lisp/emulation/viper-util.el @ 91239:2fcaae6177a5
Merge from emacs--devo--0
Revision: emacs@sv.gnu.org/emacs--unicode--0--patch-300
| author | Miles Bader <miles@gnu.org> |
|---|---|
| date | Sun, 16 Dec 2007 05:08:49 +0000 |
| parents | 53108e6cea98 e50a2e215441 |
| children | 606f2d163a64 |
comparison
equal
deleted
inserted
replaced
| 91238:5cf14a2107b5 | 91239:2fcaae6177a5 |
|---|---|
| 634 (let* ((var-name (symbol-name var)) | 634 (let* ((var-name (symbol-name var)) |
| 635 (var-val (if (boundp var) (eval var))) | 635 (var-val (if (boundp var) (eval var))) |
| 636 (regexp (format "^[^;]*%s[ \t\n]*[a-zA-Z---_']*[ \t\n)]" var-name)) | 636 (regexp (format "^[^;]*%s[ \t\n]*[a-zA-Z---_']*[ \t\n)]" var-name)) |
| 637 (buf (find-file-noselect (substitute-in-file-name custom-file))) | 637 (buf (find-file-noselect (substitute-in-file-name custom-file))) |
| 638 ) | 638 ) |
| 639 (message message) | 639 (message "%s" (or message "")) |
| 640 (save-excursion | 640 (save-excursion |
| 641 (set-buffer buf) | 641 (set-buffer buf) |
| 642 (goto-char (point-min)) | 642 (goto-char (point-min)) |
| 643 (if (re-search-forward regexp nil t) | 643 (if (re-search-forward regexp nil t) |
| 644 (let ((reg-end (1- (match-end 0)))) | 644 (let ((reg-end (1- (match-end 0)))) |