Mercurial > emacs
annotate lisp/progmodes/make-mode.el @ 52392:ea78742dd7ca
(w32_per_char_metric): Allow cached metrics to be
returned even when font_type is unknown.
author | Jason Rumney <jasonr@gnu.org> |
---|---|
date | Sun, 31 Aug 2003 22:15:15 +0000 |
parents | 63bfe3825510 |
children | 695cf19ef79e |
rev | line source |
---|---|
13402
1f9832fe9e44
(makefile-define-space-face): Don't make face if non-X.
Karl Heuer <kwzh@gnu.org>
parents:
13333
diff
changeset
|
1 ;;; make-mode.el --- makefile editing commands for Emacs |
809 | 2 |
49970
b24aa35dff94
(makefile-font-lock-keywords): Protect
Andreas Schwab <schwab@suse.de>
parents:
49754
diff
changeset
|
3 ;; Copyright (C) 1992,94,99,2000,2001, 2002, 2003 Free Software Foundation, Inc. |
841 | 4 |
809 | 5 ;; Author: Thomas Neumann <tom@smart.bo.open.de> |
2559
5f2c2994cbca
Rewritten and simplified, commentary added. It now will usually
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
2534
diff
changeset
|
6 ;; Eric S. Raymond <esr@snark.thyrsus.com> |
17976 | 7 ;; Maintainer: FSF |
809 | 8 ;; Adapted-By: ESR |
811
e694e0879463
*** empty log message ***
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
809
diff
changeset
|
9 ;; Keywords: unix, tools |
809 | 10 |
2671 | 11 ;; RMS: |
9454
40340d39257d
(makefile-mode-name): Removed.
Richard M. Stallman <rms@gnu.org>
parents:
7639
diff
changeset
|
12 ;; This needs work. |
2671 | 13 ;; Also, the doc strings need fixing: the first line doesn't stand alone, |
14 ;; and other usage is not high quality. Symbol names don't have `...'. | |
15 | |
809 | 16 ;; This file is part of GNU Emacs. |
17 | |
18 ;; GNU Emacs is free software; you can redistribute it and/or modify | |
19 ;; it under the terms of the GNU General Public License as published by | |
12244 | 20 ;; the Free Software Foundation; either version 2, or (at your option) |
809 | 21 ;; any later version. |
22 | |
23 ;; GNU Emacs is distributed in the hope that it will be useful, | |
24 ;; but WITHOUT ANY WARRANTY; without even the implied warranty of | |
25 ;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the | |
26 ;; GNU General Public License for more details. | |
27 | |
28 ;; You should have received a copy of the GNU General Public License | |
14169 | 29 ;; along with GNU Emacs; see the file COPYING. If not, write to the |
30 ;; Free Software Foundation, Inc., 59 Temple Place - Suite 330, | |
31 ;; Boston, MA 02111-1307, USA. | |
809 | 32 |
2307
10e417efb12a
Added or corrected Commentary sections
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
841
diff
changeset
|
33 ;;; Commentary: |
10e417efb12a
Added or corrected Commentary sections
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
841
diff
changeset
|
34 |
2559
5f2c2994cbca
Rewritten and simplified, commentary added. It now will usually
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
2534
diff
changeset
|
35 ;; A major mode for editing makefiles. The mode knows about Makefile |
5f2c2994cbca
Rewritten and simplified, commentary added. It now will usually
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
2534
diff
changeset
|
36 ;; syntax and defines M-n and M-p to move to next and previous productions. |
5f2c2994cbca
Rewritten and simplified, commentary added. It now will usually
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
2534
diff
changeset
|
37 ;; |
5f2c2994cbca
Rewritten and simplified, commentary added. It now will usually
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
2534
diff
changeset
|
38 ;; The keys $, =, : and . are electric; they try to help you fill in a |
5f2c2994cbca
Rewritten and simplified, commentary added. It now will usually
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
2534
diff
changeset
|
39 ;; macro reference, macro definition, ordinary target name, or special |
5f2c2994cbca
Rewritten and simplified, commentary added. It now will usually
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
2534
diff
changeset
|
40 ;; target name, respectively. Such names are completed using a list of |
5f2c2994cbca
Rewritten and simplified, commentary added. It now will usually
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
2534
diff
changeset
|
41 ;; targets and macro names parsed out of the makefile. This list is |
5f2c2994cbca
Rewritten and simplified, commentary added. It now will usually
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
2534
diff
changeset
|
42 ;; automatically updated, if necessary, whenever you invoke one of |
5f2c2994cbca
Rewritten and simplified, commentary added. It now will usually
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
2534
diff
changeset
|
43 ;; these commands. You can force it to be updated with C-c C-p. |
5f2c2994cbca
Rewritten and simplified, commentary added. It now will usually
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
2534
diff
changeset
|
44 ;; |
9454
40340d39257d
(makefile-mode-name): Removed.
Richard M. Stallman <rms@gnu.org>
parents:
7639
diff
changeset
|
45 ;; The command C-c C-f adds certain filenames in the current directory |
2559
5f2c2994cbca
Rewritten and simplified, commentary added. It now will usually
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
2534
diff
changeset
|
46 ;; as targets. You can filter out filenames by setting the variable |
5f2c2994cbca
Rewritten and simplified, commentary added. It now will usually
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
2534
diff
changeset
|
47 ;; makefile-ignored-files-in-pickup-regex. |
5f2c2994cbca
Rewritten and simplified, commentary added. It now will usually
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
2534
diff
changeset
|
48 ;; |
5f2c2994cbca
Rewritten and simplified, commentary added. It now will usually
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
2534
diff
changeset
|
49 ;; The command C-c C-u grinds for a bit, then pops up a report buffer |
5f2c2994cbca
Rewritten and simplified, commentary added. It now will usually
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
2534
diff
changeset
|
50 ;; showing which target names are up-to-date with respect to their |
5f2c2994cbca
Rewritten and simplified, commentary added. It now will usually
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
2534
diff
changeset
|
51 ;; prerequisites, which targets are out-of-date, and which have no |
5f2c2994cbca
Rewritten and simplified, commentary added. It now will usually
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
2534
diff
changeset
|
52 ;; prerequisites. |
5f2c2994cbca
Rewritten and simplified, commentary added. It now will usually
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
2534
diff
changeset
|
53 ;; |
9454
40340d39257d
(makefile-mode-name): Removed.
Richard M. Stallman <rms@gnu.org>
parents:
7639
diff
changeset
|
54 ;; The command C-c C-b pops up a browser window listing all target and |
2559
5f2c2994cbca
Rewritten and simplified, commentary added. It now will usually
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
2534
diff
changeset
|
55 ;; macro names. You can mark or unmark items wit C-c SPC, and insert |
5f2c2994cbca
Rewritten and simplified, commentary added. It now will usually
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
2534
diff
changeset
|
56 ;; all marked items back in the Makefile with C-c TAB. |
5f2c2994cbca
Rewritten and simplified, commentary added. It now will usually
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
2534
diff
changeset
|
57 ;; |
5f2c2994cbca
Rewritten and simplified, commentary added. It now will usually
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
2534
diff
changeset
|
58 ;; The command C-c TAB in the makefile buffer inserts a GNU make builtin. |
5f2c2994cbca
Rewritten and simplified, commentary added. It now will usually
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
2534
diff
changeset
|
59 ;; You will be prompted for the builtin's args. |
5f2c2994cbca
Rewritten and simplified, commentary added. It now will usually
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
2534
diff
changeset
|
60 ;; |
5f2c2994cbca
Rewritten and simplified, commentary added. It now will usually
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
2534
diff
changeset
|
61 ;; There are numerous other customization variables. |
2307
10e417efb12a
Added or corrected Commentary sections
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
841
diff
changeset
|
62 |
9454
40340d39257d
(makefile-mode-name): Removed.
Richard M. Stallman <rms@gnu.org>
parents:
7639
diff
changeset
|
63 ;; |
40340d39257d
(makefile-mode-name): Removed.
Richard M. Stallman <rms@gnu.org>
parents:
7639
diff
changeset
|
64 ;; To Do: |
40340d39257d
(makefile-mode-name): Removed.
Richard M. Stallman <rms@gnu.org>
parents:
7639
diff
changeset
|
65 ;; |
40340d39257d
(makefile-mode-name): Removed.
Richard M. Stallman <rms@gnu.org>
parents:
7639
diff
changeset
|
66 ;; * Eliminate electric stuff entirely. |
40340d39257d
(makefile-mode-name): Removed.
Richard M. Stallman <rms@gnu.org>
parents:
7639
diff
changeset
|
67 ;; * It might be nice to highlight targets differently depending on |
40340d39257d
(makefile-mode-name): Removed.
Richard M. Stallman <rms@gnu.org>
parents:
7639
diff
changeset
|
68 ;; whether they are up-to-date or not. Not sure how this would |
40340d39257d
(makefile-mode-name): Removed.
Richard M. Stallman <rms@gnu.org>
parents:
7639
diff
changeset
|
69 ;; interact with font-lock. |
40340d39257d
(makefile-mode-name): Removed.
Richard M. Stallman <rms@gnu.org>
parents:
7639
diff
changeset
|
70 ;; * Would be nice to edit the commands in ksh-mode and have |
40340d39257d
(makefile-mode-name): Removed.
Richard M. Stallman <rms@gnu.org>
parents:
7639
diff
changeset
|
71 ;; indentation and slashification done automatically. Hard. |
40340d39257d
(makefile-mode-name): Removed.
Richard M. Stallman <rms@gnu.org>
parents:
7639
diff
changeset
|
72 ;; * Consider removing browser mode. It seems useless. |
40340d39257d
(makefile-mode-name): Removed.
Richard M. Stallman <rms@gnu.org>
parents:
7639
diff
changeset
|
73 ;; * ":" should notice when a new target is made and add it to the |
40340d39257d
(makefile-mode-name): Removed.
Richard M. Stallman <rms@gnu.org>
parents:
7639
diff
changeset
|
74 ;; list (or at least set makefile-need-target-pickup). |
9758
b9084912762f
Changed almost every doc string.
Richard M. Stallman <rms@gnu.org>
parents:
9477
diff
changeset
|
75 ;; * Make browser into a major mode. |
9454
40340d39257d
(makefile-mode-name): Removed.
Richard M. Stallman <rms@gnu.org>
parents:
7639
diff
changeset
|
76 ;; * Clean up macro insertion stuff. It is a mess. |
40340d39257d
(makefile-mode-name): Removed.
Richard M. Stallman <rms@gnu.org>
parents:
7639
diff
changeset
|
77 ;; * Browser entry and exit is weird. Normalize. |
40340d39257d
(makefile-mode-name): Removed.
Richard M. Stallman <rms@gnu.org>
parents:
7639
diff
changeset
|
78 ;; * Browser needs to be rewritten. Right now it is kind of a crock. |
40340d39257d
(makefile-mode-name): Removed.
Richard M. Stallman <rms@gnu.org>
parents:
7639
diff
changeset
|
79 ;; Should at least: |
40340d39257d
(makefile-mode-name): Removed.
Richard M. Stallman <rms@gnu.org>
parents:
7639
diff
changeset
|
80 ;; * Act more like dired/buffer menu/whatever. |
40340d39257d
(makefile-mode-name): Removed.
Richard M. Stallman <rms@gnu.org>
parents:
7639
diff
changeset
|
81 ;; * Highlight as mouse traverses. |
40340d39257d
(makefile-mode-name): Removed.
Richard M. Stallman <rms@gnu.org>
parents:
7639
diff
changeset
|
82 ;; * B2 inserts. |
40340d39257d
(makefile-mode-name): Removed.
Richard M. Stallman <rms@gnu.org>
parents:
7639
diff
changeset
|
83 ;; * Update documentation above. |
40340d39257d
(makefile-mode-name): Removed.
Richard M. Stallman <rms@gnu.org>
parents:
7639
diff
changeset
|
84 ;; * Update texinfo manual. |
40340d39257d
(makefile-mode-name): Removed.
Richard M. Stallman <rms@gnu.org>
parents:
7639
diff
changeset
|
85 ;; * Update files.el. |
40340d39257d
(makefile-mode-name): Removed.
Richard M. Stallman <rms@gnu.org>
parents:
7639
diff
changeset
|
86 |
40340d39257d
(makefile-mode-name): Removed.
Richard M. Stallman <rms@gnu.org>
parents:
7639
diff
changeset
|
87 |
40340d39257d
(makefile-mode-name): Removed.
Richard M. Stallman <rms@gnu.org>
parents:
7639
diff
changeset
|
88 |
809 | 89 ;;; Code: |
90 | |
9454
40340d39257d
(makefile-mode-name): Removed.
Richard M. Stallman <rms@gnu.org>
parents:
7639
diff
changeset
|
91 ;; Sadly we need this for a macro. |
40340d39257d
(makefile-mode-name): Removed.
Richard M. Stallman <rms@gnu.org>
parents:
7639
diff
changeset
|
92 (eval-when-compile |
28503 | 93 (require 'imenu) |
94 (require 'dabbrev) | |
95 (require 'add-log)) | |
9454
40340d39257d
(makefile-mode-name): Removed.
Richard M. Stallman <rms@gnu.org>
parents:
7639
diff
changeset
|
96 |
809 | 97 ;;; ------------------------------------------------------------ |
3591
507f64624555
Apply typo patches from Paul Eggert.
Jim Blandy <jimb@redhat.com>
parents:
2671
diff
changeset
|
98 ;;; Configurable stuff |
809 | 99 ;;; ------------------------------------------------------------ |
100 | |
19008 | 101 (defgroup makefile nil |
102 "Makefile editing commands for Emacs." | |
103 :group 'tools | |
104 :prefix "makefile-") | |
809 | 105 |
19028
f2458ec72074
(makefile-space-face): Add defface.
Richard M. Stallman <rms@gnu.org>
parents:
19008
diff
changeset
|
106 (defface makefile-space-face |
f2458ec72074
(makefile-space-face): Add defface.
Richard M. Stallman <rms@gnu.org>
parents:
19008
diff
changeset
|
107 '((((class color)) (:background "hotpink")) |
22837 | 108 (t (:reverse-video t))) |
19028
f2458ec72074
(makefile-space-face): Add defface.
Richard M. Stallman <rms@gnu.org>
parents:
19008
diff
changeset
|
109 "Face to use for highlighting leading spaces in Font-Lock mode." |
f2458ec72074
(makefile-space-face): Add defface.
Richard M. Stallman <rms@gnu.org>
parents:
19008
diff
changeset
|
110 :group 'faces |
48377
7f3cb336821a
(makefile-space-face): Fix typo in group name.
Markus Rost <rost@math.uni-bielefeld.de>
parents:
48037
diff
changeset
|
111 :group 'makefile) |
19028
f2458ec72074
(makefile-space-face): Add defface.
Richard M. Stallman <rms@gnu.org>
parents:
19008
diff
changeset
|
112 |
19008 | 113 (defcustom makefile-browser-buffer-name "*Macros and Targets*" |
28503 | 114 "*Name of the macro- and target browser buffer." |
19008 | 115 :type 'string |
116 :group 'makefile) | |
117 | |
118 (defcustom makefile-target-colon ":" | |
28503 | 119 "*String to append to all target names inserted by `makefile-insert-target'. |
19008 | 120 \":\" or \"::\" are common values." |
121 :type 'string | |
122 :group 'makefile) | |
809 | 123 |
19008 | 124 (defcustom makefile-macro-assign " = " |
28503 | 125 "*String to append to all macro names inserted by `makefile-insert-macro'. |
809 | 126 The normal value should be \" = \", since this is what |
26136 | 127 standard make expects. However, newer makes such as dmake |
809 | 128 allow a larger variety of different macro assignments, so you |
19008 | 129 might prefer to use \" += \" or \" := \" ." |
130 :type 'string | |
131 :group 'makefile) | |
9454
40340d39257d
(makefile-mode-name): Removed.
Richard M. Stallman <rms@gnu.org>
parents:
7639
diff
changeset
|
132 |
19008 | 133 (defcustom makefile-electric-keys nil |
28503 | 134 "*If non-nil, Makefile mode should install electric keybindings. |
19008 | 135 Default is nil." |
136 :type 'boolean | |
137 :group 'makefile) | |
138 | |
139 (defcustom makefile-use-curly-braces-for-macros-p nil | |
28503 | 140 "*Controls the style of generated macro references. |
19008 | 141 Non-nil means macro references should use curly braces, like `${this}'. |
142 nil means use parentheses, like `$(this)'." | |
143 :type 'boolean | |
144 :group 'makefile) | |
809 | 145 |
19008 | 146 (defcustom makefile-tab-after-target-colon t |
28503 | 147 "*If non-nil, insert a TAB after a target colon. |
9758
b9084912762f
Changed almost every doc string.
Richard M. Stallman <rms@gnu.org>
parents:
9477
diff
changeset
|
148 Otherwise, a space is inserted. |
19008 | 149 The default is t." |
150 :type 'boolean | |
151 :group 'makefile) | |
809 | 152 |
19008 | 153 (defcustom makefile-browser-leftmost-column 10 |
28503 | 154 "*Number of blanks to the left of the browser selection mark." |
19008 | 155 :type 'integer |
156 :group 'makefile) | |
809 | 157 |
19008 | 158 (defcustom makefile-browser-cursor-column 10 |
28503 | 159 "*Column the cursor goes to when it moves up or down in the Makefile browser." |
19008 | 160 :type 'integer |
161 :group 'makefile) | |
809 | 162 |
19008 | 163 (defcustom makefile-backslash-column 48 |
164 "*Column in which `makefile-backslash-region' inserts backslashes." | |
165 :type 'integer | |
166 :group 'makefile) | |
9758
b9084912762f
Changed almost every doc string.
Richard M. Stallman <rms@gnu.org>
parents:
9477
diff
changeset
|
167 |
19008 | 168 (defcustom makefile-backslash-align t |
28503 | 169 "*If non-nil, `makefile-backslash-region' will align backslashes." |
19008 | 170 :type 'boolean |
171 :group 'makefile) | |
17240
9e236e540a59
(makefile-backslash-align): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
17142
diff
changeset
|
172 |
19008 | 173 (defcustom makefile-browser-selected-mark "+ " |
28503 | 174 "*String used to mark selected entries in the Makefile browser." |
19008 | 175 :type 'string |
176 :group 'makefile) | |
809 | 177 |
19008 | 178 (defcustom makefile-browser-unselected-mark " " |
28503 | 179 "*String used to mark unselected entries in the Makefile browser." |
19008 | 180 :type 'string |
181 :group 'makefile) | |
809 | 182 |
19008 | 183 (defcustom makefile-browser-auto-advance-after-selection-p t |
28503 | 184 "*If non-nil, cursor will move after item is selected in Makefile browser." |
19008 | 185 :type 'boolean |
186 :group 'makefile) | |
809 | 187 |
19008 | 188 (defcustom makefile-pickup-everything-picks-up-filenames-p nil |
28503 | 189 "*If non-nil, `makefile-pickup-everything' picks up filenames as targets. |
19896
b27fcef497c1
(makefile-pickup-everything-picks-up-filenames-p): Doc fix.
Richard M. Stallman <rms@gnu.org>
parents:
19028
diff
changeset
|
190 This means it calls `makefile-pickup-filenames-as-targets'. |
19008 | 191 Otherwise filenames are omitted." |
192 :type 'boolean | |
193 :group 'makefile) | |
809 | 194 |
48018
1117d26eaae0
(makefile-cleanup-continuations): Default for variable is nil.
Richard M. Stallman <rms@gnu.org>
parents:
47546
diff
changeset
|
195 (defcustom makefile-cleanup-continuations nil |
28503 | 196 "*If non-nil, automatically clean up continuation lines when saving. |
9758
b9084912762f
Changed almost every doc string.
Richard M. Stallman <rms@gnu.org>
parents:
9477
diff
changeset
|
197 A line is cleaned up by removing all whitespace following a trailing |
b9084912762f
Changed almost every doc string.
Richard M. Stallman <rms@gnu.org>
parents:
9477
diff
changeset
|
198 backslash. This is done silently. |
26136 | 199 IMPORTANT: Please note that enabling this option causes Makefile mode |
19008 | 200 to MODIFY A FILE WITHOUT YOUR CONFIRMATION when \"it seems necessary\"." |
201 :type 'boolean | |
202 :group 'makefile) | |
809 | 203 |
26621 | 204 (defcustom makefile-mode-hook nil |
28503 | 205 "*Normal hook run by `makefile-mode'." |
26621 | 206 :type 'hook |
207 :group 'makefile) | |
208 | |
9758
b9084912762f
Changed almost every doc string.
Richard M. Stallman <rms@gnu.org>
parents:
9477
diff
changeset
|
209 (defvar makefile-browser-hook '()) |
809 | 210 |
211 ;; | |
212 ;; Special targets for DMake, Sun's make ... | |
49598
0d8b17d428b5
Trailing whitepace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents:
48980
diff
changeset
|
213 ;; |
19008 | 214 (defcustom makefile-special-targets-list |
809 | 215 '(("DEFAULT") ("DONE") ("ERROR") ("EXPORT") |
216 ("FAILED") ("GROUPEPILOG") ("GROUPPROLOG") ("IGNORE") | |
217 ("IMPORT") ("INCLUDE") ("INCLUDEDIRS") ("INIT") | |
218 ("KEEP_STATE") ("MAKEFILES") ("MAKE_VERSION") ("NO_PARALLEL") | |
219 ("PARALLEL") ("PHONY") ("PRECIOUS") ("REMOVE") | |
220 ("SCCS_GET") ("SILENT") ("SOURCE") ("SUFFIXES") | |
221 ("WAIT") ("c.o") ("C.o") ("m.o") | |
222 ("el.elc") ("y.c") ("s.o")) | |
28503 | 223 "*List of special targets. |
9758
b9084912762f
Changed almost every doc string.
Richard M. Stallman <rms@gnu.org>
parents:
9477
diff
changeset
|
224 You will be offered to complete on one of those in the minibuffer whenever |
28503 | 225 you enter a \".\" at the beginning of a line in `makefile-mode'." |
19008 | 226 :type '(repeat (list string)) |
227 :group 'makefile) | |
809 | 228 |
19008 | 229 (defcustom makefile-runtime-macros-list |
14688
217222b416f7
(makefile-runtime-macros-list): Add + to the list.
Richard M. Stallman <rms@gnu.org>
parents:
14375
diff
changeset
|
230 '(("@") ("&") (">") ("<") ("*") ("^") ("+") ("?") ("%") ("$")) |
28503 | 231 "*List of macros that are resolved by make at runtime. |
26136 | 232 If you insert a macro reference using `makefile-insert-macro-ref', the name |
233 of the macro is checked against this list. If it can be found its name will | |
19008 | 234 not be enclosed in { } or ( )." |
235 :type '(repeat (list string)) | |
236 :group 'makefile) | |
809 | 237 |
9454
40340d39257d
(makefile-mode-name): Removed.
Richard M. Stallman <rms@gnu.org>
parents:
7639
diff
changeset
|
238 ;; Note that the first big subexpression is used by font lock. Note |
24271 | 239 ;; that if you change this regexp you might have to fix the imenu |
240 ;; index in makefile-imenu-generic-expression. | |
809 | 241 (defconst makefile-dependency-regex |
22684
f1cde5061b0b
(makefile-font-lock-keywords): Recognize automatic variable references.
Richard M. Stallman <rms@gnu.org>
parents:
21096
diff
changeset
|
242 "^ *\\([^ \n\t#:=]+\\([ \t]+\\([^ \t\n#:=]+\\|\\$[({][^ \t\n#})]+[})]\\)\\)*\\)[ \t]*:\\([ \t]*$\\|\\([^=\n].*$\\)\\)" |
809 | 243 "Regex used to find dependency lines in a makefile.") |
244 | |
26136 | 245 ;; Note that the first subexpression is used by font lock. Note |
24271 | 246 ;; that if you change this regexp you might have to fix the imenu |
247 ;; index in makefile-imenu-generic-expression. | |
809 | 248 (defconst makefile-macroassign-regex |
38600
1d8c9639b73c
(makefile-macroassign-regex): Recognize the ?= operator.
Eli Zaretskii <eliz@gnu.org>
parents:
38418
diff
changeset
|
249 "^ *\\([^ \n\t][^:#= \t\n]*\\)[ \t]*[*:+]?[:?]?=" |
809 | 250 "Regex used to find macro assignment lines in a makefile.") |
251 | |
252 (defconst makefile-ignored-files-in-pickup-regex | |
5312
aad805608eec
(makefile-ignored-files-in-pickup-regex): Supply missing \\.
Richard M. Stallman <rms@gnu.org>
parents:
3591
diff
changeset
|
253 "\\(^\\..*\\)\\|\\(.*~$\\)\\|\\(.*,v$\\)\\|\\(\\.[chy]\\)" |
809 | 254 "Regex for filenames that will NOT be included in the target list.") |
255 | |
14117
50df7ee940e8
(makefile-space-face): Don't work on
Karl Heuer <kwzh@gnu.org>
parents:
13995
diff
changeset
|
256 (if (fboundp 'facemenu-unlisted-faces) |
50df7ee940e8
(makefile-space-face): Don't work on
Karl Heuer <kwzh@gnu.org>
parents:
13995
diff
changeset
|
257 (add-to-list 'facemenu-unlisted-faces 'makefile-space-face)) |
12912
e519963ce31a
(makefile-space-face): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
12373
diff
changeset
|
258 (defvar makefile-space-face 'makefile-space-face |
e519963ce31a
(makefile-space-face): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
12373
diff
changeset
|
259 "Face to use for highlighting leading spaces in Font-Lock mode.") |
9758
b9084912762f
Changed almost every doc string.
Richard M. Stallman <rms@gnu.org>
parents:
9477
diff
changeset
|
260 |
9454
40340d39257d
(makefile-mode-name): Removed.
Richard M. Stallman <rms@gnu.org>
parents:
7639
diff
changeset
|
261 (defconst makefile-font-lock-keywords |
40340d39257d
(makefile-mode-name): Removed.
Richard M. Stallman <rms@gnu.org>
parents:
7639
diff
changeset
|
262 (list |
28503 | 263 |
9477
7a8a379513e4
* makefile.el: (makefile-mode-syntax-table): Made `'' and ``' be
Simon Marshall <simon@gnu.org>
parents:
9454
diff
changeset
|
264 ;; Do macro assignments. These get the "variable-name" face rather |
9454
40340d39257d
(makefile-mode-name): Removed.
Richard M. Stallman <rms@gnu.org>
parents:
7639
diff
changeset
|
265 ;; arbitrarily. |
9477
7a8a379513e4
* makefile.el: (makefile-mode-syntax-table): Made `'' and ``' be
Simon Marshall <simon@gnu.org>
parents:
9454
diff
changeset
|
266 (list makefile-macroassign-regex 1 'font-lock-variable-name-face) |
28503 | 267 |
16511
f81633edcbf5
(makefile-font-lock-keywords): Handle dependencies
Richard M. Stallman <rms@gnu.org>
parents:
16461
diff
changeset
|
268 ;; Do dependencies. These get the function name face. |
f81633edcbf5
(makefile-font-lock-keywords): Handle dependencies
Richard M. Stallman <rms@gnu.org>
parents:
16461
diff
changeset
|
269 (list makefile-dependency-regex 1 'font-lock-function-name-face) |
28503 | 270 |
49739
7e5f5bd11b07
(makefile-font-lock-keywords): Fontify single character variable references, but
Juanma Barranquero <lekktu@gmail.com>
parents:
49598
diff
changeset
|
271 ;; Variable references even in targets/strings/comments. |
49970
b24aa35dff94
(makefile-font-lock-keywords): Protect
Andreas Schwab <schwab@suse.de>
parents:
49754
diff
changeset
|
272 '("[^$]\\$[({]\\([-a-zA-Z0-9_.]+\\|[@%<?^+*][FD]?\\)[}):]" |
49754
77c84ccd18b9
(makefile-font-lock-keywords): Simplify last change.
Juanma Barranquero <lekktu@gmail.com>
parents:
49739
diff
changeset
|
273 1 font-lock-constant-face prepend) |
28503 | 274 |
49970
b24aa35dff94
(makefile-font-lock-keywords): Protect
Andreas Schwab <schwab@suse.de>
parents:
49754
diff
changeset
|
275 ;; Automatic variable references and single character variable references, |
b24aa35dff94
(makefile-font-lock-keywords): Protect
Andreas Schwab <schwab@suse.de>
parents:
49754
diff
changeset
|
276 ;; but not shell variables references. |
b24aa35dff94
(makefile-font-lock-keywords): Protect
Andreas Schwab <schwab@suse.de>
parents:
49754
diff
changeset
|
277 '("[^$]\\$\\([@%<?^+*_]\\|[a-zA-Z0-9]\\>\\)" |
b24aa35dff94
(makefile-font-lock-keywords): Protect
Andreas Schwab <schwab@suse.de>
parents:
49754
diff
changeset
|
278 1 font-lock-constant-face prepend) |
49739
7e5f5bd11b07
(makefile-font-lock-keywords): Fontify single character variable references, but
Juanma Barranquero <lekktu@gmail.com>
parents:
49598
diff
changeset
|
279 |
28503 | 280 ;; Fontify conditionals and includes. |
281 ;; Note that plain `if' is an automake conditional, and not a bug. | |
37469
6c4e7c0d989a
(makefile-font-lock-keywords):
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
35932
diff
changeset
|
282 (list |
6c4e7c0d989a
(makefile-font-lock-keywords):
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
35932
diff
changeset
|
283 (concat "^\\(?: [ \t]*\\)?" |
6c4e7c0d989a
(makefile-font-lock-keywords):
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
35932
diff
changeset
|
284 (regexp-opt '("-include" "-sinclude" "include" "sinclude" "ifeq" |
48618
8e21762fb622
(makefile-font-lock-keywords): Highlight more make keywords:
Richard M. Stallman <rms@gnu.org>
parents:
48377
diff
changeset
|
285 "if" "ifneq" "ifdef" "ifndef" "endif" "else" |
8e21762fb622
(makefile-font-lock-keywords): Highlight more make keywords:
Richard M. Stallman <rms@gnu.org>
parents:
48377
diff
changeset
|
286 "define" "endef" "override" |
8e21762fb622
(makefile-font-lock-keywords): Highlight more make keywords:
Richard M. Stallman <rms@gnu.org>
parents:
48377
diff
changeset
|
287 "export" "unexport" "vpath") t) |
37469
6c4e7c0d989a
(makefile-font-lock-keywords):
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
35932
diff
changeset
|
288 "\\>[ \t]*\\([^: \t\n#]*\\)") |
6c4e7c0d989a
(makefile-font-lock-keywords):
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
35932
diff
changeset
|
289 '(1 font-lock-keyword-face) '(2 font-lock-variable-name-face)) |
28802
f7eed599c0df
(makefile-mode-abbrev-table): New variable.
Gerd Moellmann <gerd@gnu.org>
parents:
28503
diff
changeset
|
290 |
12936 | 291 ;; Highlight lines that contain just whitespace. |
292 ;; They can cause trouble, especially if they start with a tab. | |
293 '("^[ \t]+$" . makefile-space-face) | |
294 | |
12961
e8028ecec7ea
(makefile-font-lock-keywords): Highlight lines with
Richard M. Stallman <rms@gnu.org>
parents:
12938
diff
changeset
|
295 ;; Highlight shell comments that Make treats as commands, |
e8028ecec7ea
(makefile-font-lock-keywords): Highlight lines with
Richard M. Stallman <rms@gnu.org>
parents:
12938
diff
changeset
|
296 ;; since these can fool people. |
13804
da3a679bbfac
(makefile-font-lock-keywords): Fix bad structure
Karl Heuer <kwzh@gnu.org>
parents:
13493
diff
changeset
|
297 '("^\t+#" 0 makefile-space-face t) |
12961
e8028ecec7ea
(makefile-font-lock-keywords): Highlight lines with
Richard M. Stallman <rms@gnu.org>
parents:
12938
diff
changeset
|
298 |
e8028ecec7ea
(makefile-font-lock-keywords): Highlight lines with
Richard M. Stallman <rms@gnu.org>
parents:
12938
diff
changeset
|
299 ;; Highlight spaces that precede tabs. |
e8028ecec7ea
(makefile-font-lock-keywords): Highlight lines with
Richard M. Stallman <rms@gnu.org>
parents:
12938
diff
changeset
|
300 ;; They can make a tab fail to be effective. |
e8028ecec7ea
(makefile-font-lock-keywords): Highlight lines with
Richard M. Stallman <rms@gnu.org>
parents:
12938
diff
changeset
|
301 '("^\\( +\\)\t" 1 makefile-space-face))) |
9454
40340d39257d
(makefile-mode-name): Removed.
Richard M. Stallman <rms@gnu.org>
parents:
7639
diff
changeset
|
302 |
50205
63bfe3825510
(makefile-font-lock-syntactic-keywords): New variable.
Juanma Barranquero <lekktu@gmail.com>
parents:
49970
diff
changeset
|
303 (defconst makefile-font-lock-syntactic-keywords |
63bfe3825510
(makefile-font-lock-syntactic-keywords): New variable.
Juanma Barranquero <lekktu@gmail.com>
parents:
49970
diff
changeset
|
304 (list |
63bfe3825510
(makefile-font-lock-syntactic-keywords): New variable.
Juanma Barranquero <lekktu@gmail.com>
parents:
49970
diff
changeset
|
305 ;; Change the syntax of a quoted newline so that it does not end a comment. |
63bfe3825510
(makefile-font-lock-syntactic-keywords): New variable.
Juanma Barranquero <lekktu@gmail.com>
parents:
49970
diff
changeset
|
306 '("\\\\\n" 0 " "))) |
63bfe3825510
(makefile-font-lock-syntactic-keywords): New variable.
Juanma Barranquero <lekktu@gmail.com>
parents:
49970
diff
changeset
|
307 |
24248
fd94cf07b4cc
(makefile-imenu-generic-expression): New var.
Richard M. Stallman <rms@gnu.org>
parents:
22837
diff
changeset
|
308 (defvar makefile-imenu-generic-expression |
fd94cf07b4cc
(makefile-imenu-generic-expression): New var.
Richard M. Stallman <rms@gnu.org>
parents:
22837
diff
changeset
|
309 (list |
fd94cf07b4cc
(makefile-imenu-generic-expression): New var.
Richard M. Stallman <rms@gnu.org>
parents:
22837
diff
changeset
|
310 (list "Dependencies" makefile-dependency-regex 1) |
fd94cf07b4cc
(makefile-imenu-generic-expression): New var.
Richard M. Stallman <rms@gnu.org>
parents:
22837
diff
changeset
|
311 (list "Macro Assignment" makefile-macroassign-regex 1)) |
26136 | 312 "Imenu generic expression for Makefile mode. See `imenu-generic-expression'.") |
24248
fd94cf07b4cc
(makefile-imenu-generic-expression): New var.
Richard M. Stallman <rms@gnu.org>
parents:
22837
diff
changeset
|
313 |
809 | 314 ;;; ------------------------------------------------------------ |
315 ;;; The following configurable variables are used in the | |
316 ;;; up-to-date overview . | |
3591
507f64624555
Apply typo patches from Paul Eggert.
Jim Blandy <jimb@redhat.com>
parents:
2671
diff
changeset
|
317 ;;; The standard configuration assumes that your `make' program |
809 | 318 ;;; can be run in question/query mode using the `-q' option, this |
319 ;;; means that the command | |
320 ;;; | |
321 ;;; make -q foo | |
322 ;;; | |
323 ;;; should return an exit status of zero if the target `foo' is | |
324 ;;; up to date and a nonzero exit status otherwise. | |
325 ;;; Many makes can do this although the docs/manpages do not mention | |
2559
5f2c2994cbca
Rewritten and simplified, commentary added. It now will usually
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
2534
diff
changeset
|
326 ;;; it. Try it with your favourite one. GNU make, System V make, and |
5f2c2994cbca
Rewritten and simplified, commentary added. It now will usually
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
2534
diff
changeset
|
327 ;;; Dennis Vadura's DMake have no problems. |
809 | 328 ;;; Set the variable `makefile-brave-make' to the name of the |
329 ;;; make utility that does this on your system. | |
3591
507f64624555
Apply typo patches from Paul Eggert.
Jim Blandy <jimb@redhat.com>
parents:
2671
diff
changeset
|
330 ;;; To understand what this is all about see the function definition |
809 | 331 ;;; of `makefile-query-by-make-minus-q' . |
332 ;;; ------------------------------------------------------------ | |
333 | |
19008 | 334 (defcustom makefile-brave-make "make" |
28503 | 335 "*How to invoke make, for `makefile-query-targets'. |
19008 | 336 This should identify a `make' command that can handle the `-q' option." |
337 :type 'string | |
338 :group 'makefile) | |
809 | 339 |
19008 | 340 (defcustom makefile-query-one-target-method 'makefile-query-by-make-minus-q |
28503 | 341 "*Function to call to determine whether a make target is up to date. |
12936 | 342 The function must satisfy this calling convention: |
809 | 343 |
344 * As its first argument, it must accept the name of the target to | |
345 be checked, as a string. | |
346 | |
347 * As its second argument, it may accept the name of a makefile | |
26136 | 348 as a string. Depending on what you're going to do you may |
809 | 349 not need this. |
350 | |
351 * It must return the integer value 0 (zero) if the given target | |
352 should be considered up-to-date in the context of the given | |
19008 | 353 makefile, any nonzero integer value otherwise." |
354 :type 'function | |
355 :group 'makefile) | |
809 | 356 |
19008 | 357 (defcustom makefile-up-to-date-buffer-name "*Makefile Up-to-date overview*" |
28503 | 358 "*Name of the Up-to-date overview buffer." |
19008 | 359 :type 'string |
360 :group 'makefile) | |
809 | 361 |
362 ;;; --- end of up-to-date-overview configuration ------------------ | |
363 | |
28503 | 364 (defvar makefile-mode-abbrev-table nil |
365 "Abbrev table in use in Makefile buffers.") | |
366 (if makefile-mode-abbrev-table | |
367 () | |
368 (define-abbrev-table 'makefile-mode-abbrev-table ())) | |
369 | |
809 | 370 (defvar makefile-mode-map nil |
12936 | 371 "The keymap that is used in Makefile mode.") |
372 | |
809 | 373 (if makefile-mode-map |
374 () | |
375 (setq makefile-mode-map (make-sparse-keymap)) | |
376 ;; set up the keymap | |
9454
40340d39257d
(makefile-mode-name): Removed.
Richard M. Stallman <rms@gnu.org>
parents:
7639
diff
changeset
|
377 (define-key makefile-mode-map "\C-c:" 'makefile-insert-target-ref) |
40340d39257d
(makefile-mode-name): Removed.
Richard M. Stallman <rms@gnu.org>
parents:
7639
diff
changeset
|
378 (if makefile-electric-keys |
40340d39257d
(makefile-mode-name): Removed.
Richard M. Stallman <rms@gnu.org>
parents:
7639
diff
changeset
|
379 (progn |
40340d39257d
(makefile-mode-name): Removed.
Richard M. Stallman <rms@gnu.org>
parents:
7639
diff
changeset
|
380 (define-key makefile-mode-map "$" 'makefile-insert-macro-ref) |
40340d39257d
(makefile-mode-name): Removed.
Richard M. Stallman <rms@gnu.org>
parents:
7639
diff
changeset
|
381 (define-key makefile-mode-map ":" 'makefile-electric-colon) |
40340d39257d
(makefile-mode-name): Removed.
Richard M. Stallman <rms@gnu.org>
parents:
7639
diff
changeset
|
382 (define-key makefile-mode-map "=" 'makefile-electric-equal) |
40340d39257d
(makefile-mode-name): Removed.
Richard M. Stallman <rms@gnu.org>
parents:
7639
diff
changeset
|
383 (define-key makefile-mode-map "." 'makefile-electric-dot))) |
809 | 384 (define-key makefile-mode-map "\C-c\C-f" 'makefile-pickup-filenames-as-targets) |
385 (define-key makefile-mode-map "\C-c\C-b" 'makefile-switch-to-browser) | |
17240
9e236e540a59
(makefile-backslash-align): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
17142
diff
changeset
|
386 (define-key makefile-mode-map "\C-c\C-c" 'comment-region) |
809 | 387 (define-key makefile-mode-map "\C-c\C-p" 'makefile-pickup-everything) |
388 (define-key makefile-mode-map "\C-c\C-u" 'makefile-create-up-to-date-overview) | |
389 (define-key makefile-mode-map "\C-c\C-i" 'makefile-insert-gmake-function) | |
9758
b9084912762f
Changed almost every doc string.
Richard M. Stallman <rms@gnu.org>
parents:
9477
diff
changeset
|
390 (define-key makefile-mode-map "\C-c\C-\\" 'makefile-backslash-region) |
809 | 391 (define-key makefile-mode-map "\M-p" 'makefile-previous-dependency) |
9454
40340d39257d
(makefile-mode-name): Removed.
Richard M. Stallman <rms@gnu.org>
parents:
7639
diff
changeset
|
392 (define-key makefile-mode-map "\M-n" 'makefile-next-dependency) |
40340d39257d
(makefile-mode-name): Removed.
Richard M. Stallman <rms@gnu.org>
parents:
7639
diff
changeset
|
393 (define-key makefile-mode-map "\e\t" 'makefile-complete) |
40340d39257d
(makefile-mode-name): Removed.
Richard M. Stallman <rms@gnu.org>
parents:
7639
diff
changeset
|
394 |
40340d39257d
(makefile-mode-name): Removed.
Richard M. Stallman <rms@gnu.org>
parents:
7639
diff
changeset
|
395 ;; Make menus. |
40340d39257d
(makefile-mode-name): Removed.
Richard M. Stallman <rms@gnu.org>
parents:
7639
diff
changeset
|
396 (define-key makefile-mode-map [menu-bar makefile-mode] |
40340d39257d
(makefile-mode-name): Removed.
Richard M. Stallman <rms@gnu.org>
parents:
7639
diff
changeset
|
397 (cons "Makefile" (make-sparse-keymap "Makefile"))) |
40340d39257d
(makefile-mode-name): Removed.
Richard M. Stallman <rms@gnu.org>
parents:
7639
diff
changeset
|
398 |
40340d39257d
(makefile-mode-name): Removed.
Richard M. Stallman <rms@gnu.org>
parents:
7639
diff
changeset
|
399 (define-key makefile-mode-map [menu-bar makefile-mode browse] |
12033
f7638ab47de7
Fix capitalization in menu bar.
Karl Heuer <kwzh@gnu.org>
parents:
11638
diff
changeset
|
400 '("Pop up Makefile Browser" . makefile-switch-to-browser)) |
9454
40340d39257d
(makefile-mode-name): Removed.
Richard M. Stallman <rms@gnu.org>
parents:
7639
diff
changeset
|
401 (define-key makefile-mode-map [menu-bar makefile-mode complete] |
12033
f7638ab47de7
Fix capitalization in menu bar.
Karl Heuer <kwzh@gnu.org>
parents:
11638
diff
changeset
|
402 '("Complete Target or Macro" . makefile-complete)) |
9454
40340d39257d
(makefile-mode-name): Removed.
Richard M. Stallman <rms@gnu.org>
parents:
7639
diff
changeset
|
403 (define-key makefile-mode-map [menu-bar makefile-mode pickup] |
12033
f7638ab47de7
Fix capitalization in menu bar.
Karl Heuer <kwzh@gnu.org>
parents:
11638
diff
changeset
|
404 '("Find Targets and Macros" . makefile-pickup-everything)) |
9454
40340d39257d
(makefile-mode-name): Removed.
Richard M. Stallman <rms@gnu.org>
parents:
7639
diff
changeset
|
405 |
40340d39257d
(makefile-mode-name): Removed.
Richard M. Stallman <rms@gnu.org>
parents:
7639
diff
changeset
|
406 (define-key makefile-mode-map [menu-bar makefile-mode prev] |
12033
f7638ab47de7
Fix capitalization in menu bar.
Karl Heuer <kwzh@gnu.org>
parents:
11638
diff
changeset
|
407 '("Move to Previous Dependency" . makefile-previous-dependency)) |
9454
40340d39257d
(makefile-mode-name): Removed.
Richard M. Stallman <rms@gnu.org>
parents:
7639
diff
changeset
|
408 (define-key makefile-mode-map [menu-bar makefile-mode next] |
12033
f7638ab47de7
Fix capitalization in menu bar.
Karl Heuer <kwzh@gnu.org>
parents:
11638
diff
changeset
|
409 '("Move to Next Dependency" . makefile-next-dependency))) |
809 | 410 |
411 (defvar makefile-browser-map nil | |
412 "The keymap that is used in the macro- and target browser.") | |
413 (if makefile-browser-map | |
414 () | |
415 (setq makefile-browser-map (make-sparse-keymap)) | |
416 (define-key makefile-browser-map "n" 'makefile-browser-next-line) | |
26136 | 417 (define-key makefile-browser-map "\C-n" 'makefile-browser-next-line) |
809 | 418 (define-key makefile-browser-map "p" 'makefile-browser-previous-line) |
419 (define-key makefile-browser-map "\C-p" 'makefile-browser-previous-line) | |
420 (define-key makefile-browser-map " " 'makefile-browser-toggle) | |
421 (define-key makefile-browser-map "i" 'makefile-browser-insert-selection) | |
26136 | 422 (define-key makefile-browser-map "I" 'makefile-browser-insert-selection-and-quit) |
809 | 423 (define-key makefile-browser-map "\C-c\C-m" 'makefile-browser-insert-continuation) |
424 (define-key makefile-browser-map "q" 'makefile-browser-quit) | |
425 ;; disable horizontal movement | |
426 (define-key makefile-browser-map "\C-b" 'undefined) | |
26136 | 427 (define-key makefile-browser-map "\C-f" 'undefined)) |
809 | 428 |
429 | |
9758
b9084912762f
Changed almost every doc string.
Richard M. Stallman <rms@gnu.org>
parents:
9477
diff
changeset
|
430 (defvar makefile-mode-syntax-table nil) |
809 | 431 (if makefile-mode-syntax-table |
432 () | |
433 (setq makefile-mode-syntax-table (make-syntax-table)) | |
434 (modify-syntax-entry ?\( "() " makefile-mode-syntax-table) | |
435 (modify-syntax-entry ?\) ")( " makefile-mode-syntax-table) | |
436 (modify-syntax-entry ?\[ "(] " makefile-mode-syntax-table) | |
12938
123200a483ae
(makefile-mode-syntax-table): "]" is a close-paren.
Richard M. Stallman <rms@gnu.org>
parents:
12937
diff
changeset
|
437 (modify-syntax-entry ?\] ")[ " makefile-mode-syntax-table) |
26136 | 438 (modify-syntax-entry ?\{ "(} " makefile-mode-syntax-table) |
809 | 439 (modify-syntax-entry ?\} "){ " makefile-mode-syntax-table) |
9477
7a8a379513e4
* makefile.el: (makefile-mode-syntax-table): Made `'' and ``' be
Simon Marshall <simon@gnu.org>
parents:
9454
diff
changeset
|
440 (modify-syntax-entry ?\' "\" " makefile-mode-syntax-table) |
7a8a379513e4
* makefile.el: (makefile-mode-syntax-table): Made `'' and ``' be
Simon Marshall <simon@gnu.org>
parents:
9454
diff
changeset
|
441 (modify-syntax-entry ?\` "\" " makefile-mode-syntax-table) |
809 | 442 (modify-syntax-entry ?# "< " makefile-mode-syntax-table) |
443 (modify-syntax-entry ?\n "> " makefile-mode-syntax-table)) | |
9454
40340d39257d
(makefile-mode-name): Removed.
Richard M. Stallman <rms@gnu.org>
parents:
7639
diff
changeset
|
444 |
40340d39257d
(makefile-mode-name): Removed.
Richard M. Stallman <rms@gnu.org>
parents:
7639
diff
changeset
|
445 |
809 | 446 ;;; ------------------------------------------------------------ |
447 ;;; Internal variables. | |
448 ;;; You don't need to configure below this line. | |
449 ;;; ------------------------------------------------------------ | |
450 | |
451 (defvar makefile-target-table nil | |
9758
b9084912762f
Changed almost every doc string.
Richard M. Stallman <rms@gnu.org>
parents:
9477
diff
changeset
|
452 "Table of all target names known for this buffer.") |
809 | 453 |
454 (defvar makefile-macro-table nil | |
9758
b9084912762f
Changed almost every doc string.
Richard M. Stallman <rms@gnu.org>
parents:
9477
diff
changeset
|
455 "Table of all macro names known for this buffer.") |
809 | 456 |
457 (defvar makefile-browser-client | |
12936 | 458 "A buffer in Makefile mode that is currently using the browser.") |
809 | 459 |
460 (defvar makefile-browser-selection-vector nil) | |
2559
5f2c2994cbca
Rewritten and simplified, commentary added. It now will usually
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
2534
diff
changeset
|
461 (defvar makefile-has-prereqs nil) |
5f2c2994cbca
Rewritten and simplified, commentary added. It now will usually
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
2534
diff
changeset
|
462 (defvar makefile-need-target-pickup t) |
5f2c2994cbca
Rewritten and simplified, commentary added. It now will usually
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
2534
diff
changeset
|
463 (defvar makefile-need-macro-pickup t) |
809 | 464 |
465 (defvar makefile-mode-hook '()) | |
466 | |
9758
b9084912762f
Changed almost every doc string.
Richard M. Stallman <rms@gnu.org>
parents:
9477
diff
changeset
|
467 ;; Each element looks like '("GNU MAKE FUNCTION" "ARG" "ARG" ... ) |
b9084912762f
Changed almost every doc string.
Richard M. Stallman <rms@gnu.org>
parents:
9477
diff
changeset
|
468 ;; Each "ARG" is used as a prompt for a required argument. |
809 | 469 (defconst makefile-gnumake-functions-alist |
470 '( | |
471 ;; Text functions | |
472 ("subst" "From" "To" "In") | |
473 ("patsubst" "Pattern" "Replacement" "In") | |
474 ("strip" "Text") | |
475 ("findstring" "Find what" "In") | |
476 ("filter" "Pattern" "Text") | |
477 ("filter-out" "Pattern" "Text") | |
478 ("sort" "List") | |
479 ;; Filename functions | |
480 ("dir" "Names") | |
481 ("notdir" "Names") | |
482 ("suffix" "Names") | |
483 ("basename" "Names") | |
15523
682a3d405c49
(makefile-gnumake-functions-alist): Add `addprefix'.
Richard M. Stallman <rms@gnu.org>
parents:
14688
diff
changeset
|
484 ("addprefix" "Prefix" "Names") |
809 | 485 ("addsuffix" "Suffix" "Names") |
486 ("join" "List 1" "List 2") | |
487 ("word" "Index" "Text") | |
488 ("words" "Text") | |
489 ("firstword" "Text") | |
490 ("wildcard" "Pattern") | |
491 ;; Misc functions | |
492 ("foreach" "Variable" "List" "Text") | |
493 ("origin" "Variable") | |
9758
b9084912762f
Changed almost every doc string.
Richard M. Stallman <rms@gnu.org>
parents:
9477
diff
changeset
|
494 ("shell" "Command"))) |
809 | 495 |
496 | |
497 ;;; ------------------------------------------------------------ | |
498 ;;; The mode function itself. | |
499 ;;; ------------------------------------------------------------ | |
500 | |
2534
0099d6be2b11
(makefile-mode): Fix typo in autoload cookie.
Richard M. Stallman <rms@gnu.org>
parents:
2400
diff
changeset
|
501 ;;;###autoload |
809 | 502 (defun makefile-mode () |
503 "Major mode for editing Makefiles. | |
12936 | 504 This function ends by invoking the function(s) `makefile-mode-hook'. |
809 | 505 |
506 \\{makefile-mode-map} | |
507 | |
508 In the browser, use the following keys: | |
509 | |
510 \\{makefile-browser-map} | |
511 | |
12936 | 512 Makefile mode can be configured by modifying the following variables: |
809 | 513 |
41641
66c7637cbf17
Use line-(end|beginning)-position.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
38600
diff
changeset
|
514 `makefile-browser-buffer-name': |
809 | 515 Name of the macro- and target browser buffer. |
516 | |
41641
66c7637cbf17
Use line-(end|beginning)-position.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
38600
diff
changeset
|
517 `makefile-target-colon': |
809 | 518 The string that gets appended to all target names |
12936 | 519 inserted by `makefile-insert-target'. |
809 | 520 \":\" or \"::\" are quite common values. |
521 | |
41641
66c7637cbf17
Use line-(end|beginning)-position.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
38600
diff
changeset
|
522 `makefile-macro-assign': |
809 | 523 The string that gets appended to all macro names |
12936 | 524 inserted by `makefile-insert-macro'. |
809 | 525 The normal value should be \" = \", since this is what |
26136 | 526 standard make expects. However, newer makes such as dmake |
809 | 527 allow a larger variety of different macro assignments, so you |
528 might prefer to use \" += \" or \" := \" . | |
529 | |
41641
66c7637cbf17
Use line-(end|beginning)-position.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
38600
diff
changeset
|
530 `makefile-tab-after-target-colon': |
809 | 531 If you want a TAB (instead of a space) to be appended after the |
532 target colon, then set this to a non-nil value. | |
533 | |
41641
66c7637cbf17
Use line-(end|beginning)-position.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
38600
diff
changeset
|
534 `makefile-browser-leftmost-column': |
809 | 535 Number of blanks to the left of the browser selection mark. |
536 | |
41641
66c7637cbf17
Use line-(end|beginning)-position.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
38600
diff
changeset
|
537 `makefile-browser-cursor-column': |
809 | 538 Column in which the cursor is positioned when it moves |
539 up or down in the browser. | |
540 | |
41641
66c7637cbf17
Use line-(end|beginning)-position.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
38600
diff
changeset
|
541 `makefile-browser-selected-mark': |
809 | 542 String used to mark selected entries in the browser. |
543 | |
41641
66c7637cbf17
Use line-(end|beginning)-position.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
38600
diff
changeset
|
544 `makefile-browser-unselected-mark': |
809 | 545 String used to mark unselected entries in the browser. |
546 | |
41641
66c7637cbf17
Use line-(end|beginning)-position.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
38600
diff
changeset
|
547 `makefile-browser-auto-advance-after-selection-p': |
809 | 548 If this variable is set to a non-nil value the cursor |
549 will automagically advance to the next line after an item | |
550 has been selected in the browser. | |
551 | |
41641
66c7637cbf17
Use line-(end|beginning)-position.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
38600
diff
changeset
|
552 `makefile-pickup-everything-picks-up-filenames-p': |
809 | 553 If this variable is set to a non-nil value then |
12936 | 554 `makefile-pickup-everything' also picks up filenames as targets |
19896
b27fcef497c1
(makefile-pickup-everything-picks-up-filenames-p): Doc fix.
Richard M. Stallman <rms@gnu.org>
parents:
19028
diff
changeset
|
555 (i.e. it calls `makefile-pickup-filenames-as-targets'), otherwise |
809 | 556 filenames are omitted. |
557 | |
47546
2c7b4003c5ad
(makefile-cleanup-continuations-p): Rename to makefile-cleanup-continuations.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
47527
diff
changeset
|
558 `makefile-cleanup-continuations': |
26136 | 559 If this variable is set to a non-nil value then Makefile mode |
809 | 560 will assure that no line in the file ends with a backslash |
561 (the continuation character) followed by any whitespace. | |
562 This is done by silently removing the trailing whitespace, leaving | |
563 the backslash itself intact. | |
26136 | 564 IMPORTANT: Please note that enabling this option causes Makefile mode |
12936 | 565 to MODIFY A FILE WITHOUT YOUR CONFIRMATION when \"it seems necessary\". |
809 | 566 |
41641
66c7637cbf17
Use line-(end|beginning)-position.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
38600
diff
changeset
|
567 `makefile-browser-hook': |
809 | 568 A function or list of functions to be called just before the |
2559
5f2c2994cbca
Rewritten and simplified, commentary added. It now will usually
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
2534
diff
changeset
|
569 browser is entered. This is executed in the makefile buffer. |
809 | 570 |
41641
66c7637cbf17
Use line-(end|beginning)-position.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
38600
diff
changeset
|
571 `makefile-special-targets-list': |
809 | 572 List of special targets. You will be offered to complete |
12936 | 573 on one of those in the minibuffer whenever you enter a `.'. |
574 at the beginning of a line in Makefile mode." | |
9454
40340d39257d
(makefile-mode-name): Removed.
Richard M. Stallman <rms@gnu.org>
parents:
7639
diff
changeset
|
575 |
809 | 576 (interactive) |
577 (kill-all-local-variables) | |
47546
2c7b4003c5ad
(makefile-cleanup-continuations-p): Rename to makefile-cleanup-continuations.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
47527
diff
changeset
|
578 (add-hook 'write-file-functions |
2c7b4003c5ad
(makefile-cleanup-continuations-p): Rename to makefile-cleanup-continuations.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
47527
diff
changeset
|
579 'makefile-warn-suspicious-lines nil t) |
2c7b4003c5ad
(makefile-cleanup-continuations-p): Rename to makefile-cleanup-continuations.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
47527
diff
changeset
|
580 (add-hook 'write-file-functions |
48018
1117d26eaae0
(makefile-cleanup-continuations): Default for variable is nil.
Richard M. Stallman <rms@gnu.org>
parents:
47546
diff
changeset
|
581 'makefile-warn-continuations nil t) |
1117d26eaae0
(makefile-cleanup-continuations): Default for variable is nil.
Richard M. Stallman <rms@gnu.org>
parents:
47546
diff
changeset
|
582 (add-hook 'write-file-functions |
47546
2c7b4003c5ad
(makefile-cleanup-continuations-p): Rename to makefile-cleanup-continuations.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
47527
diff
changeset
|
583 'makefile-cleanup-continuations nil t) |
6146
1a2a8ef9b4af
(makefile-mode): Set local-write-file-hooks, not write-file-hooks.
Richard M. Stallman <rms@gnu.org>
parents:
5820
diff
changeset
|
584 (make-local-variable 'makefile-target-table) |
1a2a8ef9b4af
(makefile-mode): Set local-write-file-hooks, not write-file-hooks.
Richard M. Stallman <rms@gnu.org>
parents:
5820
diff
changeset
|
585 (make-local-variable 'makefile-macro-table) |
1a2a8ef9b4af
(makefile-mode): Set local-write-file-hooks, not write-file-hooks.
Richard M. Stallman <rms@gnu.org>
parents:
5820
diff
changeset
|
586 (make-local-variable 'makefile-has-prereqs) |
1a2a8ef9b4af
(makefile-mode): Set local-write-file-hooks, not write-file-hooks.
Richard M. Stallman <rms@gnu.org>
parents:
5820
diff
changeset
|
587 (make-local-variable 'makefile-need-target-pickup) |
1a2a8ef9b4af
(makefile-mode): Set local-write-file-hooks, not write-file-hooks.
Richard M. Stallman <rms@gnu.org>
parents:
5820
diff
changeset
|
588 (make-local-variable 'makefile-need-macro-pickup) |
9454
40340d39257d
(makefile-mode-name): Removed.
Richard M. Stallman <rms@gnu.org>
parents:
7639
diff
changeset
|
589 |
40340d39257d
(makefile-mode-name): Removed.
Richard M. Stallman <rms@gnu.org>
parents:
7639
diff
changeset
|
590 ;; Font lock. |
9477
7a8a379513e4
* makefile.el: (makefile-mode-syntax-table): Made `'' and ``' be
Simon Marshall <simon@gnu.org>
parents:
9454
diff
changeset
|
591 (make-local-variable 'font-lock-defaults) |
35932
2b3447fcf42b
(makefile-mode): Set SYNTAX-BEGIN member
Eli Zaretskii <eliz@gnu.org>
parents:
30468
diff
changeset
|
592 (setq font-lock-defaults |
2b3447fcf42b
(makefile-mode): Set SYNTAX-BEGIN member
Eli Zaretskii <eliz@gnu.org>
parents:
30468
diff
changeset
|
593 ;; SYNTAX-BEGIN set to backward-paragraph to avoid slow-down |
2b3447fcf42b
(makefile-mode): Set SYNTAX-BEGIN member
Eli Zaretskii <eliz@gnu.org>
parents:
30468
diff
changeset
|
594 ;; near the end of a large buffer, due to parse-partial-sexp's |
2b3447fcf42b
(makefile-mode): Set SYNTAX-BEGIN member
Eli Zaretskii <eliz@gnu.org>
parents:
30468
diff
changeset
|
595 ;; trying to parse all the way till the beginning of buffer. |
50205
63bfe3825510
(makefile-font-lock-syntactic-keywords): New variable.
Juanma Barranquero <lekktu@gmail.com>
parents:
49970
diff
changeset
|
596 '(makefile-font-lock-keywords |
63bfe3825510
(makefile-font-lock-syntactic-keywords): New variable.
Juanma Barranquero <lekktu@gmail.com>
parents:
49970
diff
changeset
|
597 nil nil |
63bfe3825510
(makefile-font-lock-syntactic-keywords): New variable.
Juanma Barranquero <lekktu@gmail.com>
parents:
49970
diff
changeset
|
598 ((?$ . ".")) |
63bfe3825510
(makefile-font-lock-syntactic-keywords): New variable.
Juanma Barranquero <lekktu@gmail.com>
parents:
49970
diff
changeset
|
599 backward-paragraph |
63bfe3825510
(makefile-font-lock-syntactic-keywords): New variable.
Juanma Barranquero <lekktu@gmail.com>
parents:
49970
diff
changeset
|
600 (font-lock-syntactic-keywords . makefile-font-lock-syntactic-keywords))) |
9454
40340d39257d
(makefile-mode-name): Removed.
Richard M. Stallman <rms@gnu.org>
parents:
7639
diff
changeset
|
601 |
40340d39257d
(makefile-mode-name): Removed.
Richard M. Stallman <rms@gnu.org>
parents:
7639
diff
changeset
|
602 ;; Add-log. |
40340d39257d
(makefile-mode-name): Removed.
Richard M. Stallman <rms@gnu.org>
parents:
7639
diff
changeset
|
603 (make-local-variable 'add-log-current-defun-function) |
40340d39257d
(makefile-mode-name): Removed.
Richard M. Stallman <rms@gnu.org>
parents:
7639
diff
changeset
|
604 (setq add-log-current-defun-function 'makefile-add-log-defun) |
40340d39257d
(makefile-mode-name): Removed.
Richard M. Stallman <rms@gnu.org>
parents:
7639
diff
changeset
|
605 |
40340d39257d
(makefile-mode-name): Removed.
Richard M. Stallman <rms@gnu.org>
parents:
7639
diff
changeset
|
606 ;; Imenu. |
24248
fd94cf07b4cc
(makefile-imenu-generic-expression): New var.
Richard M. Stallman <rms@gnu.org>
parents:
22837
diff
changeset
|
607 (make-local-variable 'imenu-generic-expression) |
fd94cf07b4cc
(makefile-imenu-generic-expression): New var.
Richard M. Stallman <rms@gnu.org>
parents:
22837
diff
changeset
|
608 (setq imenu-generic-expression makefile-imenu-generic-expression) |
9454
40340d39257d
(makefile-mode-name): Removed.
Richard M. Stallman <rms@gnu.org>
parents:
7639
diff
changeset
|
609 |
11638
2b1d5f2e99cc
(makefile-mode): Set dabbrev-abbrev-skip-leading-regexp.
Richard M. Stallman <rms@gnu.org>
parents:
9758
diff
changeset
|
610 ;; Dabbrev. |
2b1d5f2e99cc
(makefile-mode): Set dabbrev-abbrev-skip-leading-regexp.
Richard M. Stallman <rms@gnu.org>
parents:
9758
diff
changeset
|
611 (make-local-variable 'dabbrev-abbrev-skip-leading-regexp) |
2b1d5f2e99cc
(makefile-mode): Set dabbrev-abbrev-skip-leading-regexp.
Richard M. Stallman <rms@gnu.org>
parents:
9758
diff
changeset
|
612 (setq dabbrev-abbrev-skip-leading-regexp "\\$") |
2b1d5f2e99cc
(makefile-mode): Set dabbrev-abbrev-skip-leading-regexp.
Richard M. Stallman <rms@gnu.org>
parents:
9758
diff
changeset
|
613 |
28503 | 614 ;; Other abbrevs. |
615 (setq local-abbrev-table makefile-mode-abbrev-table) | |
616 | |
17240
9e236e540a59
(makefile-backslash-align): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
17142
diff
changeset
|
617 ;; Filling. |
9e236e540a59
(makefile-backslash-align): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
17142
diff
changeset
|
618 (make-local-variable 'fill-paragraph-function) |
9e236e540a59
(makefile-backslash-align): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
17142
diff
changeset
|
619 (setq fill-paragraph-function 'makefile-fill-paragraph) |
9e236e540a59
(makefile-backslash-align): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
17142
diff
changeset
|
620 |
9454
40340d39257d
(makefile-mode-name): Removed.
Richard M. Stallman <rms@gnu.org>
parents:
7639
diff
changeset
|
621 ;; Comment stuff. |
5464
4823e14b1314
(makefile-mode): Make comment-start, comment-end,
Richard M. Stallman <rms@gnu.org>
parents:
5312
diff
changeset
|
622 (make-local-variable 'comment-start) |
9454
40340d39257d
(makefile-mode-name): Removed.
Richard M. Stallman <rms@gnu.org>
parents:
7639
diff
changeset
|
623 (setq comment-start "#") |
5464
4823e14b1314
(makefile-mode): Make comment-start, comment-end,
Richard M. Stallman <rms@gnu.org>
parents:
5312
diff
changeset
|
624 (make-local-variable 'comment-end) |
9454
40340d39257d
(makefile-mode-name): Removed.
Richard M. Stallman <rms@gnu.org>
parents:
7639
diff
changeset
|
625 (setq comment-end "") |
5464
4823e14b1314
(makefile-mode): Make comment-start, comment-end,
Richard M. Stallman <rms@gnu.org>
parents:
5312
diff
changeset
|
626 (make-local-variable 'comment-start-skip) |
9454
40340d39257d
(makefile-mode-name): Removed.
Richard M. Stallman <rms@gnu.org>
parents:
7639
diff
changeset
|
627 (setq comment-start-skip "#+[ \t]*") |
40340d39257d
(makefile-mode-name): Removed.
Richard M. Stallman <rms@gnu.org>
parents:
7639
diff
changeset
|
628 |
41641
66c7637cbf17
Use line-(end|beginning)-position.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
38600
diff
changeset
|
629 ;; Make sure TAB really inserts \t. |
66c7637cbf17
Use line-(end|beginning)-position.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
38600
diff
changeset
|
630 (set (make-local-variable 'indent-line-function) 'indent-to-left-margin) |
66c7637cbf17
Use line-(end|beginning)-position.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
38600
diff
changeset
|
631 |
809 | 632 ;; become the current major mode |
633 (setq major-mode 'makefile-mode) | |
9454
40340d39257d
(makefile-mode-name): Removed.
Richard M. Stallman <rms@gnu.org>
parents:
7639
diff
changeset
|
634 (setq mode-name "Makefile") |
40340d39257d
(makefile-mode-name): Removed.
Richard M. Stallman <rms@gnu.org>
parents:
7639
diff
changeset
|
635 |
40340d39257d
(makefile-mode-name): Removed.
Richard M. Stallman <rms@gnu.org>
parents:
7639
diff
changeset
|
636 ;; Activate keymap and syntax table. |
809 | 637 (use-local-map makefile-mode-map) |
638 (set-syntax-table makefile-mode-syntax-table) | |
9454
40340d39257d
(makefile-mode-name): Removed.
Richard M. Stallman <rms@gnu.org>
parents:
7639
diff
changeset
|
639 |
40340d39257d
(makefile-mode-name): Removed.
Richard M. Stallman <rms@gnu.org>
parents:
7639
diff
changeset
|
640 ;; Real TABs are important in makefiles |
40340d39257d
(makefile-mode-name): Removed.
Richard M. Stallman <rms@gnu.org>
parents:
7639
diff
changeset
|
641 (setq indent-tabs-mode t) |
40340d39257d
(makefile-mode-name): Removed.
Richard M. Stallman <rms@gnu.org>
parents:
7639
diff
changeset
|
642 (run-hooks 'makefile-mode-hook)) |
40340d39257d
(makefile-mode-name): Removed.
Richard M. Stallman <rms@gnu.org>
parents:
7639
diff
changeset
|
643 |
40340d39257d
(makefile-mode-name): Removed.
Richard M. Stallman <rms@gnu.org>
parents:
7639
diff
changeset
|
644 |
40340d39257d
(makefile-mode-name): Removed.
Richard M. Stallman <rms@gnu.org>
parents:
7639
diff
changeset
|
645 |
40340d39257d
(makefile-mode-name): Removed.
Richard M. Stallman <rms@gnu.org>
parents:
7639
diff
changeset
|
646 ;;; Motion code. |
809 | 647 |
648 (defun makefile-next-dependency () | |
12936 | 649 "Move point to the beginning of the next dependency line." |
809 | 650 (interactive) |
651 (let ((here (point))) | |
652 (end-of-line) | |
653 (if (re-search-forward makefile-dependency-regex (point-max) t) | |
654 (progn (beginning-of-line) t) ; indicate success | |
655 (goto-char here) nil))) | |
9454
40340d39257d
(makefile-mode-name): Removed.
Richard M. Stallman <rms@gnu.org>
parents:
7639
diff
changeset
|
656 |
809 | 657 (defun makefile-previous-dependency () |
12936 | 658 "Move point to the beginning of the previous dependency line." |
809 | 659 (interactive) |
660 (let ((here (point))) | |
661 (beginning-of-line) | |
662 (if (re-search-backward makefile-dependency-regex (point-min) t) | |
663 (progn (beginning-of-line) t) ; indicate success | |
664 (goto-char here) nil))) | |
665 | |
9454
40340d39257d
(makefile-mode-name): Removed.
Richard M. Stallman <rms@gnu.org>
parents:
7639
diff
changeset
|
666 |
809 | 667 |
9454
40340d39257d
(makefile-mode-name): Removed.
Richard M. Stallman <rms@gnu.org>
parents:
7639
diff
changeset
|
668 ;;; Electric keys. Blech. |
2559
5f2c2994cbca
Rewritten and simplified, commentary added. It now will usually
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
2534
diff
changeset
|
669 |
9454
40340d39257d
(makefile-mode-name): Removed.
Richard M. Stallman <rms@gnu.org>
parents:
7639
diff
changeset
|
670 (defun makefile-electric-dot (arg) |
40340d39257d
(makefile-mode-name): Removed.
Richard M. Stallman <rms@gnu.org>
parents:
7639
diff
changeset
|
671 "Prompt for the name of a special target to insert. |
40340d39257d
(makefile-mode-name): Removed.
Richard M. Stallman <rms@gnu.org>
parents:
7639
diff
changeset
|
672 Only does electric insertion at beginning of line. |
40340d39257d
(makefile-mode-name): Removed.
Richard M. Stallman <rms@gnu.org>
parents:
7639
diff
changeset
|
673 Anywhere else just self-inserts." |
40340d39257d
(makefile-mode-name): Removed.
Richard M. Stallman <rms@gnu.org>
parents:
7639
diff
changeset
|
674 (interactive "p") |
809 | 675 (if (bolp) |
676 (makefile-insert-special-target) | |
9454
40340d39257d
(makefile-mode-name): Removed.
Richard M. Stallman <rms@gnu.org>
parents:
7639
diff
changeset
|
677 (self-insert-command arg))) |
809 | 678 |
679 (defun makefile-insert-special-target () | |
13995
33b51573611f
(makefile-insert-special-target,
Karl Heuer <kwzh@gnu.org>
parents:
13847
diff
changeset
|
680 "Prompt for and insert a special target name. |
9454
40340d39257d
(makefile-mode-name): Removed.
Richard M. Stallman <rms@gnu.org>
parents:
7639
diff
changeset
|
681 Uses `makefile-special-targets' list." |
809 | 682 (interactive) |
2559
5f2c2994cbca
Rewritten and simplified, commentary added. It now will usually
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
2534
diff
changeset
|
683 (makefile-pickup-targets) |
9454
40340d39257d
(makefile-mode-name): Removed.
Richard M. Stallman <rms@gnu.org>
parents:
7639
diff
changeset
|
684 (let ((special-target |
40340d39257d
(makefile-mode-name): Removed.
Richard M. Stallman <rms@gnu.org>
parents:
7639
diff
changeset
|
685 (completing-read "Special target: " |
40340d39257d
(makefile-mode-name): Removed.
Richard M. Stallman <rms@gnu.org>
parents:
7639
diff
changeset
|
686 makefile-special-targets-list nil nil nil))) |
809 | 687 (if (zerop (length special-target)) |
688 () | |
9454
40340d39257d
(makefile-mode-name): Removed.
Richard M. Stallman <rms@gnu.org>
parents:
7639
diff
changeset
|
689 (insert "." special-target ":") |
809 | 690 (makefile-forward-after-target-colon)))) |
691 | |
9454
40340d39257d
(makefile-mode-name): Removed.
Richard M. Stallman <rms@gnu.org>
parents:
7639
diff
changeset
|
692 (defun makefile-electric-equal (arg) |
40340d39257d
(makefile-mode-name): Removed.
Richard M. Stallman <rms@gnu.org>
parents:
7639
diff
changeset
|
693 "Prompt for name of a macro to insert. |
40340d39257d
(makefile-mode-name): Removed.
Richard M. Stallman <rms@gnu.org>
parents:
7639
diff
changeset
|
694 Only does prompting if point is at beginning of line. |
40340d39257d
(makefile-mode-name): Removed.
Richard M. Stallman <rms@gnu.org>
parents:
7639
diff
changeset
|
695 Anywhere else just self-inserts." |
40340d39257d
(makefile-mode-name): Removed.
Richard M. Stallman <rms@gnu.org>
parents:
7639
diff
changeset
|
696 (interactive "p") |
2559
5f2c2994cbca
Rewritten and simplified, commentary added. It now will usually
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
2534
diff
changeset
|
697 (makefile-pickup-macros) |
809 | 698 (if (bolp) |
699 (call-interactively 'makefile-insert-macro) | |
9454
40340d39257d
(makefile-mode-name): Removed.
Richard M. Stallman <rms@gnu.org>
parents:
7639
diff
changeset
|
700 (self-insert-command arg))) |
809 | 701 |
702 (defun makefile-insert-macro (macro-name) | |
703 "Prepare definition of a new macro." | |
704 (interactive "sMacro Name: ") | |
2559
5f2c2994cbca
Rewritten and simplified, commentary added. It now will usually
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
2534
diff
changeset
|
705 (makefile-pickup-macros) |
809 | 706 (if (not (zerop (length macro-name))) |
707 (progn | |
708 (beginning-of-line) | |
9454
40340d39257d
(makefile-mode-name): Removed.
Richard M. Stallman <rms@gnu.org>
parents:
7639
diff
changeset
|
709 (insert macro-name makefile-macro-assign) |
2559
5f2c2994cbca
Rewritten and simplified, commentary added. It now will usually
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
2534
diff
changeset
|
710 (setq makefile-need-macro-pickup t) |
809 | 711 (makefile-remember-macro macro-name)))) |
712 | |
713 (defun makefile-insert-macro-ref (macro-name) | |
12936 | 714 "Complete on a list of known macros, then insert complete ref at point." |
809 | 715 (interactive |
716 (list | |
2559
5f2c2994cbca
Rewritten and simplified, commentary added. It now will usually
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
2534
diff
changeset
|
717 (progn |
5f2c2994cbca
Rewritten and simplified, commentary added. It now will usually
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
2534
diff
changeset
|
718 (makefile-pickup-macros) |
5f2c2994cbca
Rewritten and simplified, commentary added. It now will usually
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
2534
diff
changeset
|
719 (completing-read "Refer to macro: " makefile-macro-table nil nil nil)))) |
9454
40340d39257d
(makefile-mode-name): Removed.
Richard M. Stallman <rms@gnu.org>
parents:
7639
diff
changeset
|
720 (makefile-do-macro-insertion macro-name)) |
809 | 721 |
722 (defun makefile-insert-target (target-name) | |
723 "Prepare definition of a new target (dependency line)." | |
724 (interactive "sTarget: ") | |
725 (if (not (zerop (length target-name))) | |
726 (progn | |
727 (beginning-of-line) | |
9454
40340d39257d
(makefile-mode-name): Removed.
Richard M. Stallman <rms@gnu.org>
parents:
7639
diff
changeset
|
728 (insert target-name makefile-target-colon) |
809 | 729 (makefile-forward-after-target-colon) |
730 (end-of-line) | |
2559
5f2c2994cbca
Rewritten and simplified, commentary added. It now will usually
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
2534
diff
changeset
|
731 (setq makefile-need-target-pickup t) |
809 | 732 (makefile-remember-target target-name)))) |
733 | |
734 (defun makefile-insert-target-ref (target-name) | |
26136 | 735 "Complete on a list of known targets, then insert TARGET-NAME at point." |
809 | 736 (interactive |
737 (list | |
5312
aad805608eec
(makefile-ignored-files-in-pickup-regex): Supply missing \\.
Richard M. Stallman <rms@gnu.org>
parents:
3591
diff
changeset
|
738 (progn |
2559
5f2c2994cbca
Rewritten and simplified, commentary added. It now will usually
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
2534
diff
changeset
|
739 (makefile-pickup-targets) |
5f2c2994cbca
Rewritten and simplified, commentary added. It now will usually
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
2534
diff
changeset
|
740 (completing-read "Refer to target: " makefile-target-table nil nil nil)))) |
809 | 741 (if (not (zerop (length target-name))) |
9454
40340d39257d
(makefile-mode-name): Removed.
Richard M. Stallman <rms@gnu.org>
parents:
7639
diff
changeset
|
742 (insert target-name " "))) |
809 | 743 |
9454
40340d39257d
(makefile-mode-name): Removed.
Richard M. Stallman <rms@gnu.org>
parents:
7639
diff
changeset
|
744 (defun makefile-electric-colon (arg) |
40340d39257d
(makefile-mode-name): Removed.
Richard M. Stallman <rms@gnu.org>
parents:
7639
diff
changeset
|
745 "Prompt for name of new target. |
40340d39257d
(makefile-mode-name): Removed.
Richard M. Stallman <rms@gnu.org>
parents:
7639
diff
changeset
|
746 Prompting only happens at beginning of line. |
40340d39257d
(makefile-mode-name): Removed.
Richard M. Stallman <rms@gnu.org>
parents:
7639
diff
changeset
|
747 Anywhere else just self-inserts." |
40340d39257d
(makefile-mode-name): Removed.
Richard M. Stallman <rms@gnu.org>
parents:
7639
diff
changeset
|
748 (interactive "p") |
809 | 749 (if (bolp) |
750 (call-interactively 'makefile-insert-target) | |
9454
40340d39257d
(makefile-mode-name): Removed.
Richard M. Stallman <rms@gnu.org>
parents:
7639
diff
changeset
|
751 (self-insert-command arg))) |
40340d39257d
(makefile-mode-name): Removed.
Richard M. Stallman <rms@gnu.org>
parents:
7639
diff
changeset
|
752 |
40340d39257d
(makefile-mode-name): Removed.
Richard M. Stallman <rms@gnu.org>
parents:
7639
diff
changeset
|
753 |
809 | 754 |
755 ;;; ------------------------------------------------------------ | |
756 ;;; Extracting targets and macros from an existing makefile | |
757 ;;; ------------------------------------------------------------ | |
758 | |
759 (defun makefile-pickup-targets () | |
9758
b9084912762f
Changed almost every doc string.
Richard M. Stallman <rms@gnu.org>
parents:
9477
diff
changeset
|
760 "Notice names of all target definitions in Makefile." |
809 | 761 (interactive) |
2559
5f2c2994cbca
Rewritten and simplified, commentary added. It now will usually
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
2534
diff
changeset
|
762 (if (not makefile-need-target-pickup) |
5f2c2994cbca
Rewritten and simplified, commentary added. It now will usually
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
2534
diff
changeset
|
763 nil |
5f2c2994cbca
Rewritten and simplified, commentary added. It now will usually
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
2534
diff
changeset
|
764 (setq makefile-need-target-pickup nil) |
5f2c2994cbca
Rewritten and simplified, commentary added. It now will usually
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
2534
diff
changeset
|
765 (setq makefile-target-table nil) |
5f2c2994cbca
Rewritten and simplified, commentary added. It now will usually
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
2534
diff
changeset
|
766 (setq makefile-has-prereqs nil) |
5f2c2994cbca
Rewritten and simplified, commentary added. It now will usually
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
2534
diff
changeset
|
767 (save-excursion |
5f2c2994cbca
Rewritten and simplified, commentary added. It now will usually
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
2534
diff
changeset
|
768 (goto-char (point-min)) |
47546
2c7b4003c5ad
(makefile-cleanup-continuations-p): Rename to makefile-cleanup-continuations.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
47527
diff
changeset
|
769 (while (re-search-forward makefile-dependency-regex nil t) |
2559
5f2c2994cbca
Rewritten and simplified, commentary added. It now will usually
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
2534
diff
changeset
|
770 (makefile-add-this-line-targets))) |
5f2c2994cbca
Rewritten and simplified, commentary added. It now will usually
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
2534
diff
changeset
|
771 (message "Read targets OK."))) |
809 | 772 |
773 (defun makefile-add-this-line-targets () | |
774 (save-excursion | |
775 (beginning-of-line) | |
2559
5f2c2994cbca
Rewritten and simplified, commentary added. It now will usually
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
2534
diff
changeset
|
776 (let ((done-with-line nil) |
5f2c2994cbca
Rewritten and simplified, commentary added. It now will usually
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
2534
diff
changeset
|
777 (line-number (1+ (count-lines (point-min) (point))))) |
809 | 778 (while (not done-with-line) |
779 (skip-chars-forward " \t") | |
780 (if (not (setq done-with-line (or (eolp) | |
781 (char-equal (char-after (point)) ?:)))) | |
782 (progn | |
783 (let* ((start-of-target-name (point)) | |
784 (target-name | |
785 (progn | |
786 (skip-chars-forward "^ \t:#") | |
2559
5f2c2994cbca
Rewritten and simplified, commentary added. It now will usually
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
2534
diff
changeset
|
787 (buffer-substring start-of-target-name (point)))) |
5f2c2994cbca
Rewritten and simplified, commentary added. It now will usually
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
2534
diff
changeset
|
788 (has-prereqs |
5f2c2994cbca
Rewritten and simplified, commentary added. It now will usually
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
2534
diff
changeset
|
789 (not (looking-at ":[ \t]*$")))) |
5f2c2994cbca
Rewritten and simplified, commentary added. It now will usually
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
2534
diff
changeset
|
790 (if (makefile-remember-target target-name has-prereqs) |
5f2c2994cbca
Rewritten and simplified, commentary added. It now will usually
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
2534
diff
changeset
|
791 (message "Picked up target \"%s\" from line %d" |
5f2c2994cbca
Rewritten and simplified, commentary added. It now will usually
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
2534
diff
changeset
|
792 target-name line-number))))))))) |
809 | 793 |
794 (defun makefile-pickup-macros () | |
9758
b9084912762f
Changed almost every doc string.
Richard M. Stallman <rms@gnu.org>
parents:
9477
diff
changeset
|
795 "Notice names of all macro definitions in Makefile." |
809 | 796 (interactive) |
2559
5f2c2994cbca
Rewritten and simplified, commentary added. It now will usually
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
2534
diff
changeset
|
797 (if (not makefile-need-macro-pickup) |
5f2c2994cbca
Rewritten and simplified, commentary added. It now will usually
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
2534
diff
changeset
|
798 nil |
5f2c2994cbca
Rewritten and simplified, commentary added. It now will usually
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
2534
diff
changeset
|
799 (setq makefile-need-macro-pickup nil) |
5f2c2994cbca
Rewritten and simplified, commentary added. It now will usually
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
2534
diff
changeset
|
800 (setq makefile-macro-table nil) |
5f2c2994cbca
Rewritten and simplified, commentary added. It now will usually
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
2534
diff
changeset
|
801 (save-excursion |
5f2c2994cbca
Rewritten and simplified, commentary added. It now will usually
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
2534
diff
changeset
|
802 (goto-char (point-min)) |
47546
2c7b4003c5ad
(makefile-cleanup-continuations-p): Rename to makefile-cleanup-continuations.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
47527
diff
changeset
|
803 (while (re-search-forward makefile-macroassign-regex nil t) |
2559
5f2c2994cbca
Rewritten and simplified, commentary added. It now will usually
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
2534
diff
changeset
|
804 (makefile-add-this-line-macro) |
5f2c2994cbca
Rewritten and simplified, commentary added. It now will usually
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
2534
diff
changeset
|
805 (forward-line 1))) |
5f2c2994cbca
Rewritten and simplified, commentary added. It now will usually
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
2534
diff
changeset
|
806 (message "Read macros OK."))) |
809 | 807 |
808 (defun makefile-add-this-line-macro () | |
809 (save-excursion | |
810 (beginning-of-line) | |
811 (skip-chars-forward " \t") | |
47546
2c7b4003c5ad
(makefile-cleanup-continuations-p): Rename to makefile-cleanup-continuations.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
47527
diff
changeset
|
812 (unless (eolp) |
2c7b4003c5ad
(makefile-cleanup-continuations-p): Rename to makefile-cleanup-continuations.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
47527
diff
changeset
|
813 (let* ((start-of-macro-name (point)) |
2c7b4003c5ad
(makefile-cleanup-continuations-p): Rename to makefile-cleanup-continuations.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
47527
diff
changeset
|
814 (line-number (1+ (count-lines (point-min) (point)))) |
2c7b4003c5ad
(makefile-cleanup-continuations-p): Rename to makefile-cleanup-continuations.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
47527
diff
changeset
|
815 (macro-name (progn |
2c7b4003c5ad
(makefile-cleanup-continuations-p): Rename to makefile-cleanup-continuations.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
47527
diff
changeset
|
816 (skip-chars-forward "^ \t:#=*") |
2c7b4003c5ad
(makefile-cleanup-continuations-p): Rename to makefile-cleanup-continuations.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
47527
diff
changeset
|
817 (buffer-substring start-of-macro-name (point))))) |
2c7b4003c5ad
(makefile-cleanup-continuations-p): Rename to makefile-cleanup-continuations.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
47527
diff
changeset
|
818 (if (makefile-remember-macro macro-name) |
2c7b4003c5ad
(makefile-cleanup-continuations-p): Rename to makefile-cleanup-continuations.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
47527
diff
changeset
|
819 (message "Picked up macro \"%s\" from line %d" |
2c7b4003c5ad
(makefile-cleanup-continuations-p): Rename to makefile-cleanup-continuations.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
47527
diff
changeset
|
820 macro-name line-number)))))) |
809 | 821 |
9454
40340d39257d
(makefile-mode-name): Removed.
Richard M. Stallman <rms@gnu.org>
parents:
7639
diff
changeset
|
822 (defun makefile-pickup-everything (arg) |
9758
b9084912762f
Changed almost every doc string.
Richard M. Stallman <rms@gnu.org>
parents:
9477
diff
changeset
|
823 "Notice names of all macros and targets in Makefile. |
9454
40340d39257d
(makefile-mode-name): Removed.
Richard M. Stallman <rms@gnu.org>
parents:
7639
diff
changeset
|
824 Prefix arg means force pickups to be redone." |
40340d39257d
(makefile-mode-name): Removed.
Richard M. Stallman <rms@gnu.org>
parents:
7639
diff
changeset
|
825 (interactive "P") |
40340d39257d
(makefile-mode-name): Removed.
Richard M. Stallman <rms@gnu.org>
parents:
7639
diff
changeset
|
826 (if arg |
40340d39257d
(makefile-mode-name): Removed.
Richard M. Stallman <rms@gnu.org>
parents:
7639
diff
changeset
|
827 (progn |
40340d39257d
(makefile-mode-name): Removed.
Richard M. Stallman <rms@gnu.org>
parents:
7639
diff
changeset
|
828 (setq makefile-need-target-pickup t) |
40340d39257d
(makefile-mode-name): Removed.
Richard M. Stallman <rms@gnu.org>
parents:
7639
diff
changeset
|
829 (setq makefile-need-macro-pickup t))) |
809 | 830 (makefile-pickup-macros) |
831 (makefile-pickup-targets) | |
832 (if makefile-pickup-everything-picks-up-filenames-p | |
833 (makefile-pickup-filenames-as-targets))) | |
834 | |
835 (defun makefile-pickup-filenames-as-targets () | |
9758
b9084912762f
Changed almost every doc string.
Richard M. Stallman <rms@gnu.org>
parents:
9477
diff
changeset
|
836 "Scan the current directory for filenames to use as targets. |
b9084912762f
Changed almost every doc string.
Richard M. Stallman <rms@gnu.org>
parents:
9477
diff
changeset
|
837 Checks each filename against `makefile-ignored-files-in-pickup-regex' |
b9084912762f
Changed almost every doc string.
Richard M. Stallman <rms@gnu.org>
parents:
9477
diff
changeset
|
838 and adds all qualifying names to the list of known targets." |
809 | 839 (interactive) |
840 (let* ((dir (file-name-directory (buffer-file-name))) | |
841 (raw-filename-list (if dir | |
842 (file-name-all-completions "" dir) | |
843 (file-name-all-completions "" "")))) | |
29589
793e4f0f455a
(makefile-pickup-filenames-as-targets): Don't quote lambda.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
28802
diff
changeset
|
844 (mapcar (lambda (name) |
809 | 845 (if (and (not (file-directory-p name)) |
846 (not (string-match makefile-ignored-files-in-pickup-regex | |
847 name))) | |
848 (if (makefile-remember-target name) | |
849 (message "Picked up file \"%s\" as target" name)))) | |
850 raw-filename-list))) | |
851 | |
9454
40340d39257d
(makefile-mode-name): Removed.
Richard M. Stallman <rms@gnu.org>
parents:
7639
diff
changeset
|
852 |
40340d39257d
(makefile-mode-name): Removed.
Richard M. Stallman <rms@gnu.org>
parents:
7639
diff
changeset
|
853 |
40340d39257d
(makefile-mode-name): Removed.
Richard M. Stallman <rms@gnu.org>
parents:
7639
diff
changeset
|
854 ;;; Completion. |
40340d39257d
(makefile-mode-name): Removed.
Richard M. Stallman <rms@gnu.org>
parents:
7639
diff
changeset
|
855 |
40340d39257d
(makefile-mode-name): Removed.
Richard M. Stallman <rms@gnu.org>
parents:
7639
diff
changeset
|
856 (defun makefile-complete () |
40340d39257d
(makefile-mode-name): Removed.
Richard M. Stallman <rms@gnu.org>
parents:
7639
diff
changeset
|
857 "Perform completion on Makefile construct preceding point. |
40340d39257d
(makefile-mode-name): Removed.
Richard M. Stallman <rms@gnu.org>
parents:
7639
diff
changeset
|
858 Can complete variable and target names. |
40340d39257d
(makefile-mode-name): Removed.
Richard M. Stallman <rms@gnu.org>
parents:
7639
diff
changeset
|
859 The context determines which are considered." |
40340d39257d
(makefile-mode-name): Removed.
Richard M. Stallman <rms@gnu.org>
parents:
7639
diff
changeset
|
860 (interactive) |
40340d39257d
(makefile-mode-name): Removed.
Richard M. Stallman <rms@gnu.org>
parents:
7639
diff
changeset
|
861 (let* ((beg (save-excursion |
40340d39257d
(makefile-mode-name): Removed.
Richard M. Stallman <rms@gnu.org>
parents:
7639
diff
changeset
|
862 (skip-chars-backward "^$(){}:#= \t\n") |
40340d39257d
(makefile-mode-name): Removed.
Richard M. Stallman <rms@gnu.org>
parents:
7639
diff
changeset
|
863 (point))) |
40340d39257d
(makefile-mode-name): Removed.
Richard M. Stallman <rms@gnu.org>
parents:
7639
diff
changeset
|
864 (try (buffer-substring beg (point))) |
40340d39257d
(makefile-mode-name): Removed.
Richard M. Stallman <rms@gnu.org>
parents:
7639
diff
changeset
|
865 (do-macros nil) |
40340d39257d
(makefile-mode-name): Removed.
Richard M. Stallman <rms@gnu.org>
parents:
7639
diff
changeset
|
866 (paren nil)) |
40340d39257d
(makefile-mode-name): Removed.
Richard M. Stallman <rms@gnu.org>
parents:
7639
diff
changeset
|
867 |
40340d39257d
(makefile-mode-name): Removed.
Richard M. Stallman <rms@gnu.org>
parents:
7639
diff
changeset
|
868 (save-excursion |
40340d39257d
(makefile-mode-name): Removed.
Richard M. Stallman <rms@gnu.org>
parents:
7639
diff
changeset
|
869 (goto-char beg) |
40340d39257d
(makefile-mode-name): Removed.
Richard M. Stallman <rms@gnu.org>
parents:
7639
diff
changeset
|
870 (let ((pc (preceding-char))) |
40340d39257d
(makefile-mode-name): Removed.
Richard M. Stallman <rms@gnu.org>
parents:
7639
diff
changeset
|
871 (cond |
40340d39257d
(makefile-mode-name): Removed.
Richard M. Stallman <rms@gnu.org>
parents:
7639
diff
changeset
|
872 ;; Beginning of line means anything. |
40340d39257d
(makefile-mode-name): Removed.
Richard M. Stallman <rms@gnu.org>
parents:
7639
diff
changeset
|
873 ((bolp) |
40340d39257d
(makefile-mode-name): Removed.
Richard M. Stallman <rms@gnu.org>
parents:
7639
diff
changeset
|
874 ()) |
40340d39257d
(makefile-mode-name): Removed.
Richard M. Stallman <rms@gnu.org>
parents:
7639
diff
changeset
|
875 |
40340d39257d
(makefile-mode-name): Removed.
Richard M. Stallman <rms@gnu.org>
parents:
7639
diff
changeset
|
876 ;; Preceding "$" means macros only. |
40340d39257d
(makefile-mode-name): Removed.
Richard M. Stallman <rms@gnu.org>
parents:
7639
diff
changeset
|
877 ((= pc ?$) |
40340d39257d
(makefile-mode-name): Removed.
Richard M. Stallman <rms@gnu.org>
parents:
7639
diff
changeset
|
878 (setq do-macros t)) |
40340d39257d
(makefile-mode-name): Removed.
Richard M. Stallman <rms@gnu.org>
parents:
7639
diff
changeset
|
879 |
40340d39257d
(makefile-mode-name): Removed.
Richard M. Stallman <rms@gnu.org>
parents:
7639
diff
changeset
|
880 ;; Preceding "$(" or "${" means macros only. |
40340d39257d
(makefile-mode-name): Removed.
Richard M. Stallman <rms@gnu.org>
parents:
7639
diff
changeset
|
881 ((and (or (= pc ?{) |
40340d39257d
(makefile-mode-name): Removed.
Richard M. Stallman <rms@gnu.org>
parents:
7639
diff
changeset
|
882 (= pc ?\()) |
40340d39257d
(makefile-mode-name): Removed.
Richard M. Stallman <rms@gnu.org>
parents:
7639
diff
changeset
|
883 (progn |
40340d39257d
(makefile-mode-name): Removed.
Richard M. Stallman <rms@gnu.org>
parents:
7639
diff
changeset
|
884 (setq paren pc) |
40340d39257d
(makefile-mode-name): Removed.
Richard M. Stallman <rms@gnu.org>
parents:
7639
diff
changeset
|
885 (backward-char) |
40340d39257d
(makefile-mode-name): Removed.
Richard M. Stallman <rms@gnu.org>
parents:
7639
diff
changeset
|
886 (and (not (bolp)) |
40340d39257d
(makefile-mode-name): Removed.
Richard M. Stallman <rms@gnu.org>
parents:
7639
diff
changeset
|
887 (= (preceding-char) ?$)))) |
40340d39257d
(makefile-mode-name): Removed.
Richard M. Stallman <rms@gnu.org>
parents:
7639
diff
changeset
|
888 (setq do-macros t))))) |
40340d39257d
(makefile-mode-name): Removed.
Richard M. Stallman <rms@gnu.org>
parents:
7639
diff
changeset
|
889 |
40340d39257d
(makefile-mode-name): Removed.
Richard M. Stallman <rms@gnu.org>
parents:
7639
diff
changeset
|
890 ;; Try completion. |
40340d39257d
(makefile-mode-name): Removed.
Richard M. Stallman <rms@gnu.org>
parents:
7639
diff
changeset
|
891 (let* ((table (append (if do-macros |
40340d39257d
(makefile-mode-name): Removed.
Richard M. Stallman <rms@gnu.org>
parents:
7639
diff
changeset
|
892 '() |
40340d39257d
(makefile-mode-name): Removed.
Richard M. Stallman <rms@gnu.org>
parents:
7639
diff
changeset
|
893 makefile-target-table) |
40340d39257d
(makefile-mode-name): Removed.
Richard M. Stallman <rms@gnu.org>
parents:
7639
diff
changeset
|
894 makefile-macro-table)) |
40340d39257d
(makefile-mode-name): Removed.
Richard M. Stallman <rms@gnu.org>
parents:
7639
diff
changeset
|
895 (completion (try-completion try table))) |
40340d39257d
(makefile-mode-name): Removed.
Richard M. Stallman <rms@gnu.org>
parents:
7639
diff
changeset
|
896 (cond |
40340d39257d
(makefile-mode-name): Removed.
Richard M. Stallman <rms@gnu.org>
parents:
7639
diff
changeset
|
897 ;; Exact match, so insert closing paren or colon. |
40340d39257d
(makefile-mode-name): Removed.
Richard M. Stallman <rms@gnu.org>
parents:
7639
diff
changeset
|
898 ((eq completion t) |
40340d39257d
(makefile-mode-name): Removed.
Richard M. Stallman <rms@gnu.org>
parents:
7639
diff
changeset
|
899 (insert (if do-macros |
40340d39257d
(makefile-mode-name): Removed.
Richard M. Stallman <rms@gnu.org>
parents:
7639
diff
changeset
|
900 (if (eq paren ?{) |
40340d39257d
(makefile-mode-name): Removed.
Richard M. Stallman <rms@gnu.org>
parents:
7639
diff
changeset
|
901 ?} |
40340d39257d
(makefile-mode-name): Removed.
Richard M. Stallman <rms@gnu.org>
parents:
7639
diff
changeset
|
902 ?\)) |
40340d39257d
(makefile-mode-name): Removed.
Richard M. Stallman <rms@gnu.org>
parents:
7639
diff
changeset
|
903 (if (save-excursion |
40340d39257d
(makefile-mode-name): Removed.
Richard M. Stallman <rms@gnu.org>
parents:
7639
diff
changeset
|
904 (goto-char beg) |
40340d39257d
(makefile-mode-name): Removed.
Richard M. Stallman <rms@gnu.org>
parents:
7639
diff
changeset
|
905 (bolp)) |
40340d39257d
(makefile-mode-name): Removed.
Richard M. Stallman <rms@gnu.org>
parents:
7639
diff
changeset
|
906 ":" |
40340d39257d
(makefile-mode-name): Removed.
Richard M. Stallman <rms@gnu.org>
parents:
7639
diff
changeset
|
907 " ")))) |
40340d39257d
(makefile-mode-name): Removed.
Richard M. Stallman <rms@gnu.org>
parents:
7639
diff
changeset
|
908 |
40340d39257d
(makefile-mode-name): Removed.
Richard M. Stallman <rms@gnu.org>
parents:
7639
diff
changeset
|
909 ;; No match. |
40340d39257d
(makefile-mode-name): Removed.
Richard M. Stallman <rms@gnu.org>
parents:
7639
diff
changeset
|
910 ((null completion) |
40340d39257d
(makefile-mode-name): Removed.
Richard M. Stallman <rms@gnu.org>
parents:
7639
diff
changeset
|
911 (message "Can't find completion for \"%s\"" try) |
40340d39257d
(makefile-mode-name): Removed.
Richard M. Stallman <rms@gnu.org>
parents:
7639
diff
changeset
|
912 (ding)) |
40340d39257d
(makefile-mode-name): Removed.
Richard M. Stallman <rms@gnu.org>
parents:
7639
diff
changeset
|
913 |
40340d39257d
(makefile-mode-name): Removed.
Richard M. Stallman <rms@gnu.org>
parents:
7639
diff
changeset
|
914 ;; Partial completion. |
40340d39257d
(makefile-mode-name): Removed.
Richard M. Stallman <rms@gnu.org>
parents:
7639
diff
changeset
|
915 ((not (string= try completion)) |
40340d39257d
(makefile-mode-name): Removed.
Richard M. Stallman <rms@gnu.org>
parents:
7639
diff
changeset
|
916 ;; FIXME it would be nice to supply the closing paren if an |
40340d39257d
(makefile-mode-name): Removed.
Richard M. Stallman <rms@gnu.org>
parents:
7639
diff
changeset
|
917 ;; exact, unambiguous match were found. That is not possible |
40340d39257d
(makefile-mode-name): Removed.
Richard M. Stallman <rms@gnu.org>
parents:
7639
diff
changeset
|
918 ;; right now. Ditto closing ":" for targets. |
40340d39257d
(makefile-mode-name): Removed.
Richard M. Stallman <rms@gnu.org>
parents:
7639
diff
changeset
|
919 (delete-region beg (point)) |
40340d39257d
(makefile-mode-name): Removed.
Richard M. Stallman <rms@gnu.org>
parents:
7639
diff
changeset
|
920 |
40340d39257d
(makefile-mode-name): Removed.
Richard M. Stallman <rms@gnu.org>
parents:
7639
diff
changeset
|
921 ;; DO-MACROS means doing macros only. If not that, then check |
40340d39257d
(makefile-mode-name): Removed.
Richard M. Stallman <rms@gnu.org>
parents:
7639
diff
changeset
|
922 ;; to see if this completion is a macro. Special insertion |
40340d39257d
(makefile-mode-name): Removed.
Richard M. Stallman <rms@gnu.org>
parents:
7639
diff
changeset
|
923 ;; must be done for macros. |
40340d39257d
(makefile-mode-name): Removed.
Richard M. Stallman <rms@gnu.org>
parents:
7639
diff
changeset
|
924 (if (or do-macros |
40340d39257d
(makefile-mode-name): Removed.
Richard M. Stallman <rms@gnu.org>
parents:
7639
diff
changeset
|
925 (assoc completion makefile-macro-table)) |
40340d39257d
(makefile-mode-name): Removed.
Richard M. Stallman <rms@gnu.org>
parents:
7639
diff
changeset
|
926 (let ((makefile-use-curly-braces-for-macros-p |
40340d39257d
(makefile-mode-name): Removed.
Richard M. Stallman <rms@gnu.org>
parents:
7639
diff
changeset
|
927 (or (eq paren ?{) |
40340d39257d
(makefile-mode-name): Removed.
Richard M. Stallman <rms@gnu.org>
parents:
7639
diff
changeset
|
928 makefile-use-curly-braces-for-macros-p))) |
40340d39257d
(makefile-mode-name): Removed.
Richard M. Stallman <rms@gnu.org>
parents:
7639
diff
changeset
|
929 (delete-backward-char 2) |
40340d39257d
(makefile-mode-name): Removed.
Richard M. Stallman <rms@gnu.org>
parents:
7639
diff
changeset
|
930 (makefile-do-macro-insertion completion) |
40340d39257d
(makefile-mode-name): Removed.
Richard M. Stallman <rms@gnu.org>
parents:
7639
diff
changeset
|
931 (delete-backward-char 1)) |
40340d39257d
(makefile-mode-name): Removed.
Richard M. Stallman <rms@gnu.org>
parents:
7639
diff
changeset
|
932 |
40340d39257d
(makefile-mode-name): Removed.
Richard M. Stallman <rms@gnu.org>
parents:
7639
diff
changeset
|
933 ;; Just insert targets. |
40340d39257d
(makefile-mode-name): Removed.
Richard M. Stallman <rms@gnu.org>
parents:
7639
diff
changeset
|
934 (insert completion))) |
40340d39257d
(makefile-mode-name): Removed.
Richard M. Stallman <rms@gnu.org>
parents:
7639
diff
changeset
|
935 |
40340d39257d
(makefile-mode-name): Removed.
Richard M. Stallman <rms@gnu.org>
parents:
7639
diff
changeset
|
936 ;; Can't complete any more, so make completion list. FIXME |
40340d39257d
(makefile-mode-name): Removed.
Richard M. Stallman <rms@gnu.org>
parents:
7639
diff
changeset
|
937 ;; this doesn't do the right thing when the completion is |
40340d39257d
(makefile-mode-name): Removed.
Richard M. Stallman <rms@gnu.org>
parents:
7639
diff
changeset
|
938 ;; actually inserted. I don't think there is an easy way to do |
40340d39257d
(makefile-mode-name): Removed.
Richard M. Stallman <rms@gnu.org>
parents:
7639
diff
changeset
|
939 ;; that. |
40340d39257d
(makefile-mode-name): Removed.
Richard M. Stallman <rms@gnu.org>
parents:
7639
diff
changeset
|
940 (t |
40340d39257d
(makefile-mode-name): Removed.
Richard M. Stallman <rms@gnu.org>
parents:
7639
diff
changeset
|
941 (message "Making completion list...") |
40340d39257d
(makefile-mode-name): Removed.
Richard M. Stallman <rms@gnu.org>
parents:
7639
diff
changeset
|
942 (let ((list (all-completions try table))) |
40340d39257d
(makefile-mode-name): Removed.
Richard M. Stallman <rms@gnu.org>
parents:
7639
diff
changeset
|
943 (with-output-to-temp-buffer "*Completions*" |
40340d39257d
(makefile-mode-name): Removed.
Richard M. Stallman <rms@gnu.org>
parents:
7639
diff
changeset
|
944 (display-completion-list list))) |
40340d39257d
(makefile-mode-name): Removed.
Richard M. Stallman <rms@gnu.org>
parents:
7639
diff
changeset
|
945 (message "Making completion list...done")))))) |
40340d39257d
(makefile-mode-name): Removed.
Richard M. Stallman <rms@gnu.org>
parents:
7639
diff
changeset
|
946 |
40340d39257d
(makefile-mode-name): Removed.
Richard M. Stallman <rms@gnu.org>
parents:
7639
diff
changeset
|
947 |
40340d39257d
(makefile-mode-name): Removed.
Richard M. Stallman <rms@gnu.org>
parents:
7639
diff
changeset
|
948 |
9758
b9084912762f
Changed almost every doc string.
Richard M. Stallman <rms@gnu.org>
parents:
9477
diff
changeset
|
949 ;; Backslashification. Stolen from cc-mode.el. |
b9084912762f
Changed almost every doc string.
Richard M. Stallman <rms@gnu.org>
parents:
9477
diff
changeset
|
950 |
17240
9e236e540a59
(makefile-backslash-align): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
17142
diff
changeset
|
951 (defun makefile-backslash-region (from to delete-flag) |
9e236e540a59
(makefile-backslash-align): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
17142
diff
changeset
|
952 "Insert, align, or delete end-of-line backslashes on the lines in the region. |
9e236e540a59
(makefile-backslash-align): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
17142
diff
changeset
|
953 With no argument, inserts backslashes and aligns existing backslashes. |
9e236e540a59
(makefile-backslash-align): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
17142
diff
changeset
|
954 With an argument, deletes the backslashes. |
9758
b9084912762f
Changed almost every doc string.
Richard M. Stallman <rms@gnu.org>
parents:
9477
diff
changeset
|
955 |
26136 | 956 This function does not modify the last line of the region if the region ends |
17240
9e236e540a59
(makefile-backslash-align): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
17142
diff
changeset
|
957 right at the start of the following line; it does not modify blank lines |
9e236e540a59
(makefile-backslash-align): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
17142
diff
changeset
|
958 at the start of the region. So you can put the region around an entire macro |
9e236e540a59
(makefile-backslash-align): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
17142
diff
changeset
|
959 definition and conveniently use this command." |
9758
b9084912762f
Changed almost every doc string.
Richard M. Stallman <rms@gnu.org>
parents:
9477
diff
changeset
|
960 (interactive "r\nP") |
b9084912762f
Changed almost every doc string.
Richard M. Stallman <rms@gnu.org>
parents:
9477
diff
changeset
|
961 (save-excursion |
17240
9e236e540a59
(makefile-backslash-align): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
17142
diff
changeset
|
962 (goto-char from) |
9e236e540a59
(makefile-backslash-align): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
17142
diff
changeset
|
963 (let ((column makefile-backslash-column) |
9e236e540a59
(makefile-backslash-align): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
17142
diff
changeset
|
964 (endmark (make-marker))) |
9e236e540a59
(makefile-backslash-align): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
17142
diff
changeset
|
965 (move-marker endmark to) |
9e236e540a59
(makefile-backslash-align): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
17142
diff
changeset
|
966 ;; Compute the smallest column number past the ends of all the lines. |
9e236e540a59
(makefile-backslash-align): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
17142
diff
changeset
|
967 (if makefile-backslash-align |
9e236e540a59
(makefile-backslash-align): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
17142
diff
changeset
|
968 (progn |
9e236e540a59
(makefile-backslash-align): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
17142
diff
changeset
|
969 (if (not delete-flag) |
9e236e540a59
(makefile-backslash-align): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
17142
diff
changeset
|
970 (while (< (point) to) |
9e236e540a59
(makefile-backslash-align): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
17142
diff
changeset
|
971 (end-of-line) |
9e236e540a59
(makefile-backslash-align): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
17142
diff
changeset
|
972 (if (= (preceding-char) ?\\) |
9e236e540a59
(makefile-backslash-align): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
17142
diff
changeset
|
973 (progn (forward-char -1) |
9e236e540a59
(makefile-backslash-align): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
17142
diff
changeset
|
974 (skip-chars-backward " \t"))) |
9e236e540a59
(makefile-backslash-align): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
17142
diff
changeset
|
975 (setq column (max column (1+ (current-column)))) |
9e236e540a59
(makefile-backslash-align): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
17142
diff
changeset
|
976 (forward-line 1))) |
9e236e540a59
(makefile-backslash-align): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
17142
diff
changeset
|
977 ;; Adjust upward to a tab column, if that doesn't push |
9e236e540a59
(makefile-backslash-align): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
17142
diff
changeset
|
978 ;; past the margin. |
9e236e540a59
(makefile-backslash-align): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
17142
diff
changeset
|
979 (if (> (% column tab-width) 0) |
9e236e540a59
(makefile-backslash-align): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
17142
diff
changeset
|
980 (let ((adjusted (* (/ (+ column tab-width -1) tab-width) |
9e236e540a59
(makefile-backslash-align): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
17142
diff
changeset
|
981 tab-width))) |
9e236e540a59
(makefile-backslash-align): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
17142
diff
changeset
|
982 (if (< adjusted (window-width)) |
9e236e540a59
(makefile-backslash-align): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
17142
diff
changeset
|
983 (setq column adjusted)))))) |
9e236e540a59
(makefile-backslash-align): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
17142
diff
changeset
|
984 ;; Don't modify blank lines at start of region. |
9e236e540a59
(makefile-backslash-align): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
17142
diff
changeset
|
985 (goto-char from) |
9e236e540a59
(makefile-backslash-align): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
17142
diff
changeset
|
986 (while (and (< (point) endmark) (eolp)) |
9e236e540a59
(makefile-backslash-align): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
17142
diff
changeset
|
987 (forward-line 1)) |
9e236e540a59
(makefile-backslash-align): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
17142
diff
changeset
|
988 ;; Add or remove backslashes on all the lines. |
9e236e540a59
(makefile-backslash-align): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
17142
diff
changeset
|
989 (while (and (< (point) endmark) |
9e236e540a59
(makefile-backslash-align): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
17142
diff
changeset
|
990 ;; Don't backslashify the last line |
9e236e540a59
(makefile-backslash-align): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
17142
diff
changeset
|
991 ;; if the region ends right at the start of the next line. |
9e236e540a59
(makefile-backslash-align): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
17142
diff
changeset
|
992 (save-excursion |
9e236e540a59
(makefile-backslash-align): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
17142
diff
changeset
|
993 (forward-line 1) |
9e236e540a59
(makefile-backslash-align): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
17142
diff
changeset
|
994 (< (point) endmark))) |
9e236e540a59
(makefile-backslash-align): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
17142
diff
changeset
|
995 (if (not delete-flag) |
9e236e540a59
(makefile-backslash-align): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
17142
diff
changeset
|
996 (makefile-append-backslash column) |
9e236e540a59
(makefile-backslash-align): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
17142
diff
changeset
|
997 (makefile-delete-backslash)) |
9e236e540a59
(makefile-backslash-align): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
17142
diff
changeset
|
998 (forward-line 1)) |
9e236e540a59
(makefile-backslash-align): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
17142
diff
changeset
|
999 (move-marker endmark nil)))) |
9e236e540a59
(makefile-backslash-align): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
17142
diff
changeset
|
1000 |
9e236e540a59
(makefile-backslash-align): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
17142
diff
changeset
|
1001 (defun makefile-append-backslash (column) |
9e236e540a59
(makefile-backslash-align): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
17142
diff
changeset
|
1002 (end-of-line) |
9e236e540a59
(makefile-backslash-align): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
17142
diff
changeset
|
1003 ;; Note that "\\\\" is needed to get one backslash. |
9e236e540a59
(makefile-backslash-align): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
17142
diff
changeset
|
1004 (if (= (preceding-char) ?\\) |
9e236e540a59
(makefile-backslash-align): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
17142
diff
changeset
|
1005 (progn (forward-char -1) |
9e236e540a59
(makefile-backslash-align): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
17142
diff
changeset
|
1006 (delete-horizontal-space) |
9e236e540a59
(makefile-backslash-align): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
17142
diff
changeset
|
1007 (indent-to column (if makefile-backslash-align nil 1))) |
9e236e540a59
(makefile-backslash-align): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
17142
diff
changeset
|
1008 (indent-to column (if makefile-backslash-align nil 1)) |
9e236e540a59
(makefile-backslash-align): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
17142
diff
changeset
|
1009 (insert "\\"))) |
9e236e540a59
(makefile-backslash-align): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
17142
diff
changeset
|
1010 |
9e236e540a59
(makefile-backslash-align): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
17142
diff
changeset
|
1011 (defun makefile-delete-backslash () |
9e236e540a59
(makefile-backslash-align): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
17142
diff
changeset
|
1012 (end-of-line) |
9e236e540a59
(makefile-backslash-align): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
17142
diff
changeset
|
1013 (or (bolp) |
9e236e540a59
(makefile-backslash-align): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
17142
diff
changeset
|
1014 (progn |
9e236e540a59
(makefile-backslash-align): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
17142
diff
changeset
|
1015 (forward-char -1) |
9e236e540a59
(makefile-backslash-align): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
17142
diff
changeset
|
1016 (if (looking-at "\\\\") |
9e236e540a59
(makefile-backslash-align): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
17142
diff
changeset
|
1017 (delete-region (1+ (point)) |
9e236e540a59
(makefile-backslash-align): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
17142
diff
changeset
|
1018 (progn (skip-chars-backward " \t") (point))))))) |
9e236e540a59
(makefile-backslash-align): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
17142
diff
changeset
|
1019 |
9e236e540a59
(makefile-backslash-align): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
17142
diff
changeset
|
1020 |
9e236e540a59
(makefile-backslash-align): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
17142
diff
changeset
|
1021 |
9e236e540a59
(makefile-backslash-align): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
17142
diff
changeset
|
1022 ;; Filling |
9e236e540a59
(makefile-backslash-align): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
17142
diff
changeset
|
1023 |
9e236e540a59
(makefile-backslash-align): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
17142
diff
changeset
|
1024 (defun makefile-fill-paragraph (arg) |
9e236e540a59
(makefile-backslash-align): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
17142
diff
changeset
|
1025 ;; Fill comments, backslashed lines, and variable definitions |
9e236e540a59
(makefile-backslash-align): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
17142
diff
changeset
|
1026 ;; specially. |
9e236e540a59
(makefile-backslash-align): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
17142
diff
changeset
|
1027 (save-excursion |
9e236e540a59
(makefile-backslash-align): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
17142
diff
changeset
|
1028 (beginning-of-line) |
9e236e540a59
(makefile-backslash-align): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
17142
diff
changeset
|
1029 (cond |
9e236e540a59
(makefile-backslash-align): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
17142
diff
changeset
|
1030 ((looking-at "^#+ ") |
47527
7d7d818ed852
(makefile-fill-paragraph): Find comment boundaries before filling.
Richard M. Stallman <rms@gnu.org>
parents:
41642
diff
changeset
|
1031 ;; Found a comment. Set the fill prefix, and find the paragraph |
7d7d818ed852
(makefile-fill-paragraph): Find comment boundaries before filling.
Richard M. Stallman <rms@gnu.org>
parents:
41642
diff
changeset
|
1032 ;; boundaries by searching for lines that look like comment-only |
7d7d818ed852
(makefile-fill-paragraph): Find comment boundaries before filling.
Richard M. Stallman <rms@gnu.org>
parents:
41642
diff
changeset
|
1033 ;; lines. |
47546
2c7b4003c5ad
(makefile-cleanup-continuations-p): Rename to makefile-cleanup-continuations.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
47527
diff
changeset
|
1034 (let ((fill-prefix (match-string-no-properties 0)) |
17240
9e236e540a59
(makefile-backslash-align): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
17142
diff
changeset
|
1035 (fill-paragraph-function nil)) |
47527
7d7d818ed852
(makefile-fill-paragraph): Find comment boundaries before filling.
Richard M. Stallman <rms@gnu.org>
parents:
41642
diff
changeset
|
1036 (save-excursion |
7d7d818ed852
(makefile-fill-paragraph): Find comment boundaries before filling.
Richard M. Stallman <rms@gnu.org>
parents:
41642
diff
changeset
|
1037 (save-restriction |
7d7d818ed852
(makefile-fill-paragraph): Find comment boundaries before filling.
Richard M. Stallman <rms@gnu.org>
parents:
41642
diff
changeset
|
1038 (narrow-to-region |
7d7d818ed852
(makefile-fill-paragraph): Find comment boundaries before filling.
Richard M. Stallman <rms@gnu.org>
parents:
41642
diff
changeset
|
1039 ;; Search backwards. |
7d7d818ed852
(makefile-fill-paragraph): Find comment boundaries before filling.
Richard M. Stallman <rms@gnu.org>
parents:
41642
diff
changeset
|
1040 (save-excursion |
7d7d818ed852
(makefile-fill-paragraph): Find comment boundaries before filling.
Richard M. Stallman <rms@gnu.org>
parents:
41642
diff
changeset
|
1041 (while (and (zerop (forward-line -1)) |
7d7d818ed852
(makefile-fill-paragraph): Find comment boundaries before filling.
Richard M. Stallman <rms@gnu.org>
parents:
41642
diff
changeset
|
1042 (looking-at "^#"))) |
7d7d818ed852
(makefile-fill-paragraph): Find comment boundaries before filling.
Richard M. Stallman <rms@gnu.org>
parents:
41642
diff
changeset
|
1043 ;; We may have gone too far. Go forward again. |
7d7d818ed852
(makefile-fill-paragraph): Find comment boundaries before filling.
Richard M. Stallman <rms@gnu.org>
parents:
41642
diff
changeset
|
1044 (or (looking-at "^#") |
7d7d818ed852
(makefile-fill-paragraph): Find comment boundaries before filling.
Richard M. Stallman <rms@gnu.org>
parents:
41642
diff
changeset
|
1045 (forward-line 1)) |
7d7d818ed852
(makefile-fill-paragraph): Find comment boundaries before filling.
Richard M. Stallman <rms@gnu.org>
parents:
41642
diff
changeset
|
1046 (point)) |
7d7d818ed852
(makefile-fill-paragraph): Find comment boundaries before filling.
Richard M. Stallman <rms@gnu.org>
parents:
41642
diff
changeset
|
1047 ;; Search forwards. |
7d7d818ed852
(makefile-fill-paragraph): Find comment boundaries before filling.
Richard M. Stallman <rms@gnu.org>
parents:
41642
diff
changeset
|
1048 (save-excursion |
7d7d818ed852
(makefile-fill-paragraph): Find comment boundaries before filling.
Richard M. Stallman <rms@gnu.org>
parents:
41642
diff
changeset
|
1049 (while (looking-at "^#") |
7d7d818ed852
(makefile-fill-paragraph): Find comment boundaries before filling.
Richard M. Stallman <rms@gnu.org>
parents:
41642
diff
changeset
|
1050 (forward-line)) |
7d7d818ed852
(makefile-fill-paragraph): Find comment boundaries before filling.
Richard M. Stallman <rms@gnu.org>
parents:
41642
diff
changeset
|
1051 (point))) |
7d7d818ed852
(makefile-fill-paragraph): Find comment boundaries before filling.
Richard M. Stallman <rms@gnu.org>
parents:
41642
diff
changeset
|
1052 (fill-paragraph nil) |
7d7d818ed852
(makefile-fill-paragraph): Find comment boundaries before filling.
Richard M. Stallman <rms@gnu.org>
parents:
41642
diff
changeset
|
1053 t)))) |
17240
9e236e540a59
(makefile-backslash-align): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
17142
diff
changeset
|
1054 |
9e236e540a59
(makefile-backslash-align): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
17142
diff
changeset
|
1055 ;; Must look for backslashed-region before looking for variable |
9e236e540a59
(makefile-backslash-align): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
17142
diff
changeset
|
1056 ;; assignment. |
47546
2c7b4003c5ad
(makefile-cleanup-continuations-p): Rename to makefile-cleanup-continuations.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
47527
diff
changeset
|
1057 ((or (eq (char-before (line-end-position 1)) ?\\) |
2c7b4003c5ad
(makefile-cleanup-continuations-p): Rename to makefile-cleanup-continuations.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
47527
diff
changeset
|
1058 (eq (char-before (line-end-position 0)) ?\\)) |
17240
9e236e540a59
(makefile-backslash-align): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
17142
diff
changeset
|
1059 ;; A backslash region. Find beginning and end, remove |
9e236e540a59
(makefile-backslash-align): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
17142
diff
changeset
|
1060 ;; backslashes, fill, and then reapply backslahes. |
9e236e540a59
(makefile-backslash-align): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
17142
diff
changeset
|
1061 (end-of-line) |
9e236e540a59
(makefile-backslash-align): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
17142
diff
changeset
|
1062 (let ((beginning |
9e236e540a59
(makefile-backslash-align): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
17142
diff
changeset
|
1063 (save-excursion |
9e236e540a59
(makefile-backslash-align): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
17142
diff
changeset
|
1064 (end-of-line 0) |
9e236e540a59
(makefile-backslash-align): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
17142
diff
changeset
|
1065 (while (= (preceding-char) ?\\) |
9e236e540a59
(makefile-backslash-align): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
17142
diff
changeset
|
1066 (end-of-line 0)) |
9e236e540a59
(makefile-backslash-align): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
17142
diff
changeset
|
1067 (forward-char) |
9e236e540a59
(makefile-backslash-align): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
17142
diff
changeset
|
1068 (point))) |
9e236e540a59
(makefile-backslash-align): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
17142
diff
changeset
|
1069 (end |
9e236e540a59
(makefile-backslash-align): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
17142
diff
changeset
|
1070 (save-excursion |
9e236e540a59
(makefile-backslash-align): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
17142
diff
changeset
|
1071 (while (= (preceding-char) ?\\) |
9e236e540a59
(makefile-backslash-align): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
17142
diff
changeset
|
1072 (end-of-line 2)) |
9e236e540a59
(makefile-backslash-align): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
17142
diff
changeset
|
1073 (point)))) |
9e236e540a59
(makefile-backslash-align): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
17142
diff
changeset
|
1074 (save-restriction |
9e236e540a59
(makefile-backslash-align): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
17142
diff
changeset
|
1075 (narrow-to-region beginning end) |
9e236e540a59
(makefile-backslash-align): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
17142
diff
changeset
|
1076 (makefile-backslash-region (point-min) (point-max) t) |
9e236e540a59
(makefile-backslash-align): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
17142
diff
changeset
|
1077 (let ((fill-paragraph-function nil)) |
9e236e540a59
(makefile-backslash-align): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
17142
diff
changeset
|
1078 (fill-paragraph nil)) |
9e236e540a59
(makefile-backslash-align): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
17142
diff
changeset
|
1079 (makefile-backslash-region (point-min) (point-max) nil) |
9e236e540a59
(makefile-backslash-align): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
17142
diff
changeset
|
1080 (goto-char (point-max)) |
9e236e540a59
(makefile-backslash-align): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
17142
diff
changeset
|
1081 (if (< (skip-chars-backward "\n") 0) |
9e236e540a59
(makefile-backslash-align): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
17142
diff
changeset
|
1082 (delete-region (point) (point-max)))))) |
9e236e540a59
(makefile-backslash-align): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
17142
diff
changeset
|
1083 |
9e236e540a59
(makefile-backslash-align): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
17142
diff
changeset
|
1084 ((looking-at makefile-macroassign-regex) |
9e236e540a59
(makefile-backslash-align): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
17142
diff
changeset
|
1085 ;; Have a macro assign. Fill just this line, and then backslash |
9e236e540a59
(makefile-backslash-align): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
17142
diff
changeset
|
1086 ;; resulting region. |
9758
b9084912762f
Changed almost every doc string.
Richard M. Stallman <rms@gnu.org>
parents:
9477
diff
changeset
|
1087 (save-restriction |
41641
66c7637cbf17
Use line-(end|beginning)-position.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
38600
diff
changeset
|
1088 (narrow-to-region (point) (line-beginning-position 2)) |
17240
9e236e540a59
(makefile-backslash-align): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
17142
diff
changeset
|
1089 (let ((fill-paragraph-function nil)) |
9e236e540a59
(makefile-backslash-align): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
17142
diff
changeset
|
1090 (fill-paragraph nil)) |
9e236e540a59
(makefile-backslash-align): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
17142
diff
changeset
|
1091 (makefile-backslash-region (point-min) (point-max) nil))))) |
9e236e540a59
(makefile-backslash-align): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
17142
diff
changeset
|
1092 |
9e236e540a59
(makefile-backslash-align): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
17142
diff
changeset
|
1093 ;; Always return non-nil so we don't fill anything else. |
9e236e540a59
(makefile-backslash-align): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
17142
diff
changeset
|
1094 t) |
9758
b9084912762f
Changed almost every doc string.
Richard M. Stallman <rms@gnu.org>
parents:
9477
diff
changeset
|
1095 |
b9084912762f
Changed almost every doc string.
Richard M. Stallman <rms@gnu.org>
parents:
9477
diff
changeset
|
1096 |
b9084912762f
Changed almost every doc string.
Richard M. Stallman <rms@gnu.org>
parents:
9477
diff
changeset
|
1097 |
809 | 1098 ;;; ------------------------------------------------------------ |
9454
40340d39257d
(makefile-mode-name): Removed.
Richard M. Stallman <rms@gnu.org>
parents:
7639
diff
changeset
|
1099 ;;; Browser mode. |
809 | 1100 ;;; ------------------------------------------------------------ |
1101 | |
1102 (defun makefile-browser-format-target-line (target selected) | |
1103 (format | |
1104 (concat (make-string makefile-browser-leftmost-column ?\ ) | |
1105 (if selected | |
1106 makefile-browser-selected-mark | |
1107 makefile-browser-unselected-mark) | |
1108 "%s%s") | |
1109 target makefile-target-colon)) | |
1110 | |
1111 (defun makefile-browser-format-macro-line (macro selected) | |
1112 (format | |
1113 (concat (make-string makefile-browser-leftmost-column ?\ ) | |
1114 (if selected | |
1115 makefile-browser-selected-mark | |
1116 makefile-browser-unselected-mark) | |
1117 (makefile-format-macro-ref macro)))) | |
1118 | |
1119 (defun makefile-browser-fill (targets macros) | |
5820
3443820118a0
(makefile-browser-fill, makefile-browser-toggle):
Richard M. Stallman <rms@gnu.org>
parents:
5464
diff
changeset
|
1120 (let ((inhibit-read-only t)) |
3443820118a0
(makefile-browser-fill, makefile-browser-toggle):
Richard M. Stallman <rms@gnu.org>
parents:
5464
diff
changeset
|
1121 (goto-char (point-min)) |
3443820118a0
(makefile-browser-fill, makefile-browser-toggle):
Richard M. Stallman <rms@gnu.org>
parents:
5464
diff
changeset
|
1122 (erase-buffer) |
3443820118a0
(makefile-browser-fill, makefile-browser-toggle):
Richard M. Stallman <rms@gnu.org>
parents:
5464
diff
changeset
|
1123 (mapconcat |
3443820118a0
(makefile-browser-fill, makefile-browser-toggle):
Richard M. Stallman <rms@gnu.org>
parents:
5464
diff
changeset
|
1124 (function |
3443820118a0
(makefile-browser-fill, makefile-browser-toggle):
Richard M. Stallman <rms@gnu.org>
parents:
5464
diff
changeset
|
1125 (lambda (item) (insert (makefile-browser-format-target-line (car item) nil) "\n"))) |
3443820118a0
(makefile-browser-fill, makefile-browser-toggle):
Richard M. Stallman <rms@gnu.org>
parents:
5464
diff
changeset
|
1126 targets |
3443820118a0
(makefile-browser-fill, makefile-browser-toggle):
Richard M. Stallman <rms@gnu.org>
parents:
5464
diff
changeset
|
1127 "") |
3443820118a0
(makefile-browser-fill, makefile-browser-toggle):
Richard M. Stallman <rms@gnu.org>
parents:
5464
diff
changeset
|
1128 (mapconcat |
3443820118a0
(makefile-browser-fill, makefile-browser-toggle):
Richard M. Stallman <rms@gnu.org>
parents:
5464
diff
changeset
|
1129 (function |
3443820118a0
(makefile-browser-fill, makefile-browser-toggle):
Richard M. Stallman <rms@gnu.org>
parents:
5464
diff
changeset
|
1130 (lambda (item) (insert (makefile-browser-format-macro-line (car item) nil) "\n"))) |
3443820118a0
(makefile-browser-fill, makefile-browser-toggle):
Richard M. Stallman <rms@gnu.org>
parents:
5464
diff
changeset
|
1131 macros |
3443820118a0
(makefile-browser-fill, makefile-browser-toggle):
Richard M. Stallman <rms@gnu.org>
parents:
5464
diff
changeset
|
1132 "") |
3443820118a0
(makefile-browser-fill, makefile-browser-toggle):
Richard M. Stallman <rms@gnu.org>
parents:
5464
diff
changeset
|
1133 (sort-lines nil (point-min) (point-max)) |
3443820118a0
(makefile-browser-fill, makefile-browser-toggle):
Richard M. Stallman <rms@gnu.org>
parents:
5464
diff
changeset
|
1134 (goto-char (1- (point-max))) |
3443820118a0
(makefile-browser-fill, makefile-browser-toggle):
Richard M. Stallman <rms@gnu.org>
parents:
5464
diff
changeset
|
1135 (delete-char 1) ; remove unnecessary newline at eob |
3443820118a0
(makefile-browser-fill, makefile-browser-toggle):
Richard M. Stallman <rms@gnu.org>
parents:
5464
diff
changeset
|
1136 (goto-char (point-min)) |
3443820118a0
(makefile-browser-fill, makefile-browser-toggle):
Richard M. Stallman <rms@gnu.org>
parents:
5464
diff
changeset
|
1137 (forward-char makefile-browser-cursor-column))) |
809 | 1138 |
1139 ;;; | |
1140 ;;; Moving up and down in the browser | |
1141 ;;; | |
1142 | |
1143 (defun makefile-browser-next-line () | |
1144 "Move the browser selection cursor to the next line." | |
1145 (interactive) | |
1146 (if (not (makefile-last-line-p)) | |
1147 (progn | |
1148 (forward-line 1) | |
1149 (forward-char makefile-browser-cursor-column)))) | |
1150 | |
1151 (defun makefile-browser-previous-line () | |
1152 "Move the browser selection cursor to the previous line." | |
1153 (interactive) | |
1154 (if (not (makefile-first-line-p)) | |
1155 (progn | |
1156 (forward-line -1) | |
1157 (forward-char makefile-browser-cursor-column)))) | |
1158 | |
1159 ;;; | |
1160 ;;; Quitting the browser (returns to client buffer) | |
1161 ;;; | |
1162 | |
1163 (defun makefile-browser-quit () | |
9758
b9084912762f
Changed almost every doc string.
Richard M. Stallman <rms@gnu.org>
parents:
9477
diff
changeset
|
1164 "Leave the browser and return to the makefile buffer." |
809 | 1165 (interactive) |
1166 (let ((my-client makefile-browser-client)) | |
1167 (setq makefile-browser-client nil) ; we quitted, so NO client! | |
1168 (set-buffer-modified-p nil) | |
21096
712fd7860b32
(makefile-browser-quit): Use quit-window.
Richard M. Stallman <rms@gnu.org>
parents:
21000
diff
changeset
|
1169 (quit-window t) |
809 | 1170 (pop-to-buffer my-client))) |
1171 | |
1172 ;;; | |
1173 ;;; Toggle state of a browser item | |
1174 ;;; | |
1175 | |
1176 (defun makefile-browser-toggle () | |
1177 "Toggle the selection state of the browser item at the cursor position." | |
1178 (interactive) | |
1179 (let ((this-line (count-lines (point-min) (point)))) | |
1180 (setq this-line (max 1 this-line)) | |
1181 (makefile-browser-toggle-state-for-line this-line) | |
1182 (goto-line this-line) | |
5820
3443820118a0
(makefile-browser-fill, makefile-browser-toggle):
Richard M. Stallman <rms@gnu.org>
parents:
5464
diff
changeset
|
1183 (let ((inhibit-read-only t)) |
3443820118a0
(makefile-browser-fill, makefile-browser-toggle):
Richard M. Stallman <rms@gnu.org>
parents:
5464
diff
changeset
|
1184 (beginning-of-line) |
3443820118a0
(makefile-browser-fill, makefile-browser-toggle):
Richard M. Stallman <rms@gnu.org>
parents:
5464
diff
changeset
|
1185 (if (makefile-browser-on-macro-line-p) |
3443820118a0
(makefile-browser-fill, makefile-browser-toggle):
Richard M. Stallman <rms@gnu.org>
parents:
5464
diff
changeset
|
1186 (let ((macro-name (makefile-browser-this-line-macro-name))) |
14277
f0d30883b329
(makefile-browser-toggle): Use delete-region, not kill-line.
Richard M. Stallman <rms@gnu.org>
parents:
14209
diff
changeset
|
1187 (delete-region (point) (progn (end-of-line) (point))) |
5820
3443820118a0
(makefile-browser-fill, makefile-browser-toggle):
Richard M. Stallman <rms@gnu.org>
parents:
5464
diff
changeset
|
1188 (insert |
3443820118a0
(makefile-browser-fill, makefile-browser-toggle):
Richard M. Stallman <rms@gnu.org>
parents:
5464
diff
changeset
|
1189 (makefile-browser-format-macro-line |
3443820118a0
(makefile-browser-fill, makefile-browser-toggle):
Richard M. Stallman <rms@gnu.org>
parents:
5464
diff
changeset
|
1190 macro-name |
3443820118a0
(makefile-browser-fill, makefile-browser-toggle):
Richard M. Stallman <rms@gnu.org>
parents:
5464
diff
changeset
|
1191 (makefile-browser-get-state-for-line this-line)))) |
3443820118a0
(makefile-browser-fill, makefile-browser-toggle):
Richard M. Stallman <rms@gnu.org>
parents:
5464
diff
changeset
|
1192 (let ((target-name (makefile-browser-this-line-target-name))) |
14277
f0d30883b329
(makefile-browser-toggle): Use delete-region, not kill-line.
Richard M. Stallman <rms@gnu.org>
parents:
14209
diff
changeset
|
1193 (delete-region (point) (progn (end-of-line) (point))) |
809 | 1194 (insert |
5820
3443820118a0
(makefile-browser-fill, makefile-browser-toggle):
Richard M. Stallman <rms@gnu.org>
parents:
5464
diff
changeset
|
1195 (makefile-browser-format-target-line |
3443820118a0
(makefile-browser-fill, makefile-browser-toggle):
Richard M. Stallman <rms@gnu.org>
parents:
5464
diff
changeset
|
1196 target-name |
3443820118a0
(makefile-browser-fill, makefile-browser-toggle):
Richard M. Stallman <rms@gnu.org>
parents:
5464
diff
changeset
|
1197 (makefile-browser-get-state-for-line this-line)))))) |
809 | 1198 (beginning-of-line) |
1199 (forward-char makefile-browser-cursor-column) | |
1200 (if makefile-browser-auto-advance-after-selection-p | |
1201 (makefile-browser-next-line)))) | |
1202 | |
1203 ;;; | |
1204 ;;; Making insertions into the client buffer | |
1205 ;;; | |
1206 | |
1207 (defun makefile-browser-insert-continuation () | |
2559
5f2c2994cbca
Rewritten and simplified, commentary added. It now will usually
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
2534
diff
changeset
|
1208 "Insert a makefile continuation. |
9758
b9084912762f
Changed almost every doc string.
Richard M. Stallman <rms@gnu.org>
parents:
9477
diff
changeset
|
1209 In the makefile buffer, go to (end-of-line), insert a \'\\\' |
809 | 1210 character, insert a new blank line, go to that line and indent by one TAB. |
2559
5f2c2994cbca
Rewritten and simplified, commentary added. It now will usually
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
2534
diff
changeset
|
1211 This is most useful in the process of creating continued lines when copying |
5f2c2994cbca
Rewritten and simplified, commentary added. It now will usually
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
2534
diff
changeset
|
1212 large dependencies from the browser to the client buffer. |
7639 | 1213 \(point) advances accordingly in the client buffer." |
809 | 1214 (interactive) |
41641
66c7637cbf17
Use line-(end|beginning)-position.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
38600
diff
changeset
|
1215 (with-current-buffer makefile-browser-client |
809 | 1216 (end-of-line) |
1217 (insert "\\\n\t"))) | |
1218 | |
1219 (defun makefile-browser-insert-selection () | |
9758
b9084912762f
Changed almost every doc string.
Richard M. Stallman <rms@gnu.org>
parents:
9477
diff
changeset
|
1220 "Insert all selected targets and/or macros in the makefile buffer. |
12936 | 1221 Insertion takes place at point." |
809 | 1222 (interactive) |
1223 (save-excursion | |
1224 (goto-line 1) | |
1225 (let ((current-line 1)) | |
1226 (while (not (eobp)) | |
1227 (if (makefile-browser-get-state-for-line current-line) | |
1228 (makefile-browser-send-this-line-item)) | |
1229 (forward-line 1) | |
1230 (setq current-line (1+ current-line)))))) | |
1231 | |
1232 (defun makefile-browser-insert-selection-and-quit () | |
1233 (interactive) | |
1234 (makefile-browser-insert-selection) | |
1235 (makefile-browser-quit)) | |
1236 | |
1237 (defun makefile-browser-send-this-line-item () | |
1238 (if (makefile-browser-on-macro-line-p) | |
1239 (save-excursion | |
1240 (let ((macro-name (makefile-browser-this-line-macro-name))) | |
1241 (set-buffer makefile-browser-client) | |
1242 (insert (makefile-format-macro-ref macro-name) " "))) | |
1243 (save-excursion | |
1244 (let ((target-name (makefile-browser-this-line-target-name))) | |
1245 (set-buffer makefile-browser-client) | |
1246 (insert target-name " "))))) | |
1247 | |
1248 (defun makefile-browser-start-interaction () | |
1249 (use-local-map makefile-browser-map) | |
1250 (setq buffer-read-only t)) | |
1251 | |
1252 (defun makefile-browse (targets macros) | |
1253 (interactive) | |
1254 (if (zerop (+ (length targets) (length macros))) | |
1255 (progn | |
1256 (beep) | |
1257 (message "No macros or targets to browse! Consider running 'makefile-pickup-everything\'")) | |
1258 (let ((browser-buffer (get-buffer-create makefile-browser-buffer-name))) | |
1259 (pop-to-buffer browser-buffer) | |
1260 (makefile-browser-fill targets macros) | |
2559
5f2c2994cbca
Rewritten and simplified, commentary added. It now will usually
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
2534
diff
changeset
|
1261 (shrink-window-if-larger-than-buffer) |
38418
336177767929
(makefile-browse): Use make-local-variable.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
37469
diff
changeset
|
1262 (set (make-local-variable 'makefile-browser-selection-vector) |
336177767929
(makefile-browse): Use make-local-variable.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
37469
diff
changeset
|
1263 (make-vector (+ (length targets) (length macros)) nil)) |
809 | 1264 (makefile-browser-start-interaction)))) |
1265 | |
1266 (defun makefile-switch-to-browser () | |
1267 (interactive) | |
1268 (run-hooks 'makefile-browser-hook) | |
1269 (setq makefile-browser-client (current-buffer)) | |
2559
5f2c2994cbca
Rewritten and simplified, commentary added. It now will usually
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
2534
diff
changeset
|
1270 (makefile-pickup-targets) |
5f2c2994cbca
Rewritten and simplified, commentary added. It now will usually
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
2534
diff
changeset
|
1271 (makefile-pickup-macros) |
809 | 1272 (makefile-browse makefile-target-table makefile-macro-table)) |
1273 | |
9454
40340d39257d
(makefile-mode-name): Removed.
Richard M. Stallman <rms@gnu.org>
parents:
7639
diff
changeset
|
1274 |
809 | 1275 |
1276 ;;; ------------------------------------------------------------ | |
1277 ;;; Up-to-date overview buffer | |
1278 ;;; ------------------------------------------------------------ | |
1279 | |
1280 (defun makefile-create-up-to-date-overview () | |
2559
5f2c2994cbca
Rewritten and simplified, commentary added. It now will usually
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
2534
diff
changeset
|
1281 "Create a buffer containing an overview of the state of all known targets. |
809 | 1282 Known targets are targets that are explicitly defined in that makefile; |
1283 in other words, all targets that appear on the left hand side of a | |
1284 dependency in the makefile." | |
1285 (interactive) | |
1286 (if (y-or-n-p "Are you sure that the makefile being edited is consistent? ") | |
1287 ;; | |
1288 ;; The rest of this function operates on a temporary makefile, created by | |
1289 ;; writing the current contents of the makefile buffer. | |
1290 ;; | |
1291 (let ((saved-target-table makefile-target-table) | |
1292 (this-buffer (current-buffer)) | |
1293 (makefile-up-to-date-buffer | |
1294 (get-buffer-create makefile-up-to-date-buffer-name)) | |
1295 (filename (makefile-save-temporary)) | |
1296 ;; | |
1297 ;; Forget the target table because it may contain picked-up filenames | |
1298 ;; that are not really targets in the current makefile. | |
1299 ;; We don't want to query these, so get a new target-table with just the | |
1300 ;; targets that can be found in the makefile buffer. | |
1301 ;; The 'old' target table will be restored later. | |
1302 ;; | |
1303 (real-targets (progn | |
1304 (makefile-pickup-targets) | |
2559
5f2c2994cbca
Rewritten and simplified, commentary added. It now will usually
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
2534
diff
changeset
|
1305 makefile-target-table)) |
5f2c2994cbca
Rewritten and simplified, commentary added. It now will usually
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
2534
diff
changeset
|
1306 (prereqs makefile-has-prereqs) |
5f2c2994cbca
Rewritten and simplified, commentary added. It now will usually
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
2534
diff
changeset
|
1307 ) |
809 | 1308 |
1309 (set-buffer makefile-up-to-date-buffer) | |
1310 (setq buffer-read-only nil) | |
1311 (erase-buffer) | |
2559
5f2c2994cbca
Rewritten and simplified, commentary added. It now will usually
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
2534
diff
changeset
|
1312 (makefile-query-targets filename real-targets prereqs) |
809 | 1313 (if (zerop (buffer-size)) ; if it did not get us anything |
1314 (progn | |
1315 (kill-buffer (current-buffer)) | |
1316 (message "No overview created!"))) | |
1317 (set-buffer this-buffer) | |
1318 (setq makefile-target-table saved-target-table) | |
1319 (if (get-buffer makefile-up-to-date-buffer-name) | |
1320 (progn | |
1321 (pop-to-buffer (get-buffer makefile-up-to-date-buffer-name)) | |
2559
5f2c2994cbca
Rewritten and simplified, commentary added. It now will usually
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
2534
diff
changeset
|
1322 (shrink-window-if-larger-than-buffer) |
809 | 1323 (sort-lines nil (point-min) (point-max)) |
1324 (setq buffer-read-only t)))))) | |
1325 | |
1326 (defun makefile-save-temporary () | |
1327 "Create a temporary file from the current makefile buffer." | |
1328 (let ((filename (makefile-generate-temporary-filename))) | |
1329 (write-region (point-min) (point-max) filename nil 0) | |
1330 filename)) ; return the filename | |
1331 | |
1332 (defun makefile-generate-temporary-filename () | |
9758
b9084912762f
Changed almost every doc string.
Richard M. Stallman <rms@gnu.org>
parents:
9477
diff
changeset
|
1333 "Create a filename suitable for use in `makefile-save-temporary'. |
809 | 1334 Be careful to allow brain-dead file systems (DOS, SYSV ...) to cope |
9758
b9084912762f
Changed almost every doc string.
Richard M. Stallman <rms@gnu.org>
parents:
9477
diff
changeset
|
1335 with the generated name!" |
809 | 1336 (let ((my-name (user-login-name)) |
1337 (my-uid (int-to-string (user-uid)))) | |
1338 (concat "mktmp" | |
1339 (if (> (length my-name) 3) | |
1340 (substring my-name 0 3) | |
1341 my-name) | |
1342 "." | |
1343 (if (> (length my-uid) 3) | |
1344 (substring my-uid 0 3) | |
1345 my-uid)))) | |
1346 | |
2559
5f2c2994cbca
Rewritten and simplified, commentary added. It now will usually
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
2534
diff
changeset
|
1347 (defun makefile-query-targets (filename target-table prereq-list) |
12936 | 1348 "Fill the up-to-date overview buffer. |
9758
b9084912762f
Changed almost every doc string.
Richard M. Stallman <rms@gnu.org>
parents:
9477
diff
changeset
|
1349 Checks each target in TARGET-TABLE using `makefile-query-one-target-method' |
809 | 1350 and generates the overview, one line per target name." |
1351 (insert | |
2559
5f2c2994cbca
Rewritten and simplified, commentary added. It now will usually
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
2534
diff
changeset
|
1352 (mapconcat |
5f2c2994cbca
Rewritten and simplified, commentary added. It now will usually
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
2534
diff
changeset
|
1353 (function (lambda (item) |
5f2c2994cbca
Rewritten and simplified, commentary added. It now will usually
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
2534
diff
changeset
|
1354 (let* ((target-name (car item)) |
5f2c2994cbca
Rewritten and simplified, commentary added. It now will usually
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
2534
diff
changeset
|
1355 (no-prereqs (not (member target-name prereq-list))) |
26136 | 1356 (needs-rebuild (or no-prereqs |
2559
5f2c2994cbca
Rewritten and simplified, commentary added. It now will usually
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
2534
diff
changeset
|
1357 (funcall |
5f2c2994cbca
Rewritten and simplified, commentary added. It now will usually
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
2534
diff
changeset
|
1358 makefile-query-one-target-method |
5f2c2994cbca
Rewritten and simplified, commentary added. It now will usually
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
2534
diff
changeset
|
1359 target-name |
5f2c2994cbca
Rewritten and simplified, commentary added. It now will usually
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
2534
diff
changeset
|
1360 filename)))) |
5f2c2994cbca
Rewritten and simplified, commentary added. It now will usually
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
2534
diff
changeset
|
1361 (format "\t%s%s" |
5f2c2994cbca
Rewritten and simplified, commentary added. It now will usually
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
2534
diff
changeset
|
1362 target-name |
5f2c2994cbca
Rewritten and simplified, commentary added. It now will usually
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
2534
diff
changeset
|
1363 (cond (no-prereqs " .. has no prerequisites") |
5f2c2994cbca
Rewritten and simplified, commentary added. It now will usually
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
2534
diff
changeset
|
1364 (needs-rebuild " .. NEEDS REBUILD") |
5f2c2994cbca
Rewritten and simplified, commentary added. It now will usually
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
2534
diff
changeset
|
1365 (t " .. is up to date")))) |
5f2c2994cbca
Rewritten and simplified, commentary added. It now will usually
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
2534
diff
changeset
|
1366 )) |
5f2c2994cbca
Rewritten and simplified, commentary added. It now will usually
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
2534
diff
changeset
|
1367 target-table "\n")) |
809 | 1368 (goto-char (point-min)) |
1369 (delete-file filename)) ; remove the tmpfile | |
1370 | |
1371 (defun makefile-query-by-make-minus-q (target &optional filename) | |
9758
b9084912762f
Changed almost every doc string.
Richard M. Stallman <rms@gnu.org>
parents:
9477
diff
changeset
|
1372 (not (zerop |
b9084912762f
Changed almost every doc string.
Richard M. Stallman <rms@gnu.org>
parents:
9477
diff
changeset
|
1373 (call-process makefile-brave-make nil nil nil |
b9084912762f
Changed almost every doc string.
Richard M. Stallman <rms@gnu.org>
parents:
9477
diff
changeset
|
1374 "-f" filename "-q" target)))) |
809 | 1375 |
9454
40340d39257d
(makefile-mode-name): Removed.
Richard M. Stallman <rms@gnu.org>
parents:
7639
diff
changeset
|
1376 |
40340d39257d
(makefile-mode-name): Removed.
Richard M. Stallman <rms@gnu.org>
parents:
7639
diff
changeset
|
1377 |
809 | 1378 ;;; ------------------------------------------------------------ |
1379 ;;; Continuation cleanup | |
1380 ;;; ------------------------------------------------------------ | |
1381 | |
1382 (defun makefile-cleanup-continuations () | |
1383 (if (eq major-mode 'makefile-mode) | |
47546
2c7b4003c5ad
(makefile-cleanup-continuations-p): Rename to makefile-cleanup-continuations.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
47527
diff
changeset
|
1384 (if (and makefile-cleanup-continuations |
809 | 1385 (not buffer-read-only)) |
1386 (save-excursion | |
1387 (goto-char (point-min)) | |
47546
2c7b4003c5ad
(makefile-cleanup-continuations-p): Rename to makefile-cleanup-continuations.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
47527
diff
changeset
|
1388 (while (re-search-forward "\\\\[ \t]+$" nil t) |
809 | 1389 (replace-match "\\" t t)))))) |
1390 | |
6146
1a2a8ef9b4af
(makefile-mode): Set local-write-file-hooks, not write-file-hooks.
Richard M. Stallman <rms@gnu.org>
parents:
5820
diff
changeset
|
1391 |
1a2a8ef9b4af
(makefile-mode): Set local-write-file-hooks, not write-file-hooks.
Richard M. Stallman <rms@gnu.org>
parents:
5820
diff
changeset
|
1392 ;;; ------------------------------------------------------------ |
1a2a8ef9b4af
(makefile-mode): Set local-write-file-hooks, not write-file-hooks.
Richard M. Stallman <rms@gnu.org>
parents:
5820
diff
changeset
|
1393 ;;; Warn of suspicious lines |
1a2a8ef9b4af
(makefile-mode): Set local-write-file-hooks, not write-file-hooks.
Richard M. Stallman <rms@gnu.org>
parents:
5820
diff
changeset
|
1394 ;;; ------------------------------------------------------------ |
1a2a8ef9b4af
(makefile-mode): Set local-write-file-hooks, not write-file-hooks.
Richard M. Stallman <rms@gnu.org>
parents:
5820
diff
changeset
|
1395 |
1a2a8ef9b4af
(makefile-mode): Set local-write-file-hooks, not write-file-hooks.
Richard M. Stallman <rms@gnu.org>
parents:
5820
diff
changeset
|
1396 (defun makefile-warn-suspicious-lines () |
28277
18aaefd4bc8f
(makefile-warn-suspicious-lines): clean
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
26621
diff
changeset
|
1397 ;; Returning non-nil cancels the save operation |
18aaefd4bc8f
(makefile-warn-suspicious-lines): clean
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
26621
diff
changeset
|
1398 (if (eq major-mode 'makefile-mode) |
18aaefd4bc8f
(makefile-warn-suspicious-lines): clean
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
26621
diff
changeset
|
1399 (save-excursion |
18aaefd4bc8f
(makefile-warn-suspicious-lines): clean
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
26621
diff
changeset
|
1400 (goto-char (point-min)) |
18aaefd4bc8f
(makefile-warn-suspicious-lines): clean
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
26621
diff
changeset
|
1401 (if (re-search-forward "^\\(\t+$\\| +\t\\)" nil t) |
18aaefd4bc8f
(makefile-warn-suspicious-lines): clean
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
26621
diff
changeset
|
1402 (not (y-or-n-p |
48018
1117d26eaae0
(makefile-cleanup-continuations): Default for variable is nil.
Richard M. Stallman <rms@gnu.org>
parents:
47546
diff
changeset
|
1403 (format "Suspicious line %d. Save anyway? " |
28277
18aaefd4bc8f
(makefile-warn-suspicious-lines): clean
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
26621
diff
changeset
|
1404 (count-lines (point-min) (point))))))))) |
48018
1117d26eaae0
(makefile-cleanup-continuations): Default for variable is nil.
Richard M. Stallman <rms@gnu.org>
parents:
47546
diff
changeset
|
1405 |
1117d26eaae0
(makefile-cleanup-continuations): Default for variable is nil.
Richard M. Stallman <rms@gnu.org>
parents:
47546
diff
changeset
|
1406 (defun makefile-warn-continuations () |
1117d26eaae0
(makefile-cleanup-continuations): Default for variable is nil.
Richard M. Stallman <rms@gnu.org>
parents:
47546
diff
changeset
|
1407 (if (eq major-mode 'makefile-mode) |
1117d26eaae0
(makefile-cleanup-continuations): Default for variable is nil.
Richard M. Stallman <rms@gnu.org>
parents:
47546
diff
changeset
|
1408 (save-excursion |
1117d26eaae0
(makefile-cleanup-continuations): Default for variable is nil.
Richard M. Stallman <rms@gnu.org>
parents:
47546
diff
changeset
|
1409 (goto-char (point-min)) |
48037
1e646259d1b2
(makefile-warn-continuations): Don't barf when there _aren't_ any
Miles Bader <miles@gnu.org>
parents:
48018
diff
changeset
|
1410 (if (re-search-forward "\\\\[ \t]+$" nil t) |
48018
1117d26eaae0
(makefile-cleanup-continuations): Default for variable is nil.
Richard M. Stallman <rms@gnu.org>
parents:
47546
diff
changeset
|
1411 (not (y-or-n-p |
1117d26eaae0
(makefile-cleanup-continuations): Default for variable is nil.
Richard M. Stallman <rms@gnu.org>
parents:
47546
diff
changeset
|
1412 (format "Suspicious continuation in line %d. Save anyway? " |
1117d26eaae0
(makefile-cleanup-continuations): Default for variable is nil.
Richard M. Stallman <rms@gnu.org>
parents:
47546
diff
changeset
|
1413 (count-lines (point-min) (point))))))))) |
9454
40340d39257d
(makefile-mode-name): Removed.
Richard M. Stallman <rms@gnu.org>
parents:
7639
diff
changeset
|
1414 |
6146
1a2a8ef9b4af
(makefile-mode): Set local-write-file-hooks, not write-file-hooks.
Richard M. Stallman <rms@gnu.org>
parents:
5820
diff
changeset
|
1415 |
809 | 1416 ;;; ------------------------------------------------------------ |
1417 ;;; GNU make function support | |
1418 ;;; ------------------------------------------------------------ | |
1419 | |
1420 (defun makefile-insert-gmake-function () | |
9758
b9084912762f
Changed almost every doc string.
Richard M. Stallman <rms@gnu.org>
parents:
9477
diff
changeset
|
1421 "Insert a GNU make function call. |
b9084912762f
Changed almost every doc string.
Richard M. Stallman <rms@gnu.org>
parents:
9477
diff
changeset
|
1422 Asks for the name of the function to use (with completion). |
b9084912762f
Changed almost every doc string.
Richard M. Stallman <rms@gnu.org>
parents:
9477
diff
changeset
|
1423 Then prompts for all required parameters." |
809 | 1424 (interactive) |
1425 (let* ((gm-function-name (completing-read | |
1426 "Function: " | |
1427 makefile-gnumake-functions-alist | |
1428 nil t nil)) | |
1429 (gm-function-prompts | |
1430 (cdr (assoc gm-function-name makefile-gnumake-functions-alist)))) | |
1431 (if (not (zerop (length gm-function-name))) | |
1432 (insert (makefile-format-macro-ref | |
1433 (concat gm-function-name " " | |
1434 (makefile-prompt-for-gmake-funargs | |
1435 gm-function-name gm-function-prompts))) | |
1436 " ")))) | |
1437 | |
1438 (defun makefile-prompt-for-gmake-funargs (function-name prompt-list) | |
1439 (mapconcat | |
1440 (function (lambda (one-prompt) | |
9758
b9084912762f
Changed almost every doc string.
Richard M. Stallman <rms@gnu.org>
parents:
9477
diff
changeset
|
1441 (read-string (format "[%s] %s: " function-name one-prompt) |
b9084912762f
Changed almost every doc string.
Richard M. Stallman <rms@gnu.org>
parents:
9477
diff
changeset
|
1442 nil))) |
809 | 1443 prompt-list |
1444 ",")) | |
9758
b9084912762f
Changed almost every doc string.
Richard M. Stallman <rms@gnu.org>
parents:
9477
diff
changeset
|
1445 |
9454
40340d39257d
(makefile-mode-name): Removed.
Richard M. Stallman <rms@gnu.org>
parents:
7639
diff
changeset
|
1446 |
809 | 1447 |
1448 ;;; ------------------------------------------------------------ | |
1449 ;;; Utility functions | |
1450 ;;; ------------------------------------------------------------ | |
1451 | |
9454
40340d39257d
(makefile-mode-name): Removed.
Richard M. Stallman <rms@gnu.org>
parents:
7639
diff
changeset
|
1452 (defun makefile-do-macro-insertion (macro-name) |
40340d39257d
(makefile-mode-name): Removed.
Richard M. Stallman <rms@gnu.org>
parents:
7639
diff
changeset
|
1453 "Insert a macro reference." |
40340d39257d
(makefile-mode-name): Removed.
Richard M. Stallman <rms@gnu.org>
parents:
7639
diff
changeset
|
1454 (if (not (zerop (length macro-name))) |
40340d39257d
(makefile-mode-name): Removed.
Richard M. Stallman <rms@gnu.org>
parents:
7639
diff
changeset
|
1455 (if (assoc macro-name makefile-runtime-macros-list) |
40340d39257d
(makefile-mode-name): Removed.
Richard M. Stallman <rms@gnu.org>
parents:
7639
diff
changeset
|
1456 (insert "$" macro-name) |
40340d39257d
(makefile-mode-name): Removed.
Richard M. Stallman <rms@gnu.org>
parents:
7639
diff
changeset
|
1457 (insert (makefile-format-macro-ref macro-name))))) |
40340d39257d
(makefile-mode-name): Removed.
Richard M. Stallman <rms@gnu.org>
parents:
7639
diff
changeset
|
1458 |
2559
5f2c2994cbca
Rewritten and simplified, commentary added. It now will usually
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
2534
diff
changeset
|
1459 (defun makefile-remember-target (target-name &optional has-prereqs) |
809 | 1460 "Remember a given target if it is not already remembered for this buffer." |
1461 (if (not (zerop (length target-name))) | |
2559
5f2c2994cbca
Rewritten and simplified, commentary added. It now will usually
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
2534
diff
changeset
|
1462 (progn |
809 | 1463 (if (not (assoc target-name makefile-target-table)) |
1464 (setq makefile-target-table | |
2559
5f2c2994cbca
Rewritten and simplified, commentary added. It now will usually
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
2534
diff
changeset
|
1465 (cons (list target-name) makefile-target-table))) |
5f2c2994cbca
Rewritten and simplified, commentary added. It now will usually
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
2534
diff
changeset
|
1466 (if has-prereqs |
5f2c2994cbca
Rewritten and simplified, commentary added. It now will usually
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
2534
diff
changeset
|
1467 (setq makefile-has-prereqs |
5f2c2994cbca
Rewritten and simplified, commentary added. It now will usually
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
2534
diff
changeset
|
1468 (cons target-name makefile-has-prereqs)))))) |
809 | 1469 |
1470 (defun makefile-remember-macro (macro-name) | |
1471 "Remember a given macro if it is not already remembered for this buffer." | |
1472 (if (not (zerop (length macro-name))) | |
1473 (if (not (assoc macro-name makefile-macro-table)) | |
1474 (setq makefile-macro-table | |
1475 (cons (list macro-name) makefile-macro-table))))) | |
1476 | |
1477 (defun makefile-forward-after-target-colon () | |
9758
b9084912762f
Changed almost every doc string.
Richard M. Stallman <rms@gnu.org>
parents:
9477
diff
changeset
|
1478 "Move point forward after inserting the terminating colon of a target. |
b9084912762f
Changed almost every doc string.
Richard M. Stallman <rms@gnu.org>
parents:
9477
diff
changeset
|
1479 This acts according to the value of `makefile-tab-after-target-colon'." |
809 | 1480 (if makefile-tab-after-target-colon |
1481 (insert "\t") | |
1482 (insert " "))) | |
1483 | |
1484 (defun makefile-browser-on-macro-line-p () | |
1485 "Determine if point is on a macro line in the browser." | |
1486 (save-excursion | |
1487 (beginning-of-line) | |
41641
66c7637cbf17
Use line-(end|beginning)-position.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
38600
diff
changeset
|
1488 (re-search-forward "\\$[{(]" (line-end-position) t))) |
809 | 1489 |
1490 (defun makefile-browser-this-line-target-name () | |
1491 "Extract the target name from a line in the browser." | |
1492 (save-excursion | |
1493 (end-of-line) | |
1494 (skip-chars-backward "^ \t") | |
41641
66c7637cbf17
Use line-(end|beginning)-position.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
38600
diff
changeset
|
1495 (buffer-substring (point) (1- (line-end-position))))) |
809 | 1496 |
1497 (defun makefile-browser-this-line-macro-name () | |
1498 "Extract the macro name from a line in the browser." | |
1499 (save-excursion | |
1500 (beginning-of-line) | |
41641
66c7637cbf17
Use line-(end|beginning)-position.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
38600
diff
changeset
|
1501 (re-search-forward "\\$[{(]" (line-end-position) t) |
809 | 1502 (let ((macro-start (point))) |
1503 (skip-chars-forward "^})") | |
1504 (buffer-substring macro-start (point))))) | |
1505 | |
1506 (defun makefile-format-macro-ref (macro-name) | |
9758
b9084912762f
Changed almost every doc string.
Richard M. Stallman <rms@gnu.org>
parents:
9477
diff
changeset
|
1507 "Format a macro reference. |
b9084912762f
Changed almost every doc string.
Richard M. Stallman <rms@gnu.org>
parents:
9477
diff
changeset
|
1508 Uses `makefile-use-curly-braces-for-macros-p'." |
6146
1a2a8ef9b4af
(makefile-mode): Set local-write-file-hooks, not write-file-hooks.
Richard M. Stallman <rms@gnu.org>
parents:
5820
diff
changeset
|
1509 (if (or (char-equal ?\( (string-to-char macro-name)) |
1a2a8ef9b4af
(makefile-mode): Set local-write-file-hooks, not write-file-hooks.
Richard M. Stallman <rms@gnu.org>
parents:
5820
diff
changeset
|
1510 (char-equal ?\{ (string-to-char macro-name))) |
1a2a8ef9b4af
(makefile-mode): Set local-write-file-hooks, not write-file-hooks.
Richard M. Stallman <rms@gnu.org>
parents:
5820
diff
changeset
|
1511 (format "$%s" macro-name) |
1a2a8ef9b4af
(makefile-mode): Set local-write-file-hooks, not write-file-hooks.
Richard M. Stallman <rms@gnu.org>
parents:
5820
diff
changeset
|
1512 (if makefile-use-curly-braces-for-macros-p |
1a2a8ef9b4af
(makefile-mode): Set local-write-file-hooks, not write-file-hooks.
Richard M. Stallman <rms@gnu.org>
parents:
5820
diff
changeset
|
1513 (format "${%s}" macro-name) |
1a2a8ef9b4af
(makefile-mode): Set local-write-file-hooks, not write-file-hooks.
Richard M. Stallman <rms@gnu.org>
parents:
5820
diff
changeset
|
1514 (format "$(%s)" macro-name)))) |
809 | 1515 |
1516 (defun makefile-browser-get-state-for-line (n) | |
1517 (aref makefile-browser-selection-vector (1- n))) | |
1518 | |
1519 (defun makefile-browser-set-state-for-line (n to-state) | |
1520 (aset makefile-browser-selection-vector (1- n) to-state)) | |
1521 | |
1522 (defun makefile-browser-toggle-state-for-line (n) | |
1523 (makefile-browser-set-state-for-line n (not (makefile-browser-get-state-for-line n)))) | |
1524 | |
1525 (defun makefile-last-line-p () | |
41641
66c7637cbf17
Use line-(end|beginning)-position.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
38600
diff
changeset
|
1526 (= (line-end-position) (point-max))) |
809 | 1527 |
1528 (defun makefile-first-line-p () | |
41641
66c7637cbf17
Use line-(end|beginning)-position.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
38600
diff
changeset
|
1529 (= (line-beginning-position) (point-min))) |
809 | 1530 |
9454
40340d39257d
(makefile-mode-name): Removed.
Richard M. Stallman <rms@gnu.org>
parents:
7639
diff
changeset
|
1531 |
40340d39257d
(makefile-mode-name): Removed.
Richard M. Stallman <rms@gnu.org>
parents:
7639
diff
changeset
|
1532 |
24271 | 1533 ;;; Support for other packages, like add-log. |
9454
40340d39257d
(makefile-mode-name): Removed.
Richard M. Stallman <rms@gnu.org>
parents:
7639
diff
changeset
|
1534 |
40340d39257d
(makefile-mode-name): Removed.
Richard M. Stallman <rms@gnu.org>
parents:
7639
diff
changeset
|
1535 (defun makefile-add-log-defun () |
13847
36556403b62b
(makefile-add-log-defun): Rewrite to scan back
Richard M. Stallman <rms@gnu.org>
parents:
13804
diff
changeset
|
1536 "Return name of target or variable assignment that point is in. |
36556403b62b
(makefile-add-log-defun): Rewrite to scan back
Richard M. Stallman <rms@gnu.org>
parents:
13804
diff
changeset
|
1537 If it isn't in one, return nil." |
9454
40340d39257d
(makefile-mode-name): Removed.
Richard M. Stallman <rms@gnu.org>
parents:
7639
diff
changeset
|
1538 (save-excursion |
13847
36556403b62b
(makefile-add-log-defun): Rewrite to scan back
Richard M. Stallman <rms@gnu.org>
parents:
13804
diff
changeset
|
1539 (let (found) |
36556403b62b
(makefile-add-log-defun): Rewrite to scan back
Richard M. Stallman <rms@gnu.org>
parents:
13804
diff
changeset
|
1540 (beginning-of-line) |
36556403b62b
(makefile-add-log-defun): Rewrite to scan back
Richard M. Stallman <rms@gnu.org>
parents:
13804
diff
changeset
|
1541 ;; Scan back line by line, noticing when we come to a |
36556403b62b
(makefile-add-log-defun): Rewrite to scan back
Richard M. Stallman <rms@gnu.org>
parents:
13804
diff
changeset
|
1542 ;; variable or rule definition, and giving up when we see |
36556403b62b
(makefile-add-log-defun): Rewrite to scan back
Richard M. Stallman <rms@gnu.org>
parents:
13804
diff
changeset
|
1543 ;; a line that is not part of either of those. |
47546
2c7b4003c5ad
(makefile-cleanup-continuations-p): Rename to makefile-cleanup-continuations.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
47527
diff
changeset
|
1544 (while (not (or (setq found |
2c7b4003c5ad
(makefile-cleanup-continuations-p): Rename to makefile-cleanup-continuations.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
47527
diff
changeset
|
1545 (when (or (looking-at makefile-macroassign-regex) |
2c7b4003c5ad
(makefile-cleanup-continuations-p): Rename to makefile-cleanup-continuations.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
47527
diff
changeset
|
1546 (looking-at makefile-dependency-regex)) |
2c7b4003c5ad
(makefile-cleanup-continuations-p): Rename to makefile-cleanup-continuations.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
47527
diff
changeset
|
1547 (match-string-no-properties 1))) |
2c7b4003c5ad
(makefile-cleanup-continuations-p): Rename to makefile-cleanup-continuations.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
47527
diff
changeset
|
1548 ;; Don't keep looking across a blank line or comment. |
2c7b4003c5ad
(makefile-cleanup-continuations-p): Rename to makefile-cleanup-continuations.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
47527
diff
changeset
|
1549 (looking-at "$\\|#") |
2c7b4003c5ad
(makefile-cleanup-continuations-p): Rename to makefile-cleanup-continuations.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
47527
diff
changeset
|
1550 (not (zerop (forward-line -1)))))) |
2c7b4003c5ad
(makefile-cleanup-continuations-p): Rename to makefile-cleanup-continuations.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
47527
diff
changeset
|
1551 found))) |
9454
40340d39257d
(makefile-mode-name): Removed.
Richard M. Stallman <rms@gnu.org>
parents:
7639
diff
changeset
|
1552 |
41642
d00b43e2316c
Move `provide' to the end.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
41641
diff
changeset
|
1553 (provide 'make-mode) |
d00b43e2316c
Move `provide' to the end.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
41641
diff
changeset
|
1554 |
13402
1f9832fe9e44
(makefile-define-space-face): Don't make face if non-X.
Karl Heuer <kwzh@gnu.org>
parents:
13333
diff
changeset
|
1555 ;;; make-mode.el ends here |