Mercurial > emacs
comparison lisp/progmodes/make-mode.el @ 38418:336177767929
(makefile-browse): Use make-local-variable.
| author | Stefan Monnier <monnier@iro.umontreal.ca> |
|---|---|
| date | Mon, 16 Jul 2001 01:52:50 +0000 |
| parents | 6c4e7c0d989a |
| children | 1d8c9639b73c |
comparison
equal
deleted
inserted
replaced
| 38417:0cb7d94430a0 | 38418:336177767929 |
|---|---|
| 1229 (progn | 1229 (progn |
| 1230 (beep) | 1230 (beep) |
| 1231 (message "No macros or targets to browse! Consider running 'makefile-pickup-everything\'")) | 1231 (message "No macros or targets to browse! Consider running 'makefile-pickup-everything\'")) |
| 1232 (let ((browser-buffer (get-buffer-create makefile-browser-buffer-name))) | 1232 (let ((browser-buffer (get-buffer-create makefile-browser-buffer-name))) |
| 1233 (pop-to-buffer browser-buffer) | 1233 (pop-to-buffer browser-buffer) |
| 1234 (make-variable-buffer-local 'makefile-browser-selection-vector) | |
| 1235 (makefile-browser-fill targets macros) | 1234 (makefile-browser-fill targets macros) |
| 1236 (shrink-window-if-larger-than-buffer) | 1235 (shrink-window-if-larger-than-buffer) |
| 1237 (setq makefile-browser-selection-vector | 1236 (set (make-local-variable 'makefile-browser-selection-vector) |
| 1238 (make-vector (+ (length targets) (length macros)) nil)) | 1237 (make-vector (+ (length targets) (length macros)) nil)) |
| 1239 (makefile-browser-start-interaction)))) | 1238 (makefile-browser-start-interaction)))) |
| 1240 | 1239 |
| 1241 (defun makefile-switch-to-browser () | 1240 (defun makefile-switch-to-browser () |
| 1242 (interactive) | 1241 (interactive) |
| 1243 (run-hooks 'makefile-browser-hook) | 1242 (run-hooks 'makefile-browser-hook) |