Mercurial > emacs
comparison lisp/emulation/viper-util.el @ 14384:854325337547
Moved code around to minimize compiler warnings.
| author | Michael Kifer <kifer@cs.stonybrook.edu> |
|---|---|
| date | Fri, 26 Jan 1996 23:34:09 +0000 |
| parents | 036075cd1493 |
| children | 4951b11970a1 |
comparison
equal
deleted
inserted
replaced
| 14383:af281a43a3bb | 14384:854325337547 |
|---|---|
| 505 (let* ((var-name (symbol-name var)) | 505 (let* ((var-name (symbol-name var)) |
| 506 (var-val (if (boundp var) (eval var))) | 506 (var-val (if (boundp var) (eval var))) |
| 507 (regexp (format "^[^;]*%s[ \t\n]*[a-zA-Z---_']*[ \t\n)]" var-name)) | 507 (regexp (format "^[^;]*%s[ \t\n]*[a-zA-Z---_']*[ \t\n)]" var-name)) |
| 508 (buf (find-file-noselect (substitute-in-file-name custom-file))) | 508 (buf (find-file-noselect (substitute-in-file-name custom-file))) |
| 509 ) | 509 ) |
| 510 (message "%s" message) | 510 (message message) |
| 511 (save-excursion | 511 (save-excursion |
| 512 (set-buffer buf) | 512 (set-buffer buf) |
| 513 (goto-char (point-min)) | 513 (goto-char (point-min)) |
| 514 (if (re-search-forward regexp nil t) | 514 (if (re-search-forward regexp nil t) |
| 515 (let ((reg-end (1- (match-end 0)))) | 515 (let ((reg-end (1- (match-end 0)))) |