Mercurial > hg > xemacs-beta
comparison lisp/modes/make-mode.el @ 18:d95e72db5c07 r19-15b92
Import from CVS: tag r19-15b92
author | cvs |
---|---|
date | Mon, 13 Aug 2007 08:49:43 +0200 |
parents | 9ee227acff29 |
children | 859a2309aef8 |
comparison
equal
deleted
inserted
replaced
17:4579af9d8826 | 18:d95e72db5c07 |
---|---|
944 makefile-browser-unselected-mark) | 944 makefile-browser-unselected-mark) |
945 "%s%s") | 945 "%s%s") |
946 target makefile-target-colon)) | 946 target makefile-target-colon)) |
947 | 947 |
948 (defun makefile-browser-format-macro-line (macro selected) | 948 (defun makefile-browser-format-macro-line (macro selected) |
949 (format | |
950 (concat (make-string makefile-browser-leftmost-column ?\ ) | 949 (concat (make-string makefile-browser-leftmost-column ?\ ) |
951 (if selected | 950 (if selected |
952 makefile-browser-selected-mark | 951 makefile-browser-selected-mark |
953 makefile-browser-unselected-mark) | 952 makefile-browser-unselected-mark) |
954 (makefile-format-macro-ref macro)))) | 953 (makefile-format-macro-ref macro))) |
955 | 954 |
956 (defun makefile-browser-fill (targets macros) | 955 (defun makefile-browser-fill (targets macros) |
957 (let ((inhibit-read-only t)) | 956 (let ((inhibit-read-only t)) |
958 (goto-char (point-min)) | 957 (goto-char (point-min)) |
959 (erase-buffer) | 958 (erase-buffer) |