Mercurial > emacs
annotate lisp/progmodes/make-mode.el @ 99688:0dc2933fc901
(compilation-start-hook): New hook.
(compilation-start): Run it on the compilation process.
author | Sam Steingold <sds@gnu.org> |
---|---|
date | Tue, 18 Nov 2008 14:14:37 +0000 |
parents | 5ac5a5adc028 |
children | a9dc0e7c3f2b |
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 |
98189
5ac5a5adc028
(makefile-match-function-end): Move point. (Bug#983)
Glenn Morris <rgm@gnu.org>
parents:
95520
diff
changeset
|
3 ;; Copyright (C) 1992, 1994, 1999, 2000, 2001, 2002, 2003, 2004, 2005, |
5ac5a5adc028
(makefile-match-function-end): Move point. (Bug#983)
Glenn Morris <rgm@gnu.org>
parents:
95520
diff
changeset
|
4 ;; 2006, 2007, 2008 Free Software Foundation, Inc. |
841 | 5 |
809 | 6 ;; 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
|
7 ;; Eric S. Raymond <esr@snark.thyrsus.com> |
17976 | 8 ;; Maintainer: FSF |
809 | 9 ;; Adapted-By: ESR |
811
e694e0879463
*** empty log message ***
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
809
diff
changeset
|
10 ;; Keywords: unix, tools |
809 | 11 |
12 ;; This file is part of GNU Emacs. | |
13 | |
94673
52b7a8c22af5
Switch to recommended form of GPLv3 permissions notice.
Glenn Morris <rgm@gnu.org>
parents:
94293
diff
changeset
|
14 ;; GNU Emacs is free software: you can redistribute it and/or modify |
809 | 15 ;; it under the terms of the GNU General Public License as published by |
94673
52b7a8c22af5
Switch to recommended form of GPLv3 permissions notice.
Glenn Morris <rgm@gnu.org>
parents:
94293
diff
changeset
|
16 ;; the Free Software Foundation, either version 3 of the License, or |
52b7a8c22af5
Switch to recommended form of GPLv3 permissions notice.
Glenn Morris <rgm@gnu.org>
parents:
94293
diff
changeset
|
17 ;; (at your option) any later version. |
809 | 18 |
19 ;; GNU Emacs is distributed in the hope that it will be useful, | |
20 ;; but WITHOUT ANY WARRANTY; without even the implied warranty of | |
21 ;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the | |
22 ;; GNU General Public License for more details. | |
23 | |
24 ;; You should have received a copy of the GNU General Public License | |
94673
52b7a8c22af5
Switch to recommended form of GPLv3 permissions notice.
Glenn Morris <rgm@gnu.org>
parents:
94293
diff
changeset
|
25 ;; along with GNU Emacs. If not, see <http://www.gnu.org/licenses/>. |
809 | 26 |
2307
10e417efb12a
Added or corrected Commentary sections
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
841
diff
changeset
|
27 ;;; Commentary: |
10e417efb12a
Added or corrected Commentary sections
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
841
diff
changeset
|
28 |
2559
5f2c2994cbca
Rewritten and simplified, commentary added. It now will usually
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
2534
diff
changeset
|
29 ;; 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
|
30 ;; 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
|
31 ;; |
5f2c2994cbca
Rewritten and simplified, commentary added. It now will usually
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
2534
diff
changeset
|
32 ;; 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
|
33 ;; 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
|
34 ;; 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
|
35 ;; 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
|
36 ;; 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
|
37 ;; 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
|
38 ;; |
9454
40340d39257d
(makefile-mode-name): Removed.
Richard M. Stallman <rms@gnu.org>
parents:
7639
diff
changeset
|
39 ;; 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
|
40 ;; 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
|
41 ;; 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
|
42 ;; |
5f2c2994cbca
Rewritten and simplified, commentary added. It now will usually
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
2534
diff
changeset
|
43 ;; 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
|
44 ;; 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
|
45 ;; 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
|
46 ;; prerequisites. |
5f2c2994cbca
Rewritten and simplified, commentary added. It now will usually
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
2534
diff
changeset
|
47 ;; |
9454
40340d39257d
(makefile-mode-name): Removed.
Richard M. Stallman <rms@gnu.org>
parents:
7639
diff
changeset
|
48 ;; The command C-c C-b pops up a browser window listing all target and |
62082
2805978983d8
(makefile-font-lock-keywords): Use font-lock-negation-char-face.
Daniel Pfeiffer <occitan@esperanto.org>
parents:
57158
diff
changeset
|
49 ;; macro names. You can mark or unmark items with C-c SPC, and insert |
2559
5f2c2994cbca
Rewritten and simplified, commentary added. It now will usually
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
2534
diff
changeset
|
50 ;; 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
|
51 ;; |
5f2c2994cbca
Rewritten and simplified, commentary added. It now will usually
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
2534
diff
changeset
|
52 ;; 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
|
53 ;; 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
|
54 ;; |
5f2c2994cbca
Rewritten and simplified, commentary added. It now will usually
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
2534
diff
changeset
|
55 ;; There are numerous other customization variables. |
2307
10e417efb12a
Added or corrected Commentary sections
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
841
diff
changeset
|
56 |
9454
40340d39257d
(makefile-mode-name): Removed.
Richard M. Stallman <rms@gnu.org>
parents:
7639
diff
changeset
|
57 ;; |
40340d39257d
(makefile-mode-name): Removed.
Richard M. Stallman <rms@gnu.org>
parents:
7639
diff
changeset
|
58 ;; To Do: |
40340d39257d
(makefile-mode-name): Removed.
Richard M. Stallman <rms@gnu.org>
parents:
7639
diff
changeset
|
59 ;; |
56503 | 60 ;; * Add missing doc strings, improve terse doc strings. |
9454
40340d39257d
(makefile-mode-name): Removed.
Richard M. Stallman <rms@gnu.org>
parents:
7639
diff
changeset
|
61 ;; * Eliminate electric stuff entirely. |
40340d39257d
(makefile-mode-name): Removed.
Richard M. Stallman <rms@gnu.org>
parents:
7639
diff
changeset
|
62 ;; * 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
|
63 ;; 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
|
64 ;; interact with font-lock. |
40340d39257d
(makefile-mode-name): Removed.
Richard M. Stallman <rms@gnu.org>
parents:
7639
diff
changeset
|
65 ;; * 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
|
66 ;; indentation and slashification done automatically. Hard. |
40340d39257d
(makefile-mode-name): Removed.
Richard M. Stallman <rms@gnu.org>
parents:
7639
diff
changeset
|
67 ;; * Consider removing browser mode. It seems useless. |
40340d39257d
(makefile-mode-name): Removed.
Richard M. Stallman <rms@gnu.org>
parents:
7639
diff
changeset
|
68 ;; * ":" 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
|
69 ;; 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
|
70 ;; * Make browser into a major mode. |
9454
40340d39257d
(makefile-mode-name): Removed.
Richard M. Stallman <rms@gnu.org>
parents:
7639
diff
changeset
|
71 ;; * Clean up macro insertion stuff. It is a mess. |
40340d39257d
(makefile-mode-name): Removed.
Richard M. Stallman <rms@gnu.org>
parents:
7639
diff
changeset
|
72 ;; * Browser entry and exit is weird. Normalize. |
40340d39257d
(makefile-mode-name): Removed.
Richard M. Stallman <rms@gnu.org>
parents:
7639
diff
changeset
|
73 ;; * 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
|
74 ;; Should at least: |
40340d39257d
(makefile-mode-name): Removed.
Richard M. Stallman <rms@gnu.org>
parents:
7639
diff
changeset
|
75 ;; * Act more like dired/buffer menu/whatever. |
40340d39257d
(makefile-mode-name): Removed.
Richard M. Stallman <rms@gnu.org>
parents:
7639
diff
changeset
|
76 ;; * Highlight as mouse traverses. |
40340d39257d
(makefile-mode-name): Removed.
Richard M. Stallman <rms@gnu.org>
parents:
7639
diff
changeset
|
77 ;; * B2 inserts. |
40340d39257d
(makefile-mode-name): Removed.
Richard M. Stallman <rms@gnu.org>
parents:
7639
diff
changeset
|
78 ;; * Update documentation above. |
40340d39257d
(makefile-mode-name): Removed.
Richard M. Stallman <rms@gnu.org>
parents:
7639
diff
changeset
|
79 ;; * Update texinfo manual. |
40340d39257d
(makefile-mode-name): Removed.
Richard M. Stallman <rms@gnu.org>
parents:
7639
diff
changeset
|
80 ;; * Update files.el. |
40340d39257d
(makefile-mode-name): Removed.
Richard M. Stallman <rms@gnu.org>
parents:
7639
diff
changeset
|
81 |
40340d39257d
(makefile-mode-name): Removed.
Richard M. Stallman <rms@gnu.org>
parents:
7639
diff
changeset
|
82 |
40340d39257d
(makefile-mode-name): Removed.
Richard M. Stallman <rms@gnu.org>
parents:
7639
diff
changeset
|
83 |
809 | 84 ;;; Code: |
85 | |
9454
40340d39257d
(makefile-mode-name): Removed.
Richard M. Stallman <rms@gnu.org>
parents:
7639
diff
changeset
|
86 ;; Sadly we need this for a macro. |
40340d39257d
(makefile-mode-name): Removed.
Richard M. Stallman <rms@gnu.org>
parents:
7639
diff
changeset
|
87 (eval-when-compile |
28503 | 88 (require 'imenu) |
89 (require 'dabbrev) | |
90 (require 'add-log)) | |
9454
40340d39257d
(makefile-mode-name): Removed.
Richard M. Stallman <rms@gnu.org>
parents:
7639
diff
changeset
|
91 |
809 | 92 ;;; ------------------------------------------------------------ |
3591
507f64624555
Apply typo patches from Paul Eggert.
Jim Blandy <jimb@redhat.com>
parents:
2671
diff
changeset
|
93 ;;; Configurable stuff |
809 | 94 ;;; ------------------------------------------------------------ |
95 | |
19008 | 96 (defgroup makefile nil |
97 "Makefile editing commands for Emacs." | |
66963
a11fdee52c05
Add :link (custom-group-link font-lock-faces) to defgroup.
Juri Linkov <juri@jurta.org>
parents:
66114
diff
changeset
|
98 :link '(custom-group-link :tag "Font Lock Faces group" font-lock-faces) |
19008 | 99 :group 'tools |
100 :prefix "makefile-") | |
809 | 101 |
63444
cc4a71461921
(makefile-space, makefile-makepp-perl): Eliminate "-face" suffix.
Daniel Pfeiffer <occitan@esperanto.org>
parents:
63138
diff
changeset
|
102 (defface makefile-space |
62276
c1e4bf9803aa
(makefile-targets-face, makefile-shell-face, makefile-makepp-perl-face): New faces.
Daniel Pfeiffer <occitan@esperanto.org>
parents:
62082
diff
changeset
|
103 '((((class color)) (:background "hotpink")) |
c1e4bf9803aa
(makefile-targets-face, makefile-shell-face, makefile-makepp-perl-face): New faces.
Daniel Pfeiffer <occitan@esperanto.org>
parents:
62082
diff
changeset
|
104 (t (:reverse-video t))) |
19028
f2458ec72074
(makefile-space-face): Add defface.
Richard M. Stallman <rms@gnu.org>
parents:
19008
diff
changeset
|
105 "Face to use for highlighting leading spaces in Font-Lock mode." |
48377
7f3cb336821a
(makefile-space-face): Fix typo in group name.
Markus Rost <rost@math.uni-bielefeld.de>
parents:
48037
diff
changeset
|
106 :group 'makefile) |
63474
7e5dd206d539
(put 'makefile-space-face 'face-alias 'makefile-space)
Daniel Pfeiffer <occitan@esperanto.org>
parents:
63444
diff
changeset
|
107 (put 'makefile-space-face 'face-alias 'makefile-space) |
19028
f2458ec72074
(makefile-space-face): Add defface.
Richard M. Stallman <rms@gnu.org>
parents:
19008
diff
changeset
|
108 |
63444
cc4a71461921
(makefile-space, makefile-makepp-perl): Eliminate "-face" suffix.
Daniel Pfeiffer <occitan@esperanto.org>
parents:
63138
diff
changeset
|
109 (defface makefile-targets |
62276
c1e4bf9803aa
(makefile-targets-face, makefile-shell-face, makefile-makepp-perl-face): New faces.
Daniel Pfeiffer <occitan@esperanto.org>
parents:
62082
diff
changeset
|
110 ;; This needs to go along both with foreground and background colors (i.e. shell) |
63444
cc4a71461921
(makefile-space, makefile-makepp-perl): Eliminate "-face" suffix.
Daniel Pfeiffer <occitan@esperanto.org>
parents:
63138
diff
changeset
|
111 '((t (:inherit font-lock-function-name-face))) |
62276
c1e4bf9803aa
(makefile-targets-face, makefile-shell-face, makefile-makepp-perl-face): New faces.
Daniel Pfeiffer <occitan@esperanto.org>
parents:
62082
diff
changeset
|
112 "Face to use for additionally highlighting rule targets in Font-Lock mode." |
62965
a078bb7e3d21
(makefile-targets-face, makefile-shell-face, makefile-makepp-perl-face): Add :version.
Daniel Pfeiffer <occitan@esperanto.org>
parents:
62851
diff
changeset
|
113 :group 'makefile |
a078bb7e3d21
(makefile-targets-face, makefile-shell-face, makefile-makepp-perl-face): Add :version.
Daniel Pfeiffer <occitan@esperanto.org>
parents:
62851
diff
changeset
|
114 :version "22.1") |
62276
c1e4bf9803aa
(makefile-targets-face, makefile-shell-face, makefile-makepp-perl-face): New faces.
Daniel Pfeiffer <occitan@esperanto.org>
parents:
62082
diff
changeset
|
115 |
63444
cc4a71461921
(makefile-space, makefile-makepp-perl): Eliminate "-face" suffix.
Daniel Pfeiffer <occitan@esperanto.org>
parents:
63138
diff
changeset
|
116 (defface makefile-shell |
cc4a71461921
(makefile-space, makefile-makepp-perl): Eliminate "-face" suffix.
Daniel Pfeiffer <occitan@esperanto.org>
parents:
63138
diff
changeset
|
117 () |
cc4a71461921
(makefile-space, makefile-makepp-perl): Eliminate "-face" suffix.
Daniel Pfeiffer <occitan@esperanto.org>
parents:
63138
diff
changeset
|
118 ;;'((((class color) (min-colors 88) (background light)) (:background "seashell1")) |
cc4a71461921
(makefile-space, makefile-makepp-perl): Eliminate "-face" suffix.
Daniel Pfeiffer <occitan@esperanto.org>
parents:
63138
diff
changeset
|
119 ;; (((class color) (min-colors 88) (background dark)) (:background "seashell4"))) |
62276
c1e4bf9803aa
(makefile-targets-face, makefile-shell-face, makefile-makepp-perl-face): New faces.
Daniel Pfeiffer <occitan@esperanto.org>
parents:
62082
diff
changeset
|
120 "Face to use for additionally highlighting Shell commands in Font-Lock mode." |
62965
a078bb7e3d21
(makefile-targets-face, makefile-shell-face, makefile-makepp-perl-face): Add :version.
Daniel Pfeiffer <occitan@esperanto.org>
parents:
62851
diff
changeset
|
121 :group 'makefile |
a078bb7e3d21
(makefile-targets-face, makefile-shell-face, makefile-makepp-perl-face): Add :version.
Daniel Pfeiffer <occitan@esperanto.org>
parents:
62851
diff
changeset
|
122 :version "22.1") |
62276
c1e4bf9803aa
(makefile-targets-face, makefile-shell-face, makefile-makepp-perl-face): New faces.
Daniel Pfeiffer <occitan@esperanto.org>
parents:
62082
diff
changeset
|
123 |
63444
cc4a71461921
(makefile-space, makefile-makepp-perl): Eliminate "-face" suffix.
Daniel Pfeiffer <occitan@esperanto.org>
parents:
63138
diff
changeset
|
124 (defface makefile-makepp-perl |
62276
c1e4bf9803aa
(makefile-targets-face, makefile-shell-face, makefile-makepp-perl-face): New faces.
Daniel Pfeiffer <occitan@esperanto.org>
parents:
62082
diff
changeset
|
125 '((((class color) (background light)) (:background "LightBlue1")) ; Camel Book |
c1e4bf9803aa
(makefile-targets-face, makefile-shell-face, makefile-makepp-perl-face): New faces.
Daniel Pfeiffer <occitan@esperanto.org>
parents:
62082
diff
changeset
|
126 (((class color) (background dark)) (:background "DarkBlue")) |
c1e4bf9803aa
(makefile-targets-face, makefile-shell-face, makefile-makepp-perl-face): New faces.
Daniel Pfeiffer <occitan@esperanto.org>
parents:
62082
diff
changeset
|
127 (t (:reverse-video t))) |
c1e4bf9803aa
(makefile-targets-face, makefile-shell-face, makefile-makepp-perl-face): New faces.
Daniel Pfeiffer <occitan@esperanto.org>
parents:
62082
diff
changeset
|
128 "Face to use for additionally highlighting Perl code in Font-Lock mode." |
62965
a078bb7e3d21
(makefile-targets-face, makefile-shell-face, makefile-makepp-perl-face): Add :version.
Daniel Pfeiffer <occitan@esperanto.org>
parents:
62851
diff
changeset
|
129 :group 'makefile |
a078bb7e3d21
(makefile-targets-face, makefile-shell-face, makefile-makepp-perl-face): Add :version.
Daniel Pfeiffer <occitan@esperanto.org>
parents:
62851
diff
changeset
|
130 :version "22.1") |
62276
c1e4bf9803aa
(makefile-targets-face, makefile-shell-face, makefile-makepp-perl-face): New faces.
Daniel Pfeiffer <occitan@esperanto.org>
parents:
62082
diff
changeset
|
131 |
19008 | 132 (defcustom makefile-browser-buffer-name "*Macros and Targets*" |
28503 | 133 "*Name of the macro- and target browser buffer." |
19008 | 134 :type 'string |
135 :group 'makefile) | |
136 | |
137 (defcustom makefile-target-colon ":" | |
28503 | 138 "*String to append to all target names inserted by `makefile-insert-target'. |
19008 | 139 \":\" or \"::\" are common values." |
140 :type 'string | |
141 :group 'makefile) | |
809 | 142 |
19008 | 143 (defcustom makefile-macro-assign " = " |
28503 | 144 "*String to append to all macro names inserted by `makefile-insert-macro'. |
809 | 145 The normal value should be \" = \", since this is what |
26136 | 146 standard make expects. However, newer makes such as dmake |
809 | 147 allow a larger variety of different macro assignments, so you |
19008 | 148 might prefer to use \" += \" or \" := \" ." |
149 :type 'string | |
150 :group 'makefile) | |
9454
40340d39257d
(makefile-mode-name): Removed.
Richard M. Stallman <rms@gnu.org>
parents:
7639
diff
changeset
|
151 |
19008 | 152 (defcustom makefile-electric-keys nil |
28503 | 153 "*If non-nil, Makefile mode should install electric keybindings. |
19008 | 154 Default is nil." |
155 :type 'boolean | |
156 :group 'makefile) | |
157 | |
158 (defcustom makefile-use-curly-braces-for-macros-p nil | |
28503 | 159 "*Controls the style of generated macro references. |
19008 | 160 Non-nil means macro references should use curly braces, like `${this}'. |
161 nil means use parentheses, like `$(this)'." | |
162 :type 'boolean | |
163 :group 'makefile) | |
809 | 164 |
19008 | 165 (defcustom makefile-tab-after-target-colon t |
28503 | 166 "*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
|
167 Otherwise, a space is inserted. |
19008 | 168 The default is t." |
169 :type 'boolean | |
170 :group 'makefile) | |
809 | 171 |
19008 | 172 (defcustom makefile-browser-leftmost-column 10 |
28503 | 173 "*Number of blanks to the left of the browser selection mark." |
19008 | 174 :type 'integer |
175 :group 'makefile) | |
809 | 176 |
19008 | 177 (defcustom makefile-browser-cursor-column 10 |
28503 | 178 "*Column the cursor goes to when it moves up or down in the Makefile browser." |
19008 | 179 :type 'integer |
180 :group 'makefile) | |
809 | 181 |
19008 | 182 (defcustom makefile-backslash-column 48 |
183 "*Column in which `makefile-backslash-region' inserts backslashes." | |
184 :type 'integer | |
185 :group 'makefile) | |
9758
b9084912762f
Changed almost every doc string.
Richard M. Stallman <rms@gnu.org>
parents:
9477
diff
changeset
|
186 |
19008 | 187 (defcustom makefile-backslash-align t |
28503 | 188 "*If non-nil, `makefile-backslash-region' will align backslashes." |
19008 | 189 :type 'boolean |
190 :group 'makefile) | |
17240
9e236e540a59
(makefile-backslash-align): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
17142
diff
changeset
|
191 |
19008 | 192 (defcustom makefile-browser-selected-mark "+ " |
28503 | 193 "*String used to mark selected entries in the Makefile browser." |
19008 | 194 :type 'string |
195 :group 'makefile) | |
809 | 196 |
19008 | 197 (defcustom makefile-browser-unselected-mark " " |
28503 | 198 "*String used to mark unselected entries in the Makefile browser." |
19008 | 199 :type 'string |
200 :group 'makefile) | |
809 | 201 |
19008 | 202 (defcustom makefile-browser-auto-advance-after-selection-p t |
28503 | 203 "*If non-nil, cursor will move after item is selected in Makefile browser." |
19008 | 204 :type 'boolean |
205 :group 'makefile) | |
809 | 206 |
19008 | 207 (defcustom makefile-pickup-everything-picks-up-filenames-p nil |
28503 | 208 "*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
|
209 This means it calls `makefile-pickup-filenames-as-targets'. |
19008 | 210 Otherwise filenames are omitted." |
211 :type 'boolean | |
212 :group 'makefile) | |
809 | 213 |
48018
1117d26eaae0
(makefile-cleanup-continuations): Default for variable is nil.
Richard M. Stallman <rms@gnu.org>
parents:
47546
diff
changeset
|
214 (defcustom makefile-cleanup-continuations nil |
28503 | 215 "*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
|
216 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
|
217 backslash. This is done silently. |
26136 | 218 IMPORTANT: Please note that enabling this option causes Makefile mode |
19008 | 219 to MODIFY A FILE WITHOUT YOUR CONFIRMATION when \"it seems necessary\"." |
220 :type 'boolean | |
221 :group 'makefile) | |
809 | 222 |
26621 | 223 (defcustom makefile-mode-hook nil |
28503 | 224 "*Normal hook run by `makefile-mode'." |
26621 | 225 :type 'hook |
226 :group 'makefile) | |
227 | |
9758
b9084912762f
Changed almost every doc string.
Richard M. Stallman <rms@gnu.org>
parents:
9477
diff
changeset
|
228 (defvar makefile-browser-hook '()) |
809 | 229 |
230 ;; | |
231 ;; Special targets for DMake, Sun's make ... | |
49598
0d8b17d428b5
Trailing whitepace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents:
48980
diff
changeset
|
232 ;; |
19008 | 233 (defcustom makefile-special-targets-list |
809 | 234 '(("DEFAULT") ("DONE") ("ERROR") ("EXPORT") |
235 ("FAILED") ("GROUPEPILOG") ("GROUPPROLOG") ("IGNORE") | |
236 ("IMPORT") ("INCLUDE") ("INCLUDEDIRS") ("INIT") | |
237 ("KEEP_STATE") ("MAKEFILES") ("MAKE_VERSION") ("NO_PARALLEL") | |
238 ("PARALLEL") ("PHONY") ("PRECIOUS") ("REMOVE") | |
239 ("SCCS_GET") ("SILENT") ("SOURCE") ("SUFFIXES") | |
240 ("WAIT") ("c.o") ("C.o") ("m.o") | |
241 ("el.elc") ("y.c") ("s.o")) | |
28503 | 242 "*List of special targets. |
9758
b9084912762f
Changed almost every doc string.
Richard M. Stallman <rms@gnu.org>
parents:
9477
diff
changeset
|
243 You will be offered to complete on one of those in the minibuffer whenever |
28503 | 244 you enter a \".\" at the beginning of a line in `makefile-mode'." |
19008 | 245 :type '(repeat (list string)) |
246 :group 'makefile) | |
70810
d464ed82246a
(makefile-special-targets-list)
Roland Winkler <Roland.Winkler@physik.uni-erlangen.de>
parents:
70780
diff
changeset
|
247 (put 'makefile-special-targets-list 'risky-local-variable t) |
809 | 248 |
19008 | 249 (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
|
250 '(("@") ("&") (">") ("<") ("*") ("^") ("+") ("?") ("%") ("$")) |
28503 | 251 "*List of macros that are resolved by make at runtime. |
26136 | 252 If you insert a macro reference using `makefile-insert-macro-ref', the name |
253 of the macro is checked against this list. If it can be found its name will | |
19008 | 254 not be enclosed in { } or ( )." |
255 :type '(repeat (list string)) | |
256 :group 'makefile) | |
809 | 257 |
9454
40340d39257d
(makefile-mode-name): Removed.
Richard M. Stallman <rms@gnu.org>
parents:
7639
diff
changeset
|
258 ;; Note that the first big subexpression is used by font lock. Note |
24271 | 259 ;; that if you change this regexp you might have to fix the imenu |
260 ;; index in makefile-imenu-generic-expression. | |
62412
6ac7ed8e212b
(makefile-dependency-regex): Turn it into a var, and refine it to mask one more level of nested vars.
Daniel Pfeiffer <occitan@esperanto.org>
parents:
62276
diff
changeset
|
261 (defvar makefile-dependency-regex |
6ac7ed8e212b
(makefile-dependency-regex): Turn it into a var, and refine it to mask one more level of nested vars.
Daniel Pfeiffer <occitan@esperanto.org>
parents:
62276
diff
changeset
|
262 ;; Allow for two nested levels $(v1:$(v2:$(v3:a=b)=c)=d) |
63138
2a347143dae3
(makefile-shell-face): Make this a no-op
Richard M. Stallman <rms@gnu.org>
parents:
63067
diff
changeset
|
263 "^\\(\\(?:\\$\\(?:[({]\\(?:\\$\\(?:[({]\\(?:\\$\\(?:[^({]\\|.[^\n$#})]+?[})]\\)\\|[^\n$#)}]\\)+?[})]\\|[^({]\\)\\|[^\n$#)}]\\)+?[})]\\|[^({]\\)\\|[^\n$#:=]\\)+?\\)\\(:\\)\\(?:[ \t]*$\\|[^=\n]\\(?:[^#\n]*?;[ \t]*\\(.+\\)\\)?\\)" |
809 | 264 "Regex used to find dependency lines in a makefile.") |
265 | |
62965
a078bb7e3d21
(makefile-targets-face, makefile-shell-face, makefile-makepp-perl-face): Add :version.
Daniel Pfeiffer <occitan@esperanto.org>
parents:
62851
diff
changeset
|
266 (defconst makefile-bsdmake-dependency-regex |
a078bb7e3d21
(makefile-targets-face, makefile-shell-face, makefile-makepp-perl-face): Add :version.
Daniel Pfeiffer <occitan@esperanto.org>
parents:
62851
diff
changeset
|
267 (progn (string-match (regexp-quote "\\(:\\)") makefile-dependency-regex) |
a078bb7e3d21
(makefile-targets-face, makefile-shell-face, makefile-makepp-perl-face): Add :version.
Daniel Pfeiffer <occitan@esperanto.org>
parents:
62851
diff
changeset
|
268 (replace-match "\\([:!]\\)" t t makefile-dependency-regex)) |
a078bb7e3d21
(makefile-targets-face, makefile-shell-face, makefile-makepp-perl-face): Add :version.
Daniel Pfeiffer <occitan@esperanto.org>
parents:
62851
diff
changeset
|
269 "Regex used to find dependency lines in a BSD makefile.") |
a078bb7e3d21
(makefile-targets-face, makefile-shell-face, makefile-makepp-perl-face): Add :version.
Daniel Pfeiffer <occitan@esperanto.org>
parents:
62851
diff
changeset
|
270 |
62444
24bf25fa47db
(makefile-dependency-skip): New variable.
Daniel Pfeiffer <occitan@esperanto.org>
parents:
62412
diff
changeset
|
271 (defvar makefile-dependency-skip "^:" |
24bf25fa47db
(makefile-dependency-skip): New variable.
Daniel Pfeiffer <occitan@esperanto.org>
parents:
62412
diff
changeset
|
272 "Characters to skip to find a line that might be a dependency.") |
24bf25fa47db
(makefile-dependency-skip): New variable.
Daniel Pfeiffer <occitan@esperanto.org>
parents:
62412
diff
changeset
|
273 |
62412
6ac7ed8e212b
(makefile-dependency-regex): Turn it into a var, and refine it to mask one more level of nested vars.
Daniel Pfeiffer <occitan@esperanto.org>
parents:
62276
diff
changeset
|
274 (defvar makefile-rule-action-regex |
62849
dbba3c92fc76
(makefile-rule-action-regex, makefile-macroassign-regex): Continuation lines may be empty. Reported by Joshua Varner.
Daniel Pfeiffer <occitan@esperanto.org>
parents:
62569
diff
changeset
|
275 "^\t[ \t]*\\([-@]*\\)[ \t]*\\(\\(?:.*\\\\\n\\)*.*\\)" |
62276
c1e4bf9803aa
(makefile-targets-face, makefile-shell-face, makefile-makepp-perl-face): New faces.
Daniel Pfeiffer <occitan@esperanto.org>
parents:
62082
diff
changeset
|
276 "Regex used to highlight rule action lines in font lock mode.") |
c1e4bf9803aa
(makefile-targets-face, makefile-shell-face, makefile-makepp-perl-face): New faces.
Daniel Pfeiffer <occitan@esperanto.org>
parents:
62082
diff
changeset
|
277 |
62965
a078bb7e3d21
(makefile-targets-face, makefile-shell-face, makefile-makepp-perl-face): Add :version.
Daniel Pfeiffer <occitan@esperanto.org>
parents:
62851
diff
changeset
|
278 (defconst makefile-makepp-rule-action-regex |
a078bb7e3d21
(makefile-targets-face, makefile-shell-face, makefile-makepp-perl-face): Add :version.
Daniel Pfeiffer <occitan@esperanto.org>
parents:
62851
diff
changeset
|
279 ;; Don't care about initial tab, but I don't know how to font-lock correctly without. |
a078bb7e3d21
(makefile-targets-face, makefile-shell-face, makefile-makepp-perl-face): Add :version.
Daniel Pfeiffer <occitan@esperanto.org>
parents:
62851
diff
changeset
|
280 "^\t[ \t]*\\(\\(?:\\(?:noecho\\|ignore[-_]error\\|[-@]+\\)[ \t]*\\)*\\)\\(\\(&\\S +\\)?\\(?:.*\\\\\n\\)*.*\\)" |
a078bb7e3d21
(makefile-targets-face, makefile-shell-face, makefile-makepp-perl-face): Add :version.
Daniel Pfeiffer <occitan@esperanto.org>
parents:
62851
diff
changeset
|
281 "Regex used to highlight makepp rule action lines in font lock mode.") |
a078bb7e3d21
(makefile-targets-face, makefile-shell-face, makefile-makepp-perl-face): Add :version.
Daniel Pfeiffer <occitan@esperanto.org>
parents:
62851
diff
changeset
|
282 |
a078bb7e3d21
(makefile-targets-face, makefile-shell-face, makefile-makepp-perl-face): Add :version.
Daniel Pfeiffer <occitan@esperanto.org>
parents:
62851
diff
changeset
|
283 (defconst makefile-bsdmake-rule-action-regex |
a078bb7e3d21
(makefile-targets-face, makefile-shell-face, makefile-makepp-perl-face): Add :version.
Daniel Pfeiffer <occitan@esperanto.org>
parents:
62851
diff
changeset
|
284 (progn (string-match "-@" makefile-rule-action-regex) |
a078bb7e3d21
(makefile-targets-face, makefile-shell-face, makefile-makepp-perl-face): Add :version.
Daniel Pfeiffer <occitan@esperanto.org>
parents:
62851
diff
changeset
|
285 (replace-match "-+@" t t makefile-rule-action-regex)) |
a078bb7e3d21
(makefile-targets-face, makefile-shell-face, makefile-makepp-perl-face): Add :version.
Daniel Pfeiffer <occitan@esperanto.org>
parents:
62851
diff
changeset
|
286 "Regex used to highlight BSD rule action lines in font lock mode.") |
a078bb7e3d21
(makefile-targets-face, makefile-shell-face, makefile-makepp-perl-face): Add :version.
Daniel Pfeiffer <occitan@esperanto.org>
parents:
62851
diff
changeset
|
287 |
62276
c1e4bf9803aa
(makefile-targets-face, makefile-shell-face, makefile-makepp-perl-face): New faces.
Daniel Pfeiffer <occitan@esperanto.org>
parents:
62082
diff
changeset
|
288 ;; Note that the first and second subexpression is used by font lock. Note |
c1e4bf9803aa
(makefile-targets-face, makefile-shell-face, makefile-makepp-perl-face): New faces.
Daniel Pfeiffer <occitan@esperanto.org>
parents:
62082
diff
changeset
|
289 ;; that if you change this regexp you might have to fix the imenu index in |
c1e4bf9803aa
(makefile-targets-face, makefile-shell-face, makefile-makepp-perl-face): New faces.
Daniel Pfeiffer <occitan@esperanto.org>
parents:
62082
diff
changeset
|
290 ;; makefile-imenu-generic-expression. |
809 | 291 (defconst makefile-macroassign-regex |
71030
6e1192ac395f
(makefile-browser-map, makefile-mode-syntax-table): Move init inside decl.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
70812
diff
changeset
|
292 ;; We used to match not just the varname but also the whole value |
6e1192ac395f
(makefile-browser-map, makefile-mode-syntax-table): Move init inside decl.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
70812
diff
changeset
|
293 ;; (spanning potentially several lines). |
6e1192ac395f
(makefile-browser-map, makefile-mode-syntax-table): Move init inside decl.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
70812
diff
changeset
|
294 ;; "^ *\\([^ \n\t][^:#= \t\n]*\\)[ \t]*\\(?:!=[ \t]*\\(\\(?:.+\\\\\n\\)*.+\\)\\|[*:+]?[:?]?=[ \t]*\\(\\(?:.*\\\\\n\\)*.*\\)\\)" |
71559
e0adef75745f
(makefile-macroassign-regex): Accept preceding keyword.
Daniel Pfeiffer <occitan@esperanto.org>
parents:
71293
diff
changeset
|
295 ;; What about the define statement? What about differentiating this for makepp? |
e0adef75745f
(makefile-macroassign-regex): Accept preceding keyword.
Daniel Pfeiffer <occitan@esperanto.org>
parents:
71293
diff
changeset
|
296 "\\(?:^\\|^export\\|^override\\|:\\|: *override\\) *\\([^ \n\t][^:#= \t\n]*\\)[ \t]*\\(?:!=\\|[*:+]?[:?]?=\\)" |
809 | 297 "Regex used to find macro assignment lines in a makefile.") |
298 | |
62276
c1e4bf9803aa
(makefile-targets-face, makefile-shell-face, makefile-makepp-perl-face): New faces.
Daniel Pfeiffer <occitan@esperanto.org>
parents:
62082
diff
changeset
|
299 (defconst makefile-var-use-regex |
62412
6ac7ed8e212b
(makefile-dependency-regex): Turn it into a var, and refine it to mask one more level of nested vars.
Daniel Pfeiffer <occitan@esperanto.org>
parents:
62276
diff
changeset
|
300 "[^$]\\$[({]\\([-a-zA-Z0-9_.]+\\|[@%<?^+*][FD]?\\)" |
62276
c1e4bf9803aa
(makefile-targets-face, makefile-shell-face, makefile-makepp-perl-face): New faces.
Daniel Pfeiffer <occitan@esperanto.org>
parents:
62082
diff
changeset
|
301 "Regex used to find $(macro) uses in a makefile.") |
c1e4bf9803aa
(makefile-targets-face, makefile-shell-face, makefile-makepp-perl-face): New faces.
Daniel Pfeiffer <occitan@esperanto.org>
parents:
62082
diff
changeset
|
302 |
809 | 303 (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
|
304 "\\(^\\..*\\)\\|\\(.*~$\\)\\|\\(.*,v$\\)\\|\\(\\.[chy]\\)" |
809 | 305 "Regex for filenames that will NOT be included in the target list.") |
306 | |
63444
cc4a71461921
(makefile-space, makefile-makepp-perl): Eliminate "-face" suffix.
Daniel Pfeiffer <occitan@esperanto.org>
parents:
63138
diff
changeset
|
307 (defvar makefile-space 'makefile-space |
12912
e519963ce31a
(makefile-space-face): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
12373
diff
changeset
|
308 "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
|
309 |
62276
c1e4bf9803aa
(makefile-targets-face, makefile-shell-face, makefile-makepp-perl-face): New faces.
Daniel Pfeiffer <occitan@esperanto.org>
parents:
62082
diff
changeset
|
310 ;; These lists were inspired by the old solution. But they are silly, because |
c1e4bf9803aa
(makefile-targets-face, makefile-shell-face, makefile-makepp-perl-face): New faces.
Daniel Pfeiffer <occitan@esperanto.org>
parents:
62082
diff
changeset
|
311 ;; you can't differentiate what follows. They need to be split up. |
c1e4bf9803aa
(makefile-targets-face, makefile-shell-face, makefile-makepp-perl-face): New faces.
Daniel Pfeiffer <occitan@esperanto.org>
parents:
62082
diff
changeset
|
312 (defconst makefile-statements '("include") |
c1e4bf9803aa
(makefile-targets-face, makefile-shell-face, makefile-makepp-perl-face): New faces.
Daniel Pfeiffer <occitan@esperanto.org>
parents:
62082
diff
changeset
|
313 "List of keywords understood by standard make.") |
c1e4bf9803aa
(makefile-targets-face, makefile-shell-face, makefile-makepp-perl-face): New faces.
Daniel Pfeiffer <occitan@esperanto.org>
parents:
62082
diff
changeset
|
314 |
c1e4bf9803aa
(makefile-targets-face, makefile-shell-face, makefile-makepp-perl-face): New faces.
Daniel Pfeiffer <occitan@esperanto.org>
parents:
62082
diff
changeset
|
315 (defconst makefile-automake-statements |
c1e4bf9803aa
(makefile-targets-face, makefile-shell-face, makefile-makepp-perl-face): New faces.
Daniel Pfeiffer <occitan@esperanto.org>
parents:
62082
diff
changeset
|
316 `("if" "else" "endif" ,@makefile-statements) |
c1e4bf9803aa
(makefile-targets-face, makefile-shell-face, makefile-makepp-perl-face): New faces.
Daniel Pfeiffer <occitan@esperanto.org>
parents:
62082
diff
changeset
|
317 "List of keywords understood by automake.") |
c1e4bf9803aa
(makefile-targets-face, makefile-shell-face, makefile-makepp-perl-face): New faces.
Daniel Pfeiffer <occitan@esperanto.org>
parents:
62082
diff
changeset
|
318 |
c1e4bf9803aa
(makefile-targets-face, makefile-shell-face, makefile-makepp-perl-face): New faces.
Daniel Pfeiffer <occitan@esperanto.org>
parents:
62082
diff
changeset
|
319 (defconst makefile-gmake-statements |
71559
e0adef75745f
(makefile-macroassign-regex): Accept preceding keyword.
Daniel Pfeiffer <occitan@esperanto.org>
parents:
71293
diff
changeset
|
320 `("-sinclude" "sinclude" "vpath" ; makefile-makepp-statements takes rest |
62276
c1e4bf9803aa
(makefile-targets-face, makefile-shell-face, makefile-makepp-perl-face): New faces.
Daniel Pfeiffer <occitan@esperanto.org>
parents:
62082
diff
changeset
|
321 "ifdef" "ifndef" "ifeq" "ifneq" "-include" "define" "endef" "export" |
71559
e0adef75745f
(makefile-macroassign-regex): Accept preceding keyword.
Daniel Pfeiffer <occitan@esperanto.org>
parents:
71293
diff
changeset
|
322 "override define" "override" "unexport" |
62276
c1e4bf9803aa
(makefile-targets-face, makefile-shell-face, makefile-makepp-perl-face): New faces.
Daniel Pfeiffer <occitan@esperanto.org>
parents:
62082
diff
changeset
|
323 ,@(cdr makefile-automake-statements)) |
c1e4bf9803aa
(makefile-targets-face, makefile-shell-face, makefile-makepp-perl-face): New faces.
Daniel Pfeiffer <occitan@esperanto.org>
parents:
62082
diff
changeset
|
324 "List of keywords understood by gmake.") |
28503 | 325 |
62276
c1e4bf9803aa
(makefile-targets-face, makefile-shell-face, makefile-makepp-perl-face): New faces.
Daniel Pfeiffer <occitan@esperanto.org>
parents:
62082
diff
changeset
|
326 ;; These are even more silly, because you can have more spaces in between. |
c1e4bf9803aa
(makefile-targets-face, makefile-shell-face, makefile-makepp-perl-face): New faces.
Daniel Pfeiffer <occitan@esperanto.org>
parents:
62082
diff
changeset
|
327 (defconst makefile-makepp-statements |
c1e4bf9803aa
(makefile-targets-face, makefile-shell-face, makefile-makepp-perl-face): New faces.
Daniel Pfeiffer <occitan@esperanto.org>
parents:
62082
diff
changeset
|
328 `("and ifdef" "and ifndef" "and ifeq" "and ifneq" "and ifperl" |
c1e4bf9803aa
(makefile-targets-face, makefile-shell-face, makefile-makepp-perl-face): New faces.
Daniel Pfeiffer <occitan@esperanto.org>
parents:
62082
diff
changeset
|
329 "and ifmakeperl" "and ifsys" "and ifnsys" "build_cache" "build_check" |
c1e4bf9803aa
(makefile-targets-face, makefile-shell-face, makefile-makepp-perl-face): New faces.
Daniel Pfeiffer <occitan@esperanto.org>
parents:
62082
diff
changeset
|
330 "else ifdef" "else ifndef" "else ifeq" "else ifneq" "else ifperl" |
71559
e0adef75745f
(makefile-macroassign-regex): Accept preceding keyword.
Daniel Pfeiffer <occitan@esperanto.org>
parents:
71293
diff
changeset
|
331 "else ifmakeperl" "else ifsys" "else ifnsys" "enddef" "global" |
e0adef75745f
(makefile-macroassign-regex): Accept preceding keyword.
Daniel Pfeiffer <occitan@esperanto.org>
parents:
71293
diff
changeset
|
332 "load_makefile" "ifperl" "ifmakeperl" "ifsys" "ifnsys" "_include" |
e0adef75745f
(makefile-macroassign-regex): Accept preceding keyword.
Daniel Pfeiffer <occitan@esperanto.org>
parents:
71293
diff
changeset
|
333 "makeperl" "makesub" "no_implicit_load" "perl" "perl-begin" "perl_begin" |
e0adef75745f
(makefile-macroassign-regex): Accept preceding keyword.
Daniel Pfeiffer <occitan@esperanto.org>
parents:
71293
diff
changeset
|
334 "perl-end" "perl_end" "prebuild" "or ifdef" "or ifndef" "or ifeq" |
e0adef75745f
(makefile-macroassign-regex): Accept preceding keyword.
Daniel Pfeiffer <occitan@esperanto.org>
parents:
71293
diff
changeset
|
335 "or ifneq" "or ifperl" "or ifmakeperl" "or ifsys" "or ifnsys" |
e0adef75745f
(makefile-macroassign-regex): Accept preceding keyword.
Daniel Pfeiffer <occitan@esperanto.org>
parents:
71293
diff
changeset
|
336 "override export" "override global" "register_command_parser" |
62276
c1e4bf9803aa
(makefile-targets-face, makefile-shell-face, makefile-makepp-perl-face): New faces.
Daniel Pfeiffer <occitan@esperanto.org>
parents:
62082
diff
changeset
|
337 "register_scanner" "repository" "runtime" "signature" "sub" |
71559
e0adef75745f
(makefile-macroassign-regex): Accept preceding keyword.
Daniel Pfeiffer <occitan@esperanto.org>
parents:
71293
diff
changeset
|
338 ,@(nthcdr 3 makefile-gmake-statements)) |
62276
c1e4bf9803aa
(makefile-targets-face, makefile-shell-face, makefile-makepp-perl-face): New faces.
Daniel Pfeiffer <occitan@esperanto.org>
parents:
62082
diff
changeset
|
339 "List of keywords understood by gmake.") |
c1e4bf9803aa
(makefile-targets-face, makefile-shell-face, makefile-makepp-perl-face): New faces.
Daniel Pfeiffer <occitan@esperanto.org>
parents:
62082
diff
changeset
|
340 |
c1e4bf9803aa
(makefile-targets-face, makefile-shell-face, makefile-makepp-perl-face): New faces.
Daniel Pfeiffer <occitan@esperanto.org>
parents:
62082
diff
changeset
|
341 (defconst makefile-bsdmake-statements |
c1e4bf9803aa
(makefile-targets-face, makefile-shell-face, makefile-makepp-perl-face): New faces.
Daniel Pfeiffer <occitan@esperanto.org>
parents:
62082
diff
changeset
|
342 `(".elif" ".elifdef" ".elifmake" ".elifndef" ".elifnmake" ".else" ".endfor" |
c1e4bf9803aa
(makefile-targets-face, makefile-shell-face, makefile-makepp-perl-face): New faces.
Daniel Pfeiffer <occitan@esperanto.org>
parents:
62082
diff
changeset
|
343 ".endif" ".for" ".if" ".ifdef" ".ifmake" ".ifndef" ".ifnmake" ".undef") |
c1e4bf9803aa
(makefile-targets-face, makefile-shell-face, makefile-makepp-perl-face): New faces.
Daniel Pfeiffer <occitan@esperanto.org>
parents:
62082
diff
changeset
|
344 "List of keywords understood by BSD make.") |
c1e4bf9803aa
(makefile-targets-face, makefile-shell-face, makefile-makepp-perl-face): New faces.
Daniel Pfeiffer <occitan@esperanto.org>
parents:
62082
diff
changeset
|
345 |
62412
6ac7ed8e212b
(makefile-dependency-regex): Turn it into a var, and refine it to mask one more level of nested vars.
Daniel Pfeiffer <occitan@esperanto.org>
parents:
62276
diff
changeset
|
346 (defun makefile-make-font-lock-keywords (var keywords space |
6ac7ed8e212b
(makefile-dependency-regex): Turn it into a var, and refine it to mask one more level of nested vars.
Daniel Pfeiffer <occitan@esperanto.org>
parents:
62276
diff
changeset
|
347 &optional negation |
6ac7ed8e212b
(makefile-dependency-regex): Turn it into a var, and refine it to mask one more level of nested vars.
Daniel Pfeiffer <occitan@esperanto.org>
parents:
62276
diff
changeset
|
348 &rest font-lock-keywords) |
62276
c1e4bf9803aa
(makefile-targets-face, makefile-shell-face, makefile-makepp-perl-face): New faces.
Daniel Pfeiffer <occitan@esperanto.org>
parents:
62082
diff
changeset
|
349 `(;; Do macro assignments. These get the "variable-name" face. |
c1e4bf9803aa
(makefile-targets-face, makefile-shell-face, makefile-makepp-perl-face): New faces.
Daniel Pfeiffer <occitan@esperanto.org>
parents:
62082
diff
changeset
|
350 (,makefile-macroassign-regex |
c1e4bf9803aa
(makefile-targets-face, makefile-shell-face, makefile-makepp-perl-face): New faces.
Daniel Pfeiffer <occitan@esperanto.org>
parents:
62082
diff
changeset
|
351 (1 font-lock-variable-name-face) |
c1e4bf9803aa
(makefile-targets-face, makefile-shell-face, makefile-makepp-perl-face): New faces.
Daniel Pfeiffer <occitan@esperanto.org>
parents:
62082
diff
changeset
|
352 ;; This is for after != |
63444
cc4a71461921
(makefile-space, makefile-makepp-perl): Eliminate "-face" suffix.
Daniel Pfeiffer <occitan@esperanto.org>
parents:
63138
diff
changeset
|
353 (2 'makefile-shell prepend t) |
62446
c03004f09a28
(makefile-macroassign-regex, makefile-make-font-lock-keywords): Also fontify plain strings assigned to variables, mostly so that a colon has a face and is thus not taken as a dependency separator.
Daniel Pfeiffer <occitan@esperanto.org>
parents:
62444
diff
changeset
|
354 ;; This is for after normal assignment |
c03004f09a28
(makefile-macroassign-regex, makefile-make-font-lock-keywords): Also fontify plain strings assigned to variables, mostly so that a colon has a face and is thus not taken as a dependency separator.
Daniel Pfeiffer <occitan@esperanto.org>
parents:
62444
diff
changeset
|
355 (3 'font-lock-string-face prepend t)) |
28503 | 356 |
62276
c1e4bf9803aa
(makefile-targets-face, makefile-shell-face, makefile-makepp-perl-face): New faces.
Daniel Pfeiffer <occitan@esperanto.org>
parents:
62082
diff
changeset
|
357 ;; Rule actions. |
62412
6ac7ed8e212b
(makefile-dependency-regex): Turn it into a var, and refine it to mask one more level of nested vars.
Daniel Pfeiffer <occitan@esperanto.org>
parents:
62276
diff
changeset
|
358 (makefile-match-action |
62276
c1e4bf9803aa
(makefile-targets-face, makefile-shell-face, makefile-makepp-perl-face): New faces.
Daniel Pfeiffer <occitan@esperanto.org>
parents:
62082
diff
changeset
|
359 (1 font-lock-type-face) |
63444
cc4a71461921
(makefile-space, makefile-makepp-perl): Eliminate "-face" suffix.
Daniel Pfeiffer <occitan@esperanto.org>
parents:
63138
diff
changeset
|
360 (2 'makefile-shell prepend) |
62276
c1e4bf9803aa
(makefile-targets-face, makefile-shell-face, makefile-makepp-perl-face): New faces.
Daniel Pfeiffer <occitan@esperanto.org>
parents:
62082
diff
changeset
|
361 ;; Only makepp has builtin commands. |
c1e4bf9803aa
(makefile-targets-face, makefile-shell-face, makefile-makepp-perl-face): New faces.
Daniel Pfeiffer <occitan@esperanto.org>
parents:
62082
diff
changeset
|
362 (3 font-lock-builtin-face prepend t)) |
c1e4bf9803aa
(makefile-targets-face, makefile-shell-face, makefile-makepp-perl-face): New faces.
Daniel Pfeiffer <occitan@esperanto.org>
parents:
62082
diff
changeset
|
363 |
c1e4bf9803aa
(makefile-targets-face, makefile-shell-face, makefile-makepp-perl-face): New faces.
Daniel Pfeiffer <occitan@esperanto.org>
parents:
62082
diff
changeset
|
364 ;; Variable references even in targets/strings/comments. |
c1e4bf9803aa
(makefile-targets-face, makefile-shell-face, makefile-makepp-perl-face): New faces.
Daniel Pfeiffer <occitan@esperanto.org>
parents:
62082
diff
changeset
|
365 (,var 1 font-lock-variable-name-face prepend) |
c1e4bf9803aa
(makefile-targets-face, makefile-shell-face, makefile-makepp-perl-face): New faces.
Daniel Pfeiffer <occitan@esperanto.org>
parents:
62082
diff
changeset
|
366 |
c1e4bf9803aa
(makefile-targets-face, makefile-shell-face, makefile-makepp-perl-face): New faces.
Daniel Pfeiffer <occitan@esperanto.org>
parents:
62082
diff
changeset
|
367 ;; Automatic variable references and single character variable references, |
c1e4bf9803aa
(makefile-targets-face, makefile-shell-face, makefile-makepp-perl-face): New faces.
Daniel Pfeiffer <occitan@esperanto.org>
parents:
62082
diff
changeset
|
368 ;; but not shell variables references. |
c1e4bf9803aa
(makefile-targets-face, makefile-shell-face, makefile-makepp-perl-face): New faces.
Daniel Pfeiffer <occitan@esperanto.org>
parents:
62082
diff
changeset
|
369 ("[^$]\\$\\([@%<?^+*_]\\|[a-zA-Z0-9]\\>\\)" |
49754
77c84ccd18b9
(makefile-font-lock-keywords): Simplify last change.
Juanma Barranquero <lekktu@gmail.com>
parents:
49739
diff
changeset
|
370 1 font-lock-constant-face prepend) |
62276
c1e4bf9803aa
(makefile-targets-face, makefile-shell-face, makefile-makepp-perl-face): New faces.
Daniel Pfeiffer <occitan@esperanto.org>
parents:
62082
diff
changeset
|
371 ("[^$]\\(\\$[@%*]\\)" |
63444
cc4a71461921
(makefile-space, makefile-makepp-perl): Eliminate "-face" suffix.
Daniel Pfeiffer <occitan@esperanto.org>
parents:
63138
diff
changeset
|
372 1 'makefile-targets append) |
28503 | 373 |
62276
c1e4bf9803aa
(makefile-targets-face, makefile-shell-face, makefile-makepp-perl-face): New faces.
Daniel Pfeiffer <occitan@esperanto.org>
parents:
62082
diff
changeset
|
374 ;; Fontify conditionals and includes. |
c1e4bf9803aa
(makefile-targets-face, makefile-shell-face, makefile-makepp-perl-face): New faces.
Daniel Pfeiffer <occitan@esperanto.org>
parents:
62082
diff
changeset
|
375 (,(concat "^\\(?: [ \t]*\\)?" |
c1e4bf9803aa
(makefile-targets-face, makefile-shell-face, makefile-makepp-perl-face): New faces.
Daniel Pfeiffer <occitan@esperanto.org>
parents:
62082
diff
changeset
|
376 (regexp-opt keywords t) |
c1e4bf9803aa
(makefile-targets-face, makefile-shell-face, makefile-makepp-perl-face): New faces.
Daniel Pfeiffer <occitan@esperanto.org>
parents:
62082
diff
changeset
|
377 "\\>[ \t]*\\([^: \t\n#]*\\)") |
c1e4bf9803aa
(makefile-targets-face, makefile-shell-face, makefile-makepp-perl-face): New faces.
Daniel Pfeiffer <occitan@esperanto.org>
parents:
62082
diff
changeset
|
378 (1 font-lock-keyword-face) (2 font-lock-variable-name-face)) |
c1e4bf9803aa
(makefile-targets-face, makefile-shell-face, makefile-makepp-perl-face): New faces.
Daniel Pfeiffer <occitan@esperanto.org>
parents:
62082
diff
changeset
|
379 |
62412
6ac7ed8e212b
(makefile-dependency-regex): Turn it into a var, and refine it to mask one more level of nested vars.
Daniel Pfeiffer <occitan@esperanto.org>
parents:
62276
diff
changeset
|
380 ,@(if negation |
62491
2acb3a2dd842
(makefile-previous-dependency, makefile-match-dependency): Check for := (and in bsd mode also !=) to give a better result, even when font-lock is not on.
Daniel Pfeiffer <occitan@esperanto.org>
parents:
62446
diff
changeset
|
381 `((,negation (1 font-lock-negation-char-face prepend) |
2acb3a2dd842
(makefile-previous-dependency, makefile-match-dependency): Check for := (and in bsd mode also !=) to give a better result, even when font-lock is not on.
Daniel Pfeiffer <occitan@esperanto.org>
parents:
62446
diff
changeset
|
382 (2 font-lock-negation-char-face prepend t)))) |
62276
c1e4bf9803aa
(makefile-targets-face, makefile-shell-face, makefile-makepp-perl-face): New faces.
Daniel Pfeiffer <occitan@esperanto.org>
parents:
62082
diff
changeset
|
383 |
c1e4bf9803aa
(makefile-targets-face, makefile-shell-face, makefile-makepp-perl-face): New faces.
Daniel Pfeiffer <occitan@esperanto.org>
parents:
62082
diff
changeset
|
384 ,@(if space |
c1e4bf9803aa
(makefile-targets-face, makefile-shell-face, makefile-makepp-perl-face): New faces.
Daniel Pfeiffer <occitan@esperanto.org>
parents:
62082
diff
changeset
|
385 '(;; Highlight lines that contain just whitespace. |
c1e4bf9803aa
(makefile-targets-face, makefile-shell-face, makefile-makepp-perl-face): New faces.
Daniel Pfeiffer <occitan@esperanto.org>
parents:
62082
diff
changeset
|
386 ;; They can cause trouble, especially if they start with a tab. |
63444
cc4a71461921
(makefile-space, makefile-makepp-perl): Eliminate "-face" suffix.
Daniel Pfeiffer <occitan@esperanto.org>
parents:
63138
diff
changeset
|
387 ("^[ \t]+$" . makefile-space) |
62276
c1e4bf9803aa
(makefile-targets-face, makefile-shell-face, makefile-makepp-perl-face): New faces.
Daniel Pfeiffer <occitan@esperanto.org>
parents:
62082
diff
changeset
|
388 |
c1e4bf9803aa
(makefile-targets-face, makefile-shell-face, makefile-makepp-perl-face): New faces.
Daniel Pfeiffer <occitan@esperanto.org>
parents:
62082
diff
changeset
|
389 ;; Highlight shell comments that Make treats as commands, |
c1e4bf9803aa
(makefile-targets-face, makefile-shell-face, makefile-makepp-perl-face): New faces.
Daniel Pfeiffer <occitan@esperanto.org>
parents:
62082
diff
changeset
|
390 ;; since these can fool people. |
63444
cc4a71461921
(makefile-space, makefile-makepp-perl): Eliminate "-face" suffix.
Daniel Pfeiffer <occitan@esperanto.org>
parents:
63138
diff
changeset
|
391 ("^\t+#" 0 makefile-space t) |
62276
c1e4bf9803aa
(makefile-targets-face, makefile-shell-face, makefile-makepp-perl-face): New faces.
Daniel Pfeiffer <occitan@esperanto.org>
parents:
62082
diff
changeset
|
392 |
c1e4bf9803aa
(makefile-targets-face, makefile-shell-face, makefile-makepp-perl-face): New faces.
Daniel Pfeiffer <occitan@esperanto.org>
parents:
62082
diff
changeset
|
393 ;; Highlight spaces that precede tabs. |
c1e4bf9803aa
(makefile-targets-face, makefile-shell-face, makefile-makepp-perl-face): New faces.
Daniel Pfeiffer <occitan@esperanto.org>
parents:
62082
diff
changeset
|
394 ;; They can make a tab fail to be effective. |
63444
cc4a71461921
(makefile-space, makefile-makepp-perl): Eliminate "-face" suffix.
Daniel Pfeiffer <occitan@esperanto.org>
parents:
63138
diff
changeset
|
395 ("^\\( +\\)\t" 1 makefile-space))) |
62276
c1e4bf9803aa
(makefile-targets-face, makefile-shell-face, makefile-makepp-perl-face): New faces.
Daniel Pfeiffer <occitan@esperanto.org>
parents:
62082
diff
changeset
|
396 |
62412
6ac7ed8e212b
(makefile-dependency-regex): Turn it into a var, and refine it to mask one more level of nested vars.
Daniel Pfeiffer <occitan@esperanto.org>
parents:
62276
diff
changeset
|
397 ,@font-lock-keywords |
6ac7ed8e212b
(makefile-dependency-regex): Turn it into a var, and refine it to mask one more level of nested vars.
Daniel Pfeiffer <occitan@esperanto.org>
parents:
62276
diff
changeset
|
398 |
6ac7ed8e212b
(makefile-dependency-regex): Turn it into a var, and refine it to mask one more level of nested vars.
Daniel Pfeiffer <occitan@esperanto.org>
parents:
62276
diff
changeset
|
399 ;; Do dependencies. |
6ac7ed8e212b
(makefile-dependency-regex): Turn it into a var, and refine it to mask one more level of nested vars.
Daniel Pfeiffer <occitan@esperanto.org>
parents:
62276
diff
changeset
|
400 (makefile-match-dependency |
63444
cc4a71461921
(makefile-space, makefile-makepp-perl): Eliminate "-face" suffix.
Daniel Pfeiffer <occitan@esperanto.org>
parents:
63138
diff
changeset
|
401 (1 'makefile-targets prepend) |
cc4a71461921
(makefile-space, makefile-makepp-perl): Eliminate "-face" suffix.
Daniel Pfeiffer <occitan@esperanto.org>
parents:
63138
diff
changeset
|
402 (3 'makefile-shell prepend t)))) |
49739
7e5f5bd11b07
(makefile-font-lock-keywords): Fontify single character variable references, but
Juanma Barranquero <lekktu@gmail.com>
parents:
49598
diff
changeset
|
403 |
62276
c1e4bf9803aa
(makefile-targets-face, makefile-shell-face, makefile-makepp-perl-face): New faces.
Daniel Pfeiffer <occitan@esperanto.org>
parents:
62082
diff
changeset
|
404 (defconst makefile-font-lock-keywords |
c1e4bf9803aa
(makefile-targets-face, makefile-shell-face, makefile-makepp-perl-face): New faces.
Daniel Pfeiffer <occitan@esperanto.org>
parents:
62082
diff
changeset
|
405 (makefile-make-font-lock-keywords |
c1e4bf9803aa
(makefile-targets-face, makefile-shell-face, makefile-makepp-perl-face): New faces.
Daniel Pfeiffer <occitan@esperanto.org>
parents:
62082
diff
changeset
|
406 makefile-var-use-regex |
c1e4bf9803aa
(makefile-targets-face, makefile-shell-face, makefile-makepp-perl-face): New faces.
Daniel Pfeiffer <occitan@esperanto.org>
parents:
62082
diff
changeset
|
407 makefile-statements |
c1e4bf9803aa
(makefile-targets-face, makefile-shell-face, makefile-makepp-perl-face): New faces.
Daniel Pfeiffer <occitan@esperanto.org>
parents:
62082
diff
changeset
|
408 t)) |
c1e4bf9803aa
(makefile-targets-face, makefile-shell-face, makefile-makepp-perl-face): New faces.
Daniel Pfeiffer <occitan@esperanto.org>
parents:
62082
diff
changeset
|
409 |
c1e4bf9803aa
(makefile-targets-face, makefile-shell-face, makefile-makepp-perl-face): New faces.
Daniel Pfeiffer <occitan@esperanto.org>
parents:
62082
diff
changeset
|
410 (defconst makefile-automake-font-lock-keywords |
c1e4bf9803aa
(makefile-targets-face, makefile-shell-face, makefile-makepp-perl-face): New faces.
Daniel Pfeiffer <occitan@esperanto.org>
parents:
62082
diff
changeset
|
411 (makefile-make-font-lock-keywords |
c1e4bf9803aa
(makefile-targets-face, makefile-shell-face, makefile-makepp-perl-face): New faces.
Daniel Pfeiffer <occitan@esperanto.org>
parents:
62082
diff
changeset
|
412 makefile-var-use-regex |
c1e4bf9803aa
(makefile-targets-face, makefile-shell-face, makefile-makepp-perl-face): New faces.
Daniel Pfeiffer <occitan@esperanto.org>
parents:
62082
diff
changeset
|
413 makefile-automake-statements |
c1e4bf9803aa
(makefile-targets-face, makefile-shell-face, makefile-makepp-perl-face): New faces.
Daniel Pfeiffer <occitan@esperanto.org>
parents:
62082
diff
changeset
|
414 t)) |
c1e4bf9803aa
(makefile-targets-face, makefile-shell-face, makefile-makepp-perl-face): New faces.
Daniel Pfeiffer <occitan@esperanto.org>
parents:
62082
diff
changeset
|
415 |
c1e4bf9803aa
(makefile-targets-face, makefile-shell-face, makefile-makepp-perl-face): New faces.
Daniel Pfeiffer <occitan@esperanto.org>
parents:
62082
diff
changeset
|
416 (defconst makefile-gmake-font-lock-keywords |
c1e4bf9803aa
(makefile-targets-face, makefile-shell-face, makefile-makepp-perl-face): New faces.
Daniel Pfeiffer <occitan@esperanto.org>
parents:
62082
diff
changeset
|
417 (makefile-make-font-lock-keywords |
c1e4bf9803aa
(makefile-targets-face, makefile-shell-face, makefile-makepp-perl-face): New faces.
Daniel Pfeiffer <occitan@esperanto.org>
parents:
62082
diff
changeset
|
418 makefile-var-use-regex |
c1e4bf9803aa
(makefile-targets-face, makefile-shell-face, makefile-makepp-perl-face): New faces.
Daniel Pfeiffer <occitan@esperanto.org>
parents:
62082
diff
changeset
|
419 makefile-gmake-statements |
c1e4bf9803aa
(makefile-targets-face, makefile-shell-face, makefile-makepp-perl-face): New faces.
Daniel Pfeiffer <occitan@esperanto.org>
parents:
62082
diff
changeset
|
420 t |
c1e4bf9803aa
(makefile-targets-face, makefile-shell-face, makefile-makepp-perl-face): New faces.
Daniel Pfeiffer <occitan@esperanto.org>
parents:
62082
diff
changeset
|
421 "^\\(?: [ \t]*\\)?if\\(n\\)\\(?:def\\|eq\\)\\>" |
c1e4bf9803aa
(makefile-targets-face, makefile-shell-face, makefile-makepp-perl-face): New faces.
Daniel Pfeiffer <occitan@esperanto.org>
parents:
62082
diff
changeset
|
422 |
c1e4bf9803aa
(makefile-targets-face, makefile-shell-face, makefile-makepp-perl-face): New faces.
Daniel Pfeiffer <occitan@esperanto.org>
parents:
62082
diff
changeset
|
423 '("[^$]\\(\\$[({][@%*][DF][})]\\)" |
63444
cc4a71461921
(makefile-space, makefile-makepp-perl): Eliminate "-face" suffix.
Daniel Pfeiffer <occitan@esperanto.org>
parents:
63138
diff
changeset
|
424 1 'makefile-targets append) |
62276
c1e4bf9803aa
(makefile-targets-face, makefile-shell-face, makefile-makepp-perl-face): New faces.
Daniel Pfeiffer <occitan@esperanto.org>
parents:
62082
diff
changeset
|
425 |
c1e4bf9803aa
(makefile-targets-face, makefile-shell-face, makefile-makepp-perl-face): New faces.
Daniel Pfeiffer <occitan@esperanto.org>
parents:
62082
diff
changeset
|
426 ;; $(function ...) ${function ...} |
62412
6ac7ed8e212b
(makefile-dependency-regex): Turn it into a var, and refine it to mask one more level of nested vars.
Daniel Pfeiffer <occitan@esperanto.org>
parents:
62276
diff
changeset
|
427 '("[^$]\\$[({]\\([-a-zA-Z0-9_.]+\\s \\)" |
6ac7ed8e212b
(makefile-dependency-regex): Turn it into a var, and refine it to mask one more level of nested vars.
Daniel Pfeiffer <occitan@esperanto.org>
parents:
62276
diff
changeset
|
428 1 font-lock-function-name-face prepend) |
62276
c1e4bf9803aa
(makefile-targets-face, makefile-shell-face, makefile-makepp-perl-face): New faces.
Daniel Pfeiffer <occitan@esperanto.org>
parents:
62082
diff
changeset
|
429 |
c1e4bf9803aa
(makefile-targets-face, makefile-shell-face, makefile-makepp-perl-face): New faces.
Daniel Pfeiffer <occitan@esperanto.org>
parents:
62082
diff
changeset
|
430 ;; $(shell ...) ${shell ...} |
c1e4bf9803aa
(makefile-targets-face, makefile-shell-face, makefile-makepp-perl-face): New faces.
Daniel Pfeiffer <occitan@esperanto.org>
parents:
62082
diff
changeset
|
431 '("[^$]\\$\\([({]\\)shell[ \t]+" |
c1e4bf9803aa
(makefile-targets-face, makefile-shell-face, makefile-makepp-perl-face): New faces.
Daniel Pfeiffer <occitan@esperanto.org>
parents:
62082
diff
changeset
|
432 makefile-match-function-end nil nil |
63444
cc4a71461921
(makefile-space, makefile-makepp-perl): Eliminate "-face" suffix.
Daniel Pfeiffer <occitan@esperanto.org>
parents:
63138
diff
changeset
|
433 (1 'makefile-shell prepend t)))) |
62276
c1e4bf9803aa
(makefile-targets-face, makefile-shell-face, makefile-makepp-perl-face): New faces.
Daniel Pfeiffer <occitan@esperanto.org>
parents:
62082
diff
changeset
|
434 |
c1e4bf9803aa
(makefile-targets-face, makefile-shell-face, makefile-makepp-perl-face): New faces.
Daniel Pfeiffer <occitan@esperanto.org>
parents:
62082
diff
changeset
|
435 (defconst makefile-makepp-font-lock-keywords |
c1e4bf9803aa
(makefile-targets-face, makefile-shell-face, makefile-makepp-perl-face): New faces.
Daniel Pfeiffer <occitan@esperanto.org>
parents:
62082
diff
changeset
|
436 (makefile-make-font-lock-keywords |
c1e4bf9803aa
(makefile-targets-face, makefile-shell-face, makefile-makepp-perl-face): New faces.
Daniel Pfeiffer <occitan@esperanto.org>
parents:
62082
diff
changeset
|
437 makefile-var-use-regex |
c1e4bf9803aa
(makefile-targets-face, makefile-shell-face, makefile-makepp-perl-face): New faces.
Daniel Pfeiffer <occitan@esperanto.org>
parents:
62082
diff
changeset
|
438 makefile-makepp-statements |
c1e4bf9803aa
(makefile-targets-face, makefile-shell-face, makefile-makepp-perl-face): New faces.
Daniel Pfeiffer <occitan@esperanto.org>
parents:
62082
diff
changeset
|
439 nil |
c1e4bf9803aa
(makefile-targets-face, makefile-shell-face, makefile-makepp-perl-face): New faces.
Daniel Pfeiffer <occitan@esperanto.org>
parents:
62082
diff
changeset
|
440 "^\\(?: [ \t]*\\)?\\(?:and[ \t]+\\|else[ \t]+\\|or[ \t]+\\)?if\\(n\\)\\(?:def\\|eq\\|sys\\)\\>" |
c1e4bf9803aa
(makefile-targets-face, makefile-shell-face, makefile-makepp-perl-face): New faces.
Daniel Pfeiffer <occitan@esperanto.org>
parents:
62082
diff
changeset
|
441 |
62849
dbba3c92fc76
(makefile-rule-action-regex, makefile-macroassign-regex): Continuation lines may be empty. Reported by Joshua Varner.
Daniel Pfeiffer <occitan@esperanto.org>
parents:
62569
diff
changeset
|
442 '("[^$]\\(\\$[({]\\(?:output\\|stem\\|target\\)s?\\_>.*?[})]\\)" |
63444
cc4a71461921
(makefile-space, makefile-makepp-perl): Eliminate "-face" suffix.
Daniel Pfeiffer <occitan@esperanto.org>
parents:
63138
diff
changeset
|
443 1 'makefile-targets append) |
28802
f7eed599c0df
(makefile-mode-abbrev-table): New variable.
Gerd Moellmann <gerd@gnu.org>
parents:
28503
diff
changeset
|
444 |
62276
c1e4bf9803aa
(makefile-targets-face, makefile-shell-face, makefile-makepp-perl-face): New faces.
Daniel Pfeiffer <occitan@esperanto.org>
parents:
62082
diff
changeset
|
445 ;; Colon modifier keywords. |
62412
6ac7ed8e212b
(makefile-dependency-regex): Turn it into a var, and refine it to mask one more level of nested vars.
Daniel Pfeiffer <occitan@esperanto.org>
parents:
62276
diff
changeset
|
446 '("\\(:\\s *\\)\\(build_c\\(?:ache\\|heck\\)\\|env\\(?:ironment\\)?\\|foreach\\|signature\\|scanner\\|quickscan\\|smartscan\\)\\>\\([^:\n]*\\)" |
6ac7ed8e212b
(makefile-dependency-regex): Turn it into a var, and refine it to mask one more level of nested vars.
Daniel Pfeiffer <occitan@esperanto.org>
parents:
62276
diff
changeset
|
447 (1 font-lock-type-face t) |
6ac7ed8e212b
(makefile-dependency-regex): Turn it into a var, and refine it to mask one more level of nested vars.
Daniel Pfeiffer <occitan@esperanto.org>
parents:
62276
diff
changeset
|
448 (2 font-lock-keyword-face t) |
6ac7ed8e212b
(makefile-dependency-regex): Turn it into a var, and refine it to mask one more level of nested vars.
Daniel Pfeiffer <occitan@esperanto.org>
parents:
62276
diff
changeset
|
449 (3 font-lock-variable-name-face t)) |
62276
c1e4bf9803aa
(makefile-targets-face, makefile-shell-face, makefile-makepp-perl-face): New faces.
Daniel Pfeiffer <occitan@esperanto.org>
parents:
62082
diff
changeset
|
450 |
c1e4bf9803aa
(makefile-targets-face, makefile-shell-face, makefile-makepp-perl-face): New faces.
Daniel Pfeiffer <occitan@esperanto.org>
parents:
62082
diff
changeset
|
451 ;; $(function ...) $((function ...)) ${function ...} ${{function ...}} |
62412
6ac7ed8e212b
(makefile-dependency-regex): Turn it into a var, and refine it to mask one more level of nested vars.
Daniel Pfeiffer <occitan@esperanto.org>
parents:
62276
diff
changeset
|
452 '("[^$]\\$\\(?:((?\\|{{?\\)\\([-a-zA-Z0-9_.]+\\s \\)" |
6ac7ed8e212b
(makefile-dependency-regex): Turn it into a var, and refine it to mask one more level of nested vars.
Daniel Pfeiffer <occitan@esperanto.org>
parents:
62276
diff
changeset
|
453 1 font-lock-function-name-face prepend) |
62082
2805978983d8
(makefile-font-lock-keywords): Use font-lock-negation-char-face.
Daniel Pfeiffer <occitan@esperanto.org>
parents:
57158
diff
changeset
|
454 |
62276
c1e4bf9803aa
(makefile-targets-face, makefile-shell-face, makefile-makepp-perl-face): New faces.
Daniel Pfeiffer <occitan@esperanto.org>
parents:
62082
diff
changeset
|
455 ;; $(shell ...) $((shell ...)) ${shell ...} ${{shell ...}} |
c1e4bf9803aa
(makefile-targets-face, makefile-shell-face, makefile-makepp-perl-face): New faces.
Daniel Pfeiffer <occitan@esperanto.org>
parents:
62082
diff
changeset
|
456 '("[^$]\\$\\(((?\\|{{?\\)shell\\(?:[-_]\\(?:global[-_]\\)?once\\)?[ \t]+" |
c1e4bf9803aa
(makefile-targets-face, makefile-shell-face, makefile-makepp-perl-face): New faces.
Daniel Pfeiffer <occitan@esperanto.org>
parents:
62082
diff
changeset
|
457 makefile-match-function-end nil nil |
63444
cc4a71461921
(makefile-space, makefile-makepp-perl): Eliminate "-face" suffix.
Daniel Pfeiffer <occitan@esperanto.org>
parents:
63138
diff
changeset
|
458 (1 'makefile-shell prepend t)) |
62276
c1e4bf9803aa
(makefile-targets-face, makefile-shell-face, makefile-makepp-perl-face): New faces.
Daniel Pfeiffer <occitan@esperanto.org>
parents:
62082
diff
changeset
|
459 |
c1e4bf9803aa
(makefile-targets-face, makefile-shell-face, makefile-makepp-perl-face): New faces.
Daniel Pfeiffer <occitan@esperanto.org>
parents:
62082
diff
changeset
|
460 ;; $(perl ...) $((perl ...)) ${perl ...} ${{perl ...}} |
c1e4bf9803aa
(makefile-targets-face, makefile-shell-face, makefile-makepp-perl-face): New faces.
Daniel Pfeiffer <occitan@esperanto.org>
parents:
62082
diff
changeset
|
461 '("[^$]\\$\\(((?\\|{{?\\)makeperl[ \t]+" |
c1e4bf9803aa
(makefile-targets-face, makefile-shell-face, makefile-makepp-perl-face): New faces.
Daniel Pfeiffer <occitan@esperanto.org>
parents:
62082
diff
changeset
|
462 makefile-match-function-end nil nil |
63444
cc4a71461921
(makefile-space, makefile-makepp-perl): Eliminate "-face" suffix.
Daniel Pfeiffer <occitan@esperanto.org>
parents:
63138
diff
changeset
|
463 (1 'makefile-makepp-perl prepend t)) |
62276
c1e4bf9803aa
(makefile-targets-face, makefile-shell-face, makefile-makepp-perl-face): New faces.
Daniel Pfeiffer <occitan@esperanto.org>
parents:
62082
diff
changeset
|
464 '("[^$]\\$\\(((?\\|{{?\\)perl[ \t]+" |
c1e4bf9803aa
(makefile-targets-face, makefile-shell-face, makefile-makepp-perl-face): New faces.
Daniel Pfeiffer <occitan@esperanto.org>
parents:
62082
diff
changeset
|
465 makefile-match-function-end nil nil |
63444
cc4a71461921
(makefile-space, makefile-makepp-perl): Eliminate "-face" suffix.
Daniel Pfeiffer <occitan@esperanto.org>
parents:
63138
diff
changeset
|
466 (1 'makefile-makepp-perl t t)) |
62276
c1e4bf9803aa
(makefile-targets-face, makefile-shell-face, makefile-makepp-perl-face): New faces.
Daniel Pfeiffer <occitan@esperanto.org>
parents:
62082
diff
changeset
|
467 |
c1e4bf9803aa
(makefile-targets-face, makefile-shell-face, makefile-makepp-perl-face): New faces.
Daniel Pfeiffer <occitan@esperanto.org>
parents:
62082
diff
changeset
|
468 ;; Can we unify these with (if (match-end 1) 'prepend t)? |
63444
cc4a71461921
(makefile-space, makefile-makepp-perl): Eliminate "-face" suffix.
Daniel Pfeiffer <occitan@esperanto.org>
parents:
63138
diff
changeset
|
469 '("ifmakeperl\\s +\\(.*\\)" 1 'makefile-makepp-perl prepend) |
cc4a71461921
(makefile-space, makefile-makepp-perl): Eliminate "-face" suffix.
Daniel Pfeiffer <occitan@esperanto.org>
parents:
63138
diff
changeset
|
470 '("ifperl\\s +\\(.*\\)" 1 'makefile-makepp-perl t) |
12936 | 471 |
62276
c1e4bf9803aa
(makefile-targets-face, makefile-shell-face, makefile-makepp-perl-face): New faces.
Daniel Pfeiffer <occitan@esperanto.org>
parents:
62082
diff
changeset
|
472 ;; Perl block single- or multiline, as statement or rule action. |
c1e4bf9803aa
(makefile-targets-face, makefile-shell-face, makefile-makepp-perl-face): New faces.
Daniel Pfeiffer <occitan@esperanto.org>
parents:
62082
diff
changeset
|
473 ;; Don't know why the initial newline in 2nd variant of group 2 doesn't get skipped. |
c1e4bf9803aa
(makefile-targets-face, makefile-shell-face, makefile-makepp-perl-face): New faces.
Daniel Pfeiffer <occitan@esperanto.org>
parents:
62082
diff
changeset
|
474 '("\\<make\\(?:perl\\|sub\\s +\\S +\\)\\s *\n?\\s *{\\(?:{\\s *\n?\\(\\(?:.*\n\\)+?\\)\\s *}\\|\\s *\\(\\(?:.*?\\|\n?\\(?:.*\n\\)+?\\)\\)\\)}" |
63444
cc4a71461921
(makefile-space, makefile-makepp-perl): Eliminate "-face" suffix.
Daniel Pfeiffer <occitan@esperanto.org>
parents:
63138
diff
changeset
|
475 (1 'makefile-makepp-perl prepend t) |
cc4a71461921
(makefile-space, makefile-makepp-perl): Eliminate "-face" suffix.
Daniel Pfeiffer <occitan@esperanto.org>
parents:
63138
diff
changeset
|
476 (2 'makefile-makepp-perl prepend t)) |
62276
c1e4bf9803aa
(makefile-targets-face, makefile-shell-face, makefile-makepp-perl-face): New faces.
Daniel Pfeiffer <occitan@esperanto.org>
parents:
62082
diff
changeset
|
477 '("\\<\\(?:perl\\|sub\\s +\\S +\\)\\s *\n?\\s *{\\(?:{\\s *\n?\\(\\(?:.*\n\\)+?\\)\\s *}\\|\\s *\\(\\(?:.*?\\|\n?\\(?:.*\n\\)+?\\)\\)\\)}" |
63444
cc4a71461921
(makefile-space, makefile-makepp-perl): Eliminate "-face" suffix.
Daniel Pfeiffer <occitan@esperanto.org>
parents:
63138
diff
changeset
|
478 (1 'makefile-makepp-perl t t) |
cc4a71461921
(makefile-space, makefile-makepp-perl): Eliminate "-face" suffix.
Daniel Pfeiffer <occitan@esperanto.org>
parents:
63138
diff
changeset
|
479 (2 'makefile-makepp-perl t t)) |
12961
e8028ecec7ea
(makefile-font-lock-keywords): Highlight lines with
Richard M. Stallman <rms@gnu.org>
parents:
12938
diff
changeset
|
480 |
62276
c1e4bf9803aa
(makefile-targets-face, makefile-shell-face, makefile-makepp-perl-face): New faces.
Daniel Pfeiffer <occitan@esperanto.org>
parents:
62082
diff
changeset
|
481 ;; Statement style perl block. |
c1e4bf9803aa
(makefile-targets-face, makefile-shell-face, makefile-makepp-perl-face): New faces.
Daniel Pfeiffer <occitan@esperanto.org>
parents:
62082
diff
changeset
|
482 '("perl[-_]begin\\s *\\(?:\\s #.*\\)?\n\\(\\(?:.*\n\\)+?\\)\\s *perl[-_]end\\>" |
63444
cc4a71461921
(makefile-space, makefile-makepp-perl): Eliminate "-face" suffix.
Daniel Pfeiffer <occitan@esperanto.org>
parents:
63138
diff
changeset
|
483 1 'makefile-makepp-perl t))) |
62276
c1e4bf9803aa
(makefile-targets-face, makefile-shell-face, makefile-makepp-perl-face): New faces.
Daniel Pfeiffer <occitan@esperanto.org>
parents:
62082
diff
changeset
|
484 |
c1e4bf9803aa
(makefile-targets-face, makefile-shell-face, makefile-makepp-perl-face): New faces.
Daniel Pfeiffer <occitan@esperanto.org>
parents:
62082
diff
changeset
|
485 (defconst makefile-bsdmake-font-lock-keywords |
c1e4bf9803aa
(makefile-targets-face, makefile-shell-face, makefile-makepp-perl-face): New faces.
Daniel Pfeiffer <occitan@esperanto.org>
parents:
62082
diff
changeset
|
486 (makefile-make-font-lock-keywords |
62412
6ac7ed8e212b
(makefile-dependency-regex): Turn it into a var, and refine it to mask one more level of nested vars.
Daniel Pfeiffer <occitan@esperanto.org>
parents:
62276
diff
changeset
|
487 ;; A lot more could be done for variables here: |
62276
c1e4bf9803aa
(makefile-targets-face, makefile-shell-face, makefile-makepp-perl-face): New faces.
Daniel Pfeiffer <occitan@esperanto.org>
parents:
62082
diff
changeset
|
488 makefile-var-use-regex |
c1e4bf9803aa
(makefile-targets-face, makefile-shell-face, makefile-makepp-perl-face): New faces.
Daniel Pfeiffer <occitan@esperanto.org>
parents:
62082
diff
changeset
|
489 makefile-bsdmake-statements |
c1e4bf9803aa
(makefile-targets-face, makefile-shell-face, makefile-makepp-perl-face): New faces.
Daniel Pfeiffer <occitan@esperanto.org>
parents:
62082
diff
changeset
|
490 t |
c1e4bf9803aa
(makefile-targets-face, makefile-shell-face, makefile-makepp-perl-face): New faces.
Daniel Pfeiffer <occitan@esperanto.org>
parents:
62082
diff
changeset
|
491 "^\\(?: [ \t]*\\)?\\.\\(?:el\\)?if\\(n?\\)\\(?:def\\|make\\)?\\>[ \t]*\\(!?\\)" |
c1e4bf9803aa
(makefile-targets-face, makefile-shell-face, makefile-makepp-perl-face): New faces.
Daniel Pfeiffer <occitan@esperanto.org>
parents:
62082
diff
changeset
|
492 '("^[ \t]*\\.for[ \t].+[ \t]\\(in\\)\\>" 1 font-lock-keyword-face))) |
c1e4bf9803aa
(makefile-targets-face, makefile-shell-face, makefile-makepp-perl-face): New faces.
Daniel Pfeiffer <occitan@esperanto.org>
parents:
62082
diff
changeset
|
493 |
68239
e08826f8b714
Added makefile-imake-mode.
Masatake YAMATO <jet@gyve.org>
parents:
67835
diff
changeset
|
494 (defconst makefile-imake-font-lock-keywords |
e08826f8b714
Added makefile-imake-mode.
Masatake YAMATO <jet@gyve.org>
parents:
67835
diff
changeset
|
495 (append |
e08826f8b714
Added makefile-imake-mode.
Masatake YAMATO <jet@gyve.org>
parents:
67835
diff
changeset
|
496 (makefile-make-font-lock-keywords |
e08826f8b714
Added makefile-imake-mode.
Masatake YAMATO <jet@gyve.org>
parents:
67835
diff
changeset
|
497 makefile-var-use-regex |
e08826f8b714
Added makefile-imake-mode.
Masatake YAMATO <jet@gyve.org>
parents:
67835
diff
changeset
|
498 makefile-statements |
e08826f8b714
Added makefile-imake-mode.
Masatake YAMATO <jet@gyve.org>
parents:
67835
diff
changeset
|
499 t |
e08826f8b714
Added makefile-imake-mode.
Masatake YAMATO <jet@gyve.org>
parents:
67835
diff
changeset
|
500 nil |
e08826f8b714
Added makefile-imake-mode.
Masatake YAMATO <jet@gyve.org>
parents:
67835
diff
changeset
|
501 '("^XCOMM.*$" . font-lock-comment-face) |
e08826f8b714
Added makefile-imake-mode.
Masatake YAMATO <jet@gyve.org>
parents:
67835
diff
changeset
|
502 '("XVAR\\(?:use\\|def\\)[0-9]" 0 font-lock-keyword-face prepend) |
e08826f8b714
Added makefile-imake-mode.
Masatake YAMATO <jet@gyve.org>
parents:
67835
diff
changeset
|
503 '("@@" . font-lock-preprocessor-face) |
e08826f8b714
Added makefile-imake-mode.
Masatake YAMATO <jet@gyve.org>
parents:
67835
diff
changeset
|
504 ) |
e08826f8b714
Added makefile-imake-mode.
Masatake YAMATO <jet@gyve.org>
parents:
67835
diff
changeset
|
505 cpp-font-lock-keywords)) |
e08826f8b714
Added makefile-imake-mode.
Masatake YAMATO <jet@gyve.org>
parents:
67835
diff
changeset
|
506 |
9454
40340d39257d
(makefile-mode-name): Removed.
Richard M. Stallman <rms@gnu.org>
parents:
7639
diff
changeset
|
507 |
50205
63bfe3825510
(makefile-font-lock-syntactic-keywords): New variable.
Juanma Barranquero <lekktu@gmail.com>
parents:
49970
diff
changeset
|
508 (defconst makefile-font-lock-syntactic-keywords |
53170
67eeb641d52a
(makefile-font-lock-syntactic-keywords): Don't use `space' for \\\n.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
52401
diff
changeset
|
509 ;; From sh-script.el. |
67eeb641d52a
(makefile-font-lock-syntactic-keywords): Don't use `space' for \\\n.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
52401
diff
changeset
|
510 ;; A `#' begins a comment in sh when it is unquoted and at the beginning |
67eeb641d52a
(makefile-font-lock-syntactic-keywords): Don't use `space' for \\\n.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
52401
diff
changeset
|
511 ;; of a word. In the shell, words are separated by metacharacters. |
67eeb641d52a
(makefile-font-lock-syntactic-keywords): Don't use `space' for \\\n.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
52401
diff
changeset
|
512 ;; The list of special chars is taken from the single-unix spec of the |
67eeb641d52a
(makefile-font-lock-syntactic-keywords): Don't use `space' for \\\n.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
52401
diff
changeset
|
513 ;; shell command language (under `quoting') but with `$' removed. |
67eeb641d52a
(makefile-font-lock-syntactic-keywords): Don't use `space' for \\\n.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
52401
diff
changeset
|
514 '(("[^|&;<>()`\\\"' \t\n]\\(#+\\)" 1 "_") |
67eeb641d52a
(makefile-font-lock-syntactic-keywords): Don't use `space' for \\\n.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
52401
diff
changeset
|
515 ;; Change the syntax of a quoted newline so that it does not end a comment. |
67eeb641d52a
(makefile-font-lock-syntactic-keywords): Don't use `space' for \\\n.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
52401
diff
changeset
|
516 ("\\\\\n" 0 "."))) |
50205
63bfe3825510
(makefile-font-lock-syntactic-keywords): New variable.
Juanma Barranquero <lekktu@gmail.com>
parents:
49970
diff
changeset
|
517 |
24248
fd94cf07b4cc
(makefile-imenu-generic-expression): New var.
Richard M. Stallman <rms@gnu.org>
parents:
22837
diff
changeset
|
518 (defvar makefile-imenu-generic-expression |
62569
f09fbe52c543
(makefile-imenu-generic-expression): Use function to find dependencies, because regexp alone is so complex, it easily goes into an endless loop.
Daniel Pfeiffer <occitan@esperanto.org>
parents:
62525
diff
changeset
|
519 `(("Dependencies" makefile-previous-dependency 1) |
62412
6ac7ed8e212b
(makefile-dependency-regex): Turn it into a var, and refine it to mask one more level of nested vars.
Daniel Pfeiffer <occitan@esperanto.org>
parents:
62276
diff
changeset
|
520 ("Macro Assignment" ,makefile-macroassign-regex 1)) |
26136 | 521 "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
|
522 |
809 | 523 ;;; ------------------------------------------------------------ |
524 ;;; The following configurable variables are used in the | |
525 ;;; up-to-date overview . | |
3591
507f64624555
Apply typo patches from Paul Eggert.
Jim Blandy <jimb@redhat.com>
parents:
2671
diff
changeset
|
526 ;;; The standard configuration assumes that your `make' program |
809 | 527 ;;; can be run in question/query mode using the `-q' option, this |
528 ;;; means that the command | |
529 ;;; | |
530 ;;; make -q foo | |
531 ;;; | |
532 ;;; should return an exit status of zero if the target `foo' is | |
533 ;;; up to date and a nonzero exit status otherwise. | |
534 ;;; 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
|
535 ;;; 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
|
536 ;;; Dennis Vadura's DMake have no problems. |
809 | 537 ;;; Set the variable `makefile-brave-make' to the name of the |
538 ;;; 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
|
539 ;;; To understand what this is all about see the function definition |
809 | 540 ;;; of `makefile-query-by-make-minus-q' . |
541 ;;; ------------------------------------------------------------ | |
542 | |
19008 | 543 (defcustom makefile-brave-make "make" |
28503 | 544 "*How to invoke make, for `makefile-query-targets'. |
19008 | 545 This should identify a `make' command that can handle the `-q' option." |
546 :type 'string | |
547 :group 'makefile) | |
809 | 548 |
70812
5244bd9a8bac
(makefile-query-one-target-method): Make this the alias for the
Roland Winkler <Roland.Winkler@physik.uni-erlangen.de>
parents:
70810
diff
changeset
|
549 (defcustom makefile-query-one-target-method-function |
5244bd9a8bac
(makefile-query-one-target-method): Make this the alias for the
Roland Winkler <Roland.Winkler@physik.uni-erlangen.de>
parents:
70810
diff
changeset
|
550 'makefile-query-by-make-minus-q |
28503 | 551 "*Function to call to determine whether a make target is up to date. |
12936 | 552 The function must satisfy this calling convention: |
809 | 553 |
554 * As its first argument, it must accept the name of the target to | |
555 be checked, as a string. | |
556 | |
557 * As its second argument, it may accept the name of a makefile | |
26136 | 558 as a string. Depending on what you're going to do you may |
809 | 559 not need this. |
560 | |
561 * It must return the integer value 0 (zero) if the given target | |
562 should be considered up-to-date in the context of the given | |
19008 | 563 makefile, any nonzero integer value otherwise." |
564 :type 'function | |
565 :group 'makefile) | |
70812
5244bd9a8bac
(makefile-query-one-target-method): Make this the alias for the
Roland Winkler <Roland.Winkler@physik.uni-erlangen.de>
parents:
70810
diff
changeset
|
566 (defvaralias 'makefile-query-one-target-method |
5244bd9a8bac
(makefile-query-one-target-method): Make this the alias for the
Roland Winkler <Roland.Winkler@physik.uni-erlangen.de>
parents:
70810
diff
changeset
|
567 'makefile-query-one-target-method-function) |
809 | 568 |
19008 | 569 (defcustom makefile-up-to-date-buffer-name "*Makefile Up-to-date overview*" |
28503 | 570 "*Name of the Up-to-date overview buffer." |
19008 | 571 :type 'string |
572 :group 'makefile) | |
809 | 573 |
574 ;;; --- end of up-to-date-overview configuration ------------------ | |
575 | |
28503 | 576 (defvar makefile-mode-abbrev-table nil |
577 "Abbrev table in use in Makefile buffers.") | |
578 (if makefile-mode-abbrev-table | |
579 () | |
580 (define-abbrev-table 'makefile-mode-abbrev-table ())) | |
581 | |
62276
c1e4bf9803aa
(makefile-targets-face, makefile-shell-face, makefile-makepp-perl-face): New faces.
Daniel Pfeiffer <occitan@esperanto.org>
parents:
62082
diff
changeset
|
582 (defvar makefile-mode-map |
92703
0905c6be13b6
(makefile-mode-abbrev-table): Add menu
Dan Nicolaescu <dann@ics.uci.edu>
parents:
79717
diff
changeset
|
583 (let ((map (make-sparse-keymap)) |
0905c6be13b6
(makefile-mode-abbrev-table): Add menu
Dan Nicolaescu <dann@ics.uci.edu>
parents:
79717
diff
changeset
|
584 (opt-map (make-sparse-keymap))) |
62276
c1e4bf9803aa
(makefile-targets-face, makefile-shell-face, makefile-makepp-perl-face): New faces.
Daniel Pfeiffer <occitan@esperanto.org>
parents:
62082
diff
changeset
|
585 ;; set up the keymap |
c1e4bf9803aa
(makefile-targets-face, makefile-shell-face, makefile-makepp-perl-face): New faces.
Daniel Pfeiffer <occitan@esperanto.org>
parents:
62082
diff
changeset
|
586 (define-key map "\C-c:" 'makefile-insert-target-ref) |
c1e4bf9803aa
(makefile-targets-face, makefile-shell-face, makefile-makepp-perl-face): New faces.
Daniel Pfeiffer <occitan@esperanto.org>
parents:
62082
diff
changeset
|
587 (if makefile-electric-keys |
c1e4bf9803aa
(makefile-targets-face, makefile-shell-face, makefile-makepp-perl-face): New faces.
Daniel Pfeiffer <occitan@esperanto.org>
parents:
62082
diff
changeset
|
588 (progn |
c1e4bf9803aa
(makefile-targets-face, makefile-shell-face, makefile-makepp-perl-face): New faces.
Daniel Pfeiffer <occitan@esperanto.org>
parents:
62082
diff
changeset
|
589 (define-key map "$" 'makefile-insert-macro-ref) |
c1e4bf9803aa
(makefile-targets-face, makefile-shell-face, makefile-makepp-perl-face): New faces.
Daniel Pfeiffer <occitan@esperanto.org>
parents:
62082
diff
changeset
|
590 (define-key map ":" 'makefile-electric-colon) |
c1e4bf9803aa
(makefile-targets-face, makefile-shell-face, makefile-makepp-perl-face): New faces.
Daniel Pfeiffer <occitan@esperanto.org>
parents:
62082
diff
changeset
|
591 (define-key map "=" 'makefile-electric-equal) |
c1e4bf9803aa
(makefile-targets-face, makefile-shell-face, makefile-makepp-perl-face): New faces.
Daniel Pfeiffer <occitan@esperanto.org>
parents:
62082
diff
changeset
|
592 (define-key map "." 'makefile-electric-dot))) |
c1e4bf9803aa
(makefile-targets-face, makefile-shell-face, makefile-makepp-perl-face): New faces.
Daniel Pfeiffer <occitan@esperanto.org>
parents:
62082
diff
changeset
|
593 (define-key map "\C-c\C-f" 'makefile-pickup-filenames-as-targets) |
c1e4bf9803aa
(makefile-targets-face, makefile-shell-face, makefile-makepp-perl-face): New faces.
Daniel Pfeiffer <occitan@esperanto.org>
parents:
62082
diff
changeset
|
594 (define-key map "\C-c\C-b" 'makefile-switch-to-browser) |
c1e4bf9803aa
(makefile-targets-face, makefile-shell-face, makefile-makepp-perl-face): New faces.
Daniel Pfeiffer <occitan@esperanto.org>
parents:
62082
diff
changeset
|
595 (define-key map "\C-c\C-c" 'comment-region) |
c1e4bf9803aa
(makefile-targets-face, makefile-shell-face, makefile-makepp-perl-face): New faces.
Daniel Pfeiffer <occitan@esperanto.org>
parents:
62082
diff
changeset
|
596 (define-key map "\C-c\C-p" 'makefile-pickup-everything) |
c1e4bf9803aa
(makefile-targets-face, makefile-shell-face, makefile-makepp-perl-face): New faces.
Daniel Pfeiffer <occitan@esperanto.org>
parents:
62082
diff
changeset
|
597 (define-key map "\C-c\C-u" 'makefile-create-up-to-date-overview) |
c1e4bf9803aa
(makefile-targets-face, makefile-shell-face, makefile-makepp-perl-face): New faces.
Daniel Pfeiffer <occitan@esperanto.org>
parents:
62082
diff
changeset
|
598 (define-key map "\C-c\C-i" 'makefile-insert-gmake-function) |
c1e4bf9803aa
(makefile-targets-face, makefile-shell-face, makefile-makepp-perl-face): New faces.
Daniel Pfeiffer <occitan@esperanto.org>
parents:
62082
diff
changeset
|
599 (define-key map "\C-c\C-\\" 'makefile-backslash-region) |
c1e4bf9803aa
(makefile-targets-face, makefile-shell-face, makefile-makepp-perl-face): New faces.
Daniel Pfeiffer <occitan@esperanto.org>
parents:
62082
diff
changeset
|
600 (define-key map "\C-c\C-m\C-a" 'makefile-automake-mode) |
c1e4bf9803aa
(makefile-targets-face, makefile-shell-face, makefile-makepp-perl-face): New faces.
Daniel Pfeiffer <occitan@esperanto.org>
parents:
62082
diff
changeset
|
601 (define-key map "\C-c\C-m\C-b" 'makefile-bsdmake-mode) |
c1e4bf9803aa
(makefile-targets-face, makefile-shell-face, makefile-makepp-perl-face): New faces.
Daniel Pfeiffer <occitan@esperanto.org>
parents:
62082
diff
changeset
|
602 (define-key map "\C-c\C-m\C-g" 'makefile-gmake-mode) |
68239
e08826f8b714
Added makefile-imake-mode.
Masatake YAMATO <jet@gyve.org>
parents:
67835
diff
changeset
|
603 (define-key map "\C-c\C-m\C-i" 'makefile-imake-mode) |
62276
c1e4bf9803aa
(makefile-targets-face, makefile-shell-face, makefile-makepp-perl-face): New faces.
Daniel Pfeiffer <occitan@esperanto.org>
parents:
62082
diff
changeset
|
604 (define-key map "\C-c\C-m\C-m" 'makefile-mode) |
c1e4bf9803aa
(makefile-targets-face, makefile-shell-face, makefile-makepp-perl-face): New faces.
Daniel Pfeiffer <occitan@esperanto.org>
parents:
62082
diff
changeset
|
605 (define-key map "\C-c\C-m\C-p" 'makefile-makepp-mode) |
c1e4bf9803aa
(makefile-targets-face, makefile-shell-face, makefile-makepp-perl-face): New faces.
Daniel Pfeiffer <occitan@esperanto.org>
parents:
62082
diff
changeset
|
606 (define-key map "\M-p" 'makefile-previous-dependency) |
c1e4bf9803aa
(makefile-targets-face, makefile-shell-face, makefile-makepp-perl-face): New faces.
Daniel Pfeiffer <occitan@esperanto.org>
parents:
62082
diff
changeset
|
607 (define-key map "\M-n" 'makefile-next-dependency) |
c1e4bf9803aa
(makefile-targets-face, makefile-shell-face, makefile-makepp-perl-face): New faces.
Daniel Pfeiffer <occitan@esperanto.org>
parents:
62082
diff
changeset
|
608 (define-key map "\e\t" 'makefile-complete) |
12936 | 609 |
62276
c1e4bf9803aa
(makefile-targets-face, makefile-shell-face, makefile-makepp-perl-face): New faces.
Daniel Pfeiffer <occitan@esperanto.org>
parents:
62082
diff
changeset
|
610 ;; Make menus. |
c1e4bf9803aa
(makefile-targets-face, makefile-shell-face, makefile-makepp-perl-face): New faces.
Daniel Pfeiffer <occitan@esperanto.org>
parents:
62082
diff
changeset
|
611 (define-key map [menu-bar makefile-mode] |
c1e4bf9803aa
(makefile-targets-face, makefile-shell-face, makefile-makepp-perl-face): New faces.
Daniel Pfeiffer <occitan@esperanto.org>
parents:
62082
diff
changeset
|
612 (cons "Makefile" (make-sparse-keymap "Makefile"))) |
9454
40340d39257d
(makefile-mode-name): Removed.
Richard M. Stallman <rms@gnu.org>
parents:
7639
diff
changeset
|
613 |
92703
0905c6be13b6
(makefile-mode-abbrev-table): Add menu
Dan Nicolaescu <dann@ics.uci.edu>
parents:
79717
diff
changeset
|
614 (define-key map [menu-bar makefile-mode makefile-type] |
0905c6be13b6
(makefile-mode-abbrev-table): Add menu
Dan Nicolaescu <dann@ics.uci.edu>
parents:
79717
diff
changeset
|
615 (cons "Switch Makefile Type" opt-map)) |
0905c6be13b6
(makefile-mode-abbrev-table): Add menu
Dan Nicolaescu <dann@ics.uci.edu>
parents:
79717
diff
changeset
|
616 (define-key opt-map [makefile-makepp-mode] |
0905c6be13b6
(makefile-mode-abbrev-table): Add menu
Dan Nicolaescu <dann@ics.uci.edu>
parents:
79717
diff
changeset
|
617 '(menu-item "Makepp" makefile-makepp-mode |
0905c6be13b6
(makefile-mode-abbrev-table): Add menu
Dan Nicolaescu <dann@ics.uci.edu>
parents:
79717
diff
changeset
|
618 :help "An adapted `makefile-mode' that knows about makepp" |
0905c6be13b6
(makefile-mode-abbrev-table): Add menu
Dan Nicolaescu <dann@ics.uci.edu>
parents:
79717
diff
changeset
|
619 :button (:radio . (eq major-mode 'makefile-makepp-mode)))) |
0905c6be13b6
(makefile-mode-abbrev-table): Add menu
Dan Nicolaescu <dann@ics.uci.edu>
parents:
79717
diff
changeset
|
620 (define-key opt-map [makefile-imake-mode] |
0905c6be13b6
(makefile-mode-abbrev-table): Add menu
Dan Nicolaescu <dann@ics.uci.edu>
parents:
79717
diff
changeset
|
621 '(menu-item "Imake" makefile-imake-mode |
0905c6be13b6
(makefile-mode-abbrev-table): Add menu
Dan Nicolaescu <dann@ics.uci.edu>
parents:
79717
diff
changeset
|
622 :help "An adapted `makefile-mode' that knows about imake" |
0905c6be13b6
(makefile-mode-abbrev-table): Add menu
Dan Nicolaescu <dann@ics.uci.edu>
parents:
79717
diff
changeset
|
623 :button (:radio . (eq major-mode 'makefile-imake-mode)))) |
0905c6be13b6
(makefile-mode-abbrev-table): Add menu
Dan Nicolaescu <dann@ics.uci.edu>
parents:
79717
diff
changeset
|
624 (define-key opt-map [makefile-mode] |
0905c6be13b6
(makefile-mode-abbrev-table): Add menu
Dan Nicolaescu <dann@ics.uci.edu>
parents:
79717
diff
changeset
|
625 '(menu-item "Classic" makefile-mode |
0905c6be13b6
(makefile-mode-abbrev-table): Add menu
Dan Nicolaescu <dann@ics.uci.edu>
parents:
79717
diff
changeset
|
626 :help "`makefile-mode' with no special functionality" |
0905c6be13b6
(makefile-mode-abbrev-table): Add menu
Dan Nicolaescu <dann@ics.uci.edu>
parents:
79717
diff
changeset
|
627 :button (:radio . (eq major-mode 'makefile-mode)))) |
0905c6be13b6
(makefile-mode-abbrev-table): Add menu
Dan Nicolaescu <dann@ics.uci.edu>
parents:
79717
diff
changeset
|
628 (define-key opt-map [makefile-bsdmake-mode] |
0905c6be13b6
(makefile-mode-abbrev-table): Add menu
Dan Nicolaescu <dann@ics.uci.edu>
parents:
79717
diff
changeset
|
629 '(menu-item "BSD" makefile-bsdmake-mode |
0905c6be13b6
(makefile-mode-abbrev-table): Add menu
Dan Nicolaescu <dann@ics.uci.edu>
parents:
79717
diff
changeset
|
630 :help "An adapted `makefile-mode' that knows about BSD make" |
0905c6be13b6
(makefile-mode-abbrev-table): Add menu
Dan Nicolaescu <dann@ics.uci.edu>
parents:
79717
diff
changeset
|
631 :button (:radio . (eq major-mode 'makefile-bsdmake-mode)))) |
0905c6be13b6
(makefile-mode-abbrev-table): Add menu
Dan Nicolaescu <dann@ics.uci.edu>
parents:
79717
diff
changeset
|
632 (define-key opt-map [makefile-automake-mode] |
0905c6be13b6
(makefile-mode-abbrev-table): Add menu
Dan Nicolaescu <dann@ics.uci.edu>
parents:
79717
diff
changeset
|
633 '(menu-item "Automake" makefile-automake-mode |
0905c6be13b6
(makefile-mode-abbrev-table): Add menu
Dan Nicolaescu <dann@ics.uci.edu>
parents:
79717
diff
changeset
|
634 :help "An adapted `makefile-mode' that knows about automake" |
0905c6be13b6
(makefile-mode-abbrev-table): Add menu
Dan Nicolaescu <dann@ics.uci.edu>
parents:
79717
diff
changeset
|
635 :button (:radio . (eq major-mode 'makefile-automake-mode)))) |
0905c6be13b6
(makefile-mode-abbrev-table): Add menu
Dan Nicolaescu <dann@ics.uci.edu>
parents:
79717
diff
changeset
|
636 (define-key opt-map [makefile-gmake-mode] |
0905c6be13b6
(makefile-mode-abbrev-table): Add menu
Dan Nicolaescu <dann@ics.uci.edu>
parents:
79717
diff
changeset
|
637 '(menu-item "GNU make" makefile-gmake-mode |
0905c6be13b6
(makefile-mode-abbrev-table): Add menu
Dan Nicolaescu <dann@ics.uci.edu>
parents:
79717
diff
changeset
|
638 :help "An adapted `makefile-mode' that knows about GNU make" |
0905c6be13b6
(makefile-mode-abbrev-table): Add menu
Dan Nicolaescu <dann@ics.uci.edu>
parents:
79717
diff
changeset
|
639 :button (:radio . (eq major-mode 'makefile-gmake-mode)))) |
62276
c1e4bf9803aa
(makefile-targets-face, makefile-shell-face, makefile-makepp-perl-face): New faces.
Daniel Pfeiffer <occitan@esperanto.org>
parents:
62082
diff
changeset
|
640 (define-key map [menu-bar makefile-mode browse] |
92703
0905c6be13b6
(makefile-mode-abbrev-table): Add menu
Dan Nicolaescu <dann@ics.uci.edu>
parents:
79717
diff
changeset
|
641 '(menu-item "Pop up Makefile Browser" makefile-switch-to-browser |
0905c6be13b6
(makefile-mode-abbrev-table): Add menu
Dan Nicolaescu <dann@ics.uci.edu>
parents:
79717
diff
changeset
|
642 ;; XXX: this needs a better string, the function is not documented... |
0905c6be13b6
(makefile-mode-abbrev-table): Add menu
Dan Nicolaescu <dann@ics.uci.edu>
parents:
79717
diff
changeset
|
643 :help "Pop up Makefile Browser")) |
0905c6be13b6
(makefile-mode-abbrev-table): Add menu
Dan Nicolaescu <dann@ics.uci.edu>
parents:
79717
diff
changeset
|
644 (define-key map [menu-bar makefile-mode overview] |
0905c6be13b6
(makefile-mode-abbrev-table): Add menu
Dan Nicolaescu <dann@ics.uci.edu>
parents:
79717
diff
changeset
|
645 '(menu-item "Up To Date Overview" makefile-create-up-to-date-overview |
0905c6be13b6
(makefile-mode-abbrev-table): Add menu
Dan Nicolaescu <dann@ics.uci.edu>
parents:
79717
diff
changeset
|
646 :help "Create a buffer containing an overview of the state of all known targets")) |
0905c6be13b6
(makefile-mode-abbrev-table): Add menu
Dan Nicolaescu <dann@ics.uci.edu>
parents:
79717
diff
changeset
|
647 ;; Target related |
0905c6be13b6
(makefile-mode-abbrev-table): Add menu
Dan Nicolaescu <dann@ics.uci.edu>
parents:
79717
diff
changeset
|
648 (define-key map [menu-bar makefile-mode separator1] '("----")) |
0905c6be13b6
(makefile-mode-abbrev-table): Add menu
Dan Nicolaescu <dann@ics.uci.edu>
parents:
79717
diff
changeset
|
649 (define-key map [menu-bar makefile-mode pickup-file] |
0905c6be13b6
(makefile-mode-abbrev-table): Add menu
Dan Nicolaescu <dann@ics.uci.edu>
parents:
79717
diff
changeset
|
650 '(menu-item "Pick File Name as Target" makefile-pickup-filenames-as-targets |
0905c6be13b6
(makefile-mode-abbrev-table): Add menu
Dan Nicolaescu <dann@ics.uci.edu>
parents:
79717
diff
changeset
|
651 :help "Scan the current directory for filenames to use as targets")) |
0905c6be13b6
(makefile-mode-abbrev-table): Add menu
Dan Nicolaescu <dann@ics.uci.edu>
parents:
79717
diff
changeset
|
652 (define-key map [menu-bar makefile-mode function] |
0905c6be13b6
(makefile-mode-abbrev-table): Add menu
Dan Nicolaescu <dann@ics.uci.edu>
parents:
79717
diff
changeset
|
653 '(menu-item "Insert GNU make function" makefile-insert-gmake-function |
0905c6be13b6
(makefile-mode-abbrev-table): Add menu
Dan Nicolaescu <dann@ics.uci.edu>
parents:
79717
diff
changeset
|
654 :help "Insert a GNU make function call")) |
62276
c1e4bf9803aa
(makefile-targets-face, makefile-shell-face, makefile-makepp-perl-face): New faces.
Daniel Pfeiffer <occitan@esperanto.org>
parents:
62082
diff
changeset
|
655 (define-key map [menu-bar makefile-mode pickup] |
92703
0905c6be13b6
(makefile-mode-abbrev-table): Add menu
Dan Nicolaescu <dann@ics.uci.edu>
parents:
79717
diff
changeset
|
656 '(menu-item "Find Targets and Macros" makefile-pickup-everything |
0905c6be13b6
(makefile-mode-abbrev-table): Add menu
Dan Nicolaescu <dann@ics.uci.edu>
parents:
79717
diff
changeset
|
657 :help "Notice names of all macros and targets in Makefile")) |
0905c6be13b6
(makefile-mode-abbrev-table): Add menu
Dan Nicolaescu <dann@ics.uci.edu>
parents:
79717
diff
changeset
|
658 (define-key map [menu-bar makefile-mode complete] |
0905c6be13b6
(makefile-mode-abbrev-table): Add menu
Dan Nicolaescu <dann@ics.uci.edu>
parents:
79717
diff
changeset
|
659 '(menu-item "Complete Target or Macro" makefile-complete |
0905c6be13b6
(makefile-mode-abbrev-table): Add menu
Dan Nicolaescu <dann@ics.uci.edu>
parents:
79717
diff
changeset
|
660 :help "Perform completion on Makefile construct preceding point")) |
0905c6be13b6
(makefile-mode-abbrev-table): Add menu
Dan Nicolaescu <dann@ics.uci.edu>
parents:
79717
diff
changeset
|
661 (define-key map [menu-bar makefile-mode backslash] |
0905c6be13b6
(makefile-mode-abbrev-table): Add menu
Dan Nicolaescu <dann@ics.uci.edu>
parents:
79717
diff
changeset
|
662 '(menu-item "Backslash Region" makefile-backslash-region |
0905c6be13b6
(makefile-mode-abbrev-table): Add menu
Dan Nicolaescu <dann@ics.uci.edu>
parents:
79717
diff
changeset
|
663 :help "Insert, align, or delete end-of-line backslashes on the lines in the region")) |
0905c6be13b6
(makefile-mode-abbrev-table): Add menu
Dan Nicolaescu <dann@ics.uci.edu>
parents:
79717
diff
changeset
|
664 ;; Motion |
0905c6be13b6
(makefile-mode-abbrev-table): Add menu
Dan Nicolaescu <dann@ics.uci.edu>
parents:
79717
diff
changeset
|
665 (define-key map [menu-bar makefile-mode separator] '("----")) |
62276
c1e4bf9803aa
(makefile-targets-face, makefile-shell-face, makefile-makepp-perl-face): New faces.
Daniel Pfeiffer <occitan@esperanto.org>
parents:
62082
diff
changeset
|
666 (define-key map [menu-bar makefile-mode prev] |
92703
0905c6be13b6
(makefile-mode-abbrev-table): Add menu
Dan Nicolaescu <dann@ics.uci.edu>
parents:
79717
diff
changeset
|
667 '(menu-item "Move to Previous Dependency" makefile-previous-dependency |
0905c6be13b6
(makefile-mode-abbrev-table): Add menu
Dan Nicolaescu <dann@ics.uci.edu>
parents:
79717
diff
changeset
|
668 :help "Move point to the beginning of the previous dependency line")) |
62276
c1e4bf9803aa
(makefile-targets-face, makefile-shell-face, makefile-makepp-perl-face): New faces.
Daniel Pfeiffer <occitan@esperanto.org>
parents:
62082
diff
changeset
|
669 (define-key map [menu-bar makefile-mode next] |
92703
0905c6be13b6
(makefile-mode-abbrev-table): Add menu
Dan Nicolaescu <dann@ics.uci.edu>
parents:
79717
diff
changeset
|
670 '(menu-item "Move to Next Dependency" makefile-next-dependency |
0905c6be13b6
(makefile-mode-abbrev-table): Add menu
Dan Nicolaescu <dann@ics.uci.edu>
parents:
79717
diff
changeset
|
671 :help "Move point to the beginning of the next dependency line")) |
62276
c1e4bf9803aa
(makefile-targets-face, makefile-shell-face, makefile-makepp-perl-face): New faces.
Daniel Pfeiffer <occitan@esperanto.org>
parents:
62082
diff
changeset
|
672 map) |
c1e4bf9803aa
(makefile-targets-face, makefile-shell-face, makefile-makepp-perl-face): New faces.
Daniel Pfeiffer <occitan@esperanto.org>
parents:
62082
diff
changeset
|
673 "The keymap that is used in Makefile mode.") |
809 | 674 |
71030
6e1192ac395f
(makefile-browser-map, makefile-mode-syntax-table): Move init inside decl.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
70812
diff
changeset
|
675 |
6e1192ac395f
(makefile-browser-map, makefile-mode-syntax-table): Move init inside decl.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
70812
diff
changeset
|
676 (defvar makefile-browser-map |
6e1192ac395f
(makefile-browser-map, makefile-mode-syntax-table): Move init inside decl.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
70812
diff
changeset
|
677 (let ((map (make-sparse-keymap))) |
6e1192ac395f
(makefile-browser-map, makefile-mode-syntax-table): Move init inside decl.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
70812
diff
changeset
|
678 (define-key map "n" 'makefile-browser-next-line) |
6e1192ac395f
(makefile-browser-map, makefile-mode-syntax-table): Move init inside decl.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
70812
diff
changeset
|
679 (define-key map "\C-n" 'makefile-browser-next-line) |
6e1192ac395f
(makefile-browser-map, makefile-mode-syntax-table): Move init inside decl.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
70812
diff
changeset
|
680 (define-key map "p" 'makefile-browser-previous-line) |
6e1192ac395f
(makefile-browser-map, makefile-mode-syntax-table): Move init inside decl.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
70812
diff
changeset
|
681 (define-key map "\C-p" 'makefile-browser-previous-line) |
6e1192ac395f
(makefile-browser-map, makefile-mode-syntax-table): Move init inside decl.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
70812
diff
changeset
|
682 (define-key map " " 'makefile-browser-toggle) |
6e1192ac395f
(makefile-browser-map, makefile-mode-syntax-table): Move init inside decl.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
70812
diff
changeset
|
683 (define-key map "i" 'makefile-browser-insert-selection) |
6e1192ac395f
(makefile-browser-map, makefile-mode-syntax-table): Move init inside decl.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
70812
diff
changeset
|
684 (define-key map "I" 'makefile-browser-insert-selection-and-quit) |
6e1192ac395f
(makefile-browser-map, makefile-mode-syntax-table): Move init inside decl.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
70812
diff
changeset
|
685 (define-key map "\C-c\C-m" 'makefile-browser-insert-continuation) |
6e1192ac395f
(makefile-browser-map, makefile-mode-syntax-table): Move init inside decl.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
70812
diff
changeset
|
686 (define-key map "q" 'makefile-browser-quit) |
6e1192ac395f
(makefile-browser-map, makefile-mode-syntax-table): Move init inside decl.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
70812
diff
changeset
|
687 ;; disable horizontal movement |
6e1192ac395f
(makefile-browser-map, makefile-mode-syntax-table): Move init inside decl.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
70812
diff
changeset
|
688 (define-key map "\C-b" 'undefined) |
6e1192ac395f
(makefile-browser-map, makefile-mode-syntax-table): Move init inside decl.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
70812
diff
changeset
|
689 (define-key map "\C-f" 'undefined) |
6e1192ac395f
(makefile-browser-map, makefile-mode-syntax-table): Move init inside decl.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
70812
diff
changeset
|
690 map) |
809 | 691 "The keymap that is used in the macro- and target browser.") |
692 | |
693 | |
71030
6e1192ac395f
(makefile-browser-map, makefile-mode-syntax-table): Move init inside decl.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
70812
diff
changeset
|
694 (defvar makefile-mode-syntax-table |
6e1192ac395f
(makefile-browser-map, makefile-mode-syntax-table): Move init inside decl.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
70812
diff
changeset
|
695 (let ((st (make-syntax-table))) |
6e1192ac395f
(makefile-browser-map, makefile-mode-syntax-table): Move init inside decl.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
70812
diff
changeset
|
696 (modify-syntax-entry ?\( "() " st) |
6e1192ac395f
(makefile-browser-map, makefile-mode-syntax-table): Move init inside decl.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
70812
diff
changeset
|
697 (modify-syntax-entry ?\) ")( " st) |
6e1192ac395f
(makefile-browser-map, makefile-mode-syntax-table): Move init inside decl.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
70812
diff
changeset
|
698 (modify-syntax-entry ?\[ "(] " st) |
6e1192ac395f
(makefile-browser-map, makefile-mode-syntax-table): Move init inside decl.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
70812
diff
changeset
|
699 (modify-syntax-entry ?\] ")[ " st) |
6e1192ac395f
(makefile-browser-map, makefile-mode-syntax-table): Move init inside decl.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
70812
diff
changeset
|
700 (modify-syntax-entry ?\{ "(} " st) |
6e1192ac395f
(makefile-browser-map, makefile-mode-syntax-table): Move init inside decl.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
70812
diff
changeset
|
701 (modify-syntax-entry ?\} "){ " st) |
6e1192ac395f
(makefile-browser-map, makefile-mode-syntax-table): Move init inside decl.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
70812
diff
changeset
|
702 (modify-syntax-entry ?\' "\" " st) |
6e1192ac395f
(makefile-browser-map, makefile-mode-syntax-table): Move init inside decl.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
70812
diff
changeset
|
703 (modify-syntax-entry ?\` "\" " st) |
6e1192ac395f
(makefile-browser-map, makefile-mode-syntax-table): Move init inside decl.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
70812
diff
changeset
|
704 (modify-syntax-entry ?# "< " st) |
6e1192ac395f
(makefile-browser-map, makefile-mode-syntax-table): Move init inside decl.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
70812
diff
changeset
|
705 (modify-syntax-entry ?\n "> " st) |
6e1192ac395f
(makefile-browser-map, makefile-mode-syntax-table): Move init inside decl.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
70812
diff
changeset
|
706 st)) |
9454
40340d39257d
(makefile-mode-name): Removed.
Richard M. Stallman <rms@gnu.org>
parents:
7639
diff
changeset
|
707 |
68239
e08826f8b714
Added makefile-imake-mode.
Masatake YAMATO <jet@gyve.org>
parents:
67835
diff
changeset
|
708 (defvar makefile-imake-mode-syntax-table (copy-syntax-table |
e08826f8b714
Added makefile-imake-mode.
Masatake YAMATO <jet@gyve.org>
parents:
67835
diff
changeset
|
709 makefile-mode-syntax-table)) |
e08826f8b714
Added makefile-imake-mode.
Masatake YAMATO <jet@gyve.org>
parents:
67835
diff
changeset
|
710 (if makefile-imake-mode-syntax-table |
e08826f8b714
Added makefile-imake-mode.
Masatake YAMATO <jet@gyve.org>
parents:
67835
diff
changeset
|
711 () |
e08826f8b714
Added makefile-imake-mode.
Masatake YAMATO <jet@gyve.org>
parents:
67835
diff
changeset
|
712 (modify-syntax-entry ?/ ". 14" makefile-imake-mode-syntax-table) |
e08826f8b714
Added makefile-imake-mode.
Masatake YAMATO <jet@gyve.org>
parents:
67835
diff
changeset
|
713 (modify-syntax-entry ?* ". 23" makefile-imake-mode-syntax-table) |
e08826f8b714
Added makefile-imake-mode.
Masatake YAMATO <jet@gyve.org>
parents:
67835
diff
changeset
|
714 (modify-syntax-entry ?# "'" makefile-imake-mode-syntax-table) |
e08826f8b714
Added makefile-imake-mode.
Masatake YAMATO <jet@gyve.org>
parents:
67835
diff
changeset
|
715 (modify-syntax-entry ?\n ". b" makefile-imake-mode-syntax-table)) |
e08826f8b714
Added makefile-imake-mode.
Masatake YAMATO <jet@gyve.org>
parents:
67835
diff
changeset
|
716 |
9454
40340d39257d
(makefile-mode-name): Removed.
Richard M. Stallman <rms@gnu.org>
parents:
7639
diff
changeset
|
717 |
809 | 718 ;;; ------------------------------------------------------------ |
719 ;;; Internal variables. | |
720 ;;; You don't need to configure below this line. | |
721 ;;; ------------------------------------------------------------ | |
722 | |
723 (defvar makefile-target-table nil | |
9758
b9084912762f
Changed almost every doc string.
Richard M. Stallman <rms@gnu.org>
parents:
9477
diff
changeset
|
724 "Table of all target names known for this buffer.") |
70810
d464ed82246a
(makefile-special-targets-list)
Roland Winkler <Roland.Winkler@physik.uni-erlangen.de>
parents:
70780
diff
changeset
|
725 (put 'makefile-target-table 'risky-local-variable t) |
809 | 726 |
727 (defvar makefile-macro-table nil | |
9758
b9084912762f
Changed almost every doc string.
Richard M. Stallman <rms@gnu.org>
parents:
9477
diff
changeset
|
728 "Table of all macro names known for this buffer.") |
70810
d464ed82246a
(makefile-special-targets-list)
Roland Winkler <Roland.Winkler@physik.uni-erlangen.de>
parents:
70780
diff
changeset
|
729 (put 'makefile-macro-table 'risky-local-variable t) |
809 | 730 |
731 (defvar makefile-browser-client | |
12936 | 732 "A buffer in Makefile mode that is currently using the browser.") |
809 | 733 |
734 (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
|
735 (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
|
736 (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
|
737 (defvar makefile-need-macro-pickup t) |
809 | 738 |
739 (defvar makefile-mode-hook '()) | |
740 | |
9758
b9084912762f
Changed almost every doc string.
Richard M. Stallman <rms@gnu.org>
parents:
9477
diff
changeset
|
741 ;; 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
|
742 ;; Each "ARG" is used as a prompt for a required argument. |
809 | 743 (defconst makefile-gnumake-functions-alist |
744 '( | |
745 ;; Text functions | |
746 ("subst" "From" "To" "In") | |
747 ("patsubst" "Pattern" "Replacement" "In") | |
748 ("strip" "Text") | |
749 ("findstring" "Find what" "In") | |
750 ("filter" "Pattern" "Text") | |
751 ("filter-out" "Pattern" "Text") | |
752 ("sort" "List") | |
753 ;; Filename functions | |
754 ("dir" "Names") | |
755 ("notdir" "Names") | |
756 ("suffix" "Names") | |
757 ("basename" "Names") | |
15523
682a3d405c49
(makefile-gnumake-functions-alist): Add `addprefix'.
Richard M. Stallman <rms@gnu.org>
parents:
14688
diff
changeset
|
758 ("addprefix" "Prefix" "Names") |
809 | 759 ("addsuffix" "Suffix" "Names") |
760 ("join" "List 1" "List 2") | |
761 ("word" "Index" "Text") | |
762 ("words" "Text") | |
763 ("firstword" "Text") | |
764 ("wildcard" "Pattern") | |
765 ;; Misc functions | |
766 ("foreach" "Variable" "List" "Text") | |
767 ("origin" "Variable") | |
9758
b9084912762f
Changed almost every doc string.
Richard M. Stallman <rms@gnu.org>
parents:
9477
diff
changeset
|
768 ("shell" "Command"))) |
809 | 769 |
770 | |
771 ;;; ------------------------------------------------------------ | |
772 ;;; The mode function itself. | |
773 ;;; ------------------------------------------------------------ | |
774 | |
2534
0099d6be2b11
(makefile-mode): Fix typo in autoload cookie.
Richard M. Stallman <rms@gnu.org>
parents:
2400
diff
changeset
|
775 ;;;###autoload |
809 | 776 (defun makefile-mode () |
62276
c1e4bf9803aa
(makefile-targets-face, makefile-shell-face, makefile-makepp-perl-face): New faces.
Daniel Pfeiffer <occitan@esperanto.org>
parents:
62082
diff
changeset
|
777 "Major mode for editing standard Makefiles. |
c1e4bf9803aa
(makefile-targets-face, makefile-shell-face, makefile-makepp-perl-face): New faces.
Daniel Pfeiffer <occitan@esperanto.org>
parents:
62082
diff
changeset
|
778 |
c1e4bf9803aa
(makefile-targets-face, makefile-shell-face, makefile-makepp-perl-face): New faces.
Daniel Pfeiffer <occitan@esperanto.org>
parents:
62082
diff
changeset
|
779 If you are editing a file for a different make, try one of the |
c1e4bf9803aa
(makefile-targets-face, makefile-shell-face, makefile-makepp-perl-face): New faces.
Daniel Pfeiffer <occitan@esperanto.org>
parents:
62082
diff
changeset
|
780 variants `makefile-automake-mode', `makefile-gmake-mode', |
70780 | 781 `makefile-makepp-mode', `makefile-bsdmake-mode' or, |
782 `makefile-imake-mode'. All but the last should be correctly | |
783 chosen based on the file name, except if it is *.mk. This | |
784 function ends by invoking the function(s) `makefile-mode-hook'. | |
809 | 785 |
62412
6ac7ed8e212b
(makefile-dependency-regex): Turn it into a var, and refine it to mask one more level of nested vars.
Daniel Pfeiffer <occitan@esperanto.org>
parents:
62276
diff
changeset
|
786 It is strongly recommended to use `font-lock-mode', because that |
6ac7ed8e212b
(makefile-dependency-regex): Turn it into a var, and refine it to mask one more level of nested vars.
Daniel Pfeiffer <occitan@esperanto.org>
parents:
62276
diff
changeset
|
787 provides additional parsing information. This is used for |
6ac7ed8e212b
(makefile-dependency-regex): Turn it into a var, and refine it to mask one more level of nested vars.
Daniel Pfeiffer <occitan@esperanto.org>
parents:
62276
diff
changeset
|
788 example to see that a rule action `echo foo: bar' is a not rule |
6ac7ed8e212b
(makefile-dependency-regex): Turn it into a var, and refine it to mask one more level of nested vars.
Daniel Pfeiffer <occitan@esperanto.org>
parents:
62276
diff
changeset
|
789 dependency, despite the colon. |
6ac7ed8e212b
(makefile-dependency-regex): Turn it into a var, and refine it to mask one more level of nested vars.
Daniel Pfeiffer <occitan@esperanto.org>
parents:
62276
diff
changeset
|
790 |
809 | 791 \\{makefile-mode-map} |
792 | |
793 In the browser, use the following keys: | |
794 | |
795 \\{makefile-browser-map} | |
796 | |
12936 | 797 Makefile mode can be configured by modifying the following variables: |
809 | 798 |
41641
66c7637cbf17
Use line-(end|beginning)-position.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
38600
diff
changeset
|
799 `makefile-browser-buffer-name': |
809 | 800 Name of the macro- and target browser buffer. |
801 | |
41641
66c7637cbf17
Use line-(end|beginning)-position.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
38600
diff
changeset
|
802 `makefile-target-colon': |
809 | 803 The string that gets appended to all target names |
12936 | 804 inserted by `makefile-insert-target'. |
809 | 805 \":\" or \"::\" are quite common values. |
806 | |
41641
66c7637cbf17
Use line-(end|beginning)-position.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
38600
diff
changeset
|
807 `makefile-macro-assign': |
809 | 808 The string that gets appended to all macro names |
12936 | 809 inserted by `makefile-insert-macro'. |
809 | 810 The normal value should be \" = \", since this is what |
26136 | 811 standard make expects. However, newer makes such as dmake |
809 | 812 allow a larger variety of different macro assignments, so you |
813 might prefer to use \" += \" or \" := \" . | |
814 | |
41641
66c7637cbf17
Use line-(end|beginning)-position.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
38600
diff
changeset
|
815 `makefile-tab-after-target-colon': |
809 | 816 If you want a TAB (instead of a space) to be appended after the |
817 target colon, then set this to a non-nil value. | |
818 | |
41641
66c7637cbf17
Use line-(end|beginning)-position.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
38600
diff
changeset
|
819 `makefile-browser-leftmost-column': |
809 | 820 Number of blanks to the left of the browser selection mark. |
821 | |
41641
66c7637cbf17
Use line-(end|beginning)-position.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
38600
diff
changeset
|
822 `makefile-browser-cursor-column': |
809 | 823 Column in which the cursor is positioned when it moves |
824 up or down in the browser. | |
825 | |
41641
66c7637cbf17
Use line-(end|beginning)-position.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
38600
diff
changeset
|
826 `makefile-browser-selected-mark': |
809 | 827 String used to mark selected entries in the browser. |
828 | |
41641
66c7637cbf17
Use line-(end|beginning)-position.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
38600
diff
changeset
|
829 `makefile-browser-unselected-mark': |
809 | 830 String used to mark unselected entries in the browser. |
831 | |
41641
66c7637cbf17
Use line-(end|beginning)-position.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
38600
diff
changeset
|
832 `makefile-browser-auto-advance-after-selection-p': |
809 | 833 If this variable is set to a non-nil value the cursor |
834 will automagically advance to the next line after an item | |
835 has been selected in the browser. | |
836 | |
41641
66c7637cbf17
Use line-(end|beginning)-position.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
38600
diff
changeset
|
837 `makefile-pickup-everything-picks-up-filenames-p': |
809 | 838 If this variable is set to a non-nil value then |
12936 | 839 `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
|
840 (i.e. it calls `makefile-pickup-filenames-as-targets'), otherwise |
809 | 841 filenames are omitted. |
842 | |
47546
2c7b4003c5ad
(makefile-cleanup-continuations-p): Rename to makefile-cleanup-continuations.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
47527
diff
changeset
|
843 `makefile-cleanup-continuations': |
26136 | 844 If this variable is set to a non-nil value then Makefile mode |
809 | 845 will assure that no line in the file ends with a backslash |
846 (the continuation character) followed by any whitespace. | |
847 This is done by silently removing the trailing whitespace, leaving | |
848 the backslash itself intact. | |
26136 | 849 IMPORTANT: Please note that enabling this option causes Makefile mode |
12936 | 850 to MODIFY A FILE WITHOUT YOUR CONFIRMATION when \"it seems necessary\". |
809 | 851 |
41641
66c7637cbf17
Use line-(end|beginning)-position.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
38600
diff
changeset
|
852 `makefile-browser-hook': |
809 | 853 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
|
854 browser is entered. This is executed in the makefile buffer. |
809 | 855 |
41641
66c7637cbf17
Use line-(end|beginning)-position.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
38600
diff
changeset
|
856 `makefile-special-targets-list': |
809 | 857 List of special targets. You will be offered to complete |
12936 | 858 on one of those in the minibuffer whenever you enter a `.'. |
859 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
|
860 |
809 | 861 (interactive) |
862 (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
|
863 (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
|
864 '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
|
865 (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
|
866 'makefile-warn-continuations nil t) |
1117d26eaae0
(makefile-cleanup-continuations): Default for variable is nil.
Richard M. Stallman <rms@gnu.org>
parents:
47546
diff
changeset
|
867 (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
|
868 '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
|
869 (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
|
870 (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
|
871 (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
|
872 (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
|
873 (make-local-variable 'makefile-need-macro-pickup) |
9454
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 ;; Font lock. |
9477
7a8a379513e4
* makefile.el: (makefile-mode-syntax-table): Made `'' and ``' be
Simon Marshall <simon@gnu.org>
parents:
9454
diff
changeset
|
876 (make-local-variable 'font-lock-defaults) |
35932
2b3447fcf42b
(makefile-mode): Set SYNTAX-BEGIN member
Eli Zaretskii <eliz@gnu.org>
parents:
30468
diff
changeset
|
877 (setq font-lock-defaults |
2b3447fcf42b
(makefile-mode): Set SYNTAX-BEGIN member
Eli Zaretskii <eliz@gnu.org>
parents:
30468
diff
changeset
|
878 ;; 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
|
879 ;; 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
|
880 ;; 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
|
881 '(makefile-font-lock-keywords |
63bfe3825510
(makefile-font-lock-syntactic-keywords): New variable.
Juanma Barranquero <lekktu@gmail.com>
parents:
49970
diff
changeset
|
882 nil nil |
63bfe3825510
(makefile-font-lock-syntactic-keywords): New variable.
Juanma Barranquero <lekktu@gmail.com>
parents:
49970
diff
changeset
|
883 ((?$ . ".")) |
63bfe3825510
(makefile-font-lock-syntactic-keywords): New variable.
Juanma Barranquero <lekktu@gmail.com>
parents:
49970
diff
changeset
|
884 backward-paragraph |
73157
66c756c90e7b
(makefile-mode): Don't disable jit-lock.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
71569
diff
changeset
|
885 (font-lock-syntactic-keywords |
66c756c90e7b
(makefile-mode): Don't disable jit-lock.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
71569
diff
changeset
|
886 . makefile-font-lock-syntactic-keywords))) |
9454
40340d39257d
(makefile-mode-name): Removed.
Richard M. Stallman <rms@gnu.org>
parents:
7639
diff
changeset
|
887 |
40340d39257d
(makefile-mode-name): Removed.
Richard M. Stallman <rms@gnu.org>
parents:
7639
diff
changeset
|
888 ;; Add-log. |
40340d39257d
(makefile-mode-name): Removed.
Richard M. Stallman <rms@gnu.org>
parents:
7639
diff
changeset
|
889 (make-local-variable 'add-log-current-defun-function) |
40340d39257d
(makefile-mode-name): Removed.
Richard M. Stallman <rms@gnu.org>
parents:
7639
diff
changeset
|
890 (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
|
891 |
40340d39257d
(makefile-mode-name): Removed.
Richard M. Stallman <rms@gnu.org>
parents:
7639
diff
changeset
|
892 ;; Imenu. |
24248
fd94cf07b4cc
(makefile-imenu-generic-expression): New var.
Richard M. Stallman <rms@gnu.org>
parents:
22837
diff
changeset
|
893 (make-local-variable 'imenu-generic-expression) |
fd94cf07b4cc
(makefile-imenu-generic-expression): New var.
Richard M. Stallman <rms@gnu.org>
parents:
22837
diff
changeset
|
894 (setq imenu-generic-expression makefile-imenu-generic-expression) |
9454
40340d39257d
(makefile-mode-name): Removed.
Richard M. Stallman <rms@gnu.org>
parents:
7639
diff
changeset
|
895 |
11638
2b1d5f2e99cc
(makefile-mode): Set dabbrev-abbrev-skip-leading-regexp.
Richard M. Stallman <rms@gnu.org>
parents:
9758
diff
changeset
|
896 ;; Dabbrev. |
2b1d5f2e99cc
(makefile-mode): Set dabbrev-abbrev-skip-leading-regexp.
Richard M. Stallman <rms@gnu.org>
parents:
9758
diff
changeset
|
897 (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
|
898 (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
|
899 |
28503 | 900 ;; Other abbrevs. |
901 (setq local-abbrev-table makefile-mode-abbrev-table) | |
902 | |
17240
9e236e540a59
(makefile-backslash-align): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
17142
diff
changeset
|
903 ;; Filling. |
9e236e540a59
(makefile-backslash-align): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
17142
diff
changeset
|
904 (make-local-variable 'fill-paragraph-function) |
9e236e540a59
(makefile-backslash-align): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
17142
diff
changeset
|
905 (setq fill-paragraph-function 'makefile-fill-paragraph) |
9e236e540a59
(makefile-backslash-align): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
17142
diff
changeset
|
906 |
9454
40340d39257d
(makefile-mode-name): Removed.
Richard M. Stallman <rms@gnu.org>
parents:
7639
diff
changeset
|
907 ;; Comment stuff. |
5464
4823e14b1314
(makefile-mode): Make comment-start, comment-end,
Richard M. Stallman <rms@gnu.org>
parents:
5312
diff
changeset
|
908 (make-local-variable 'comment-start) |
9454
40340d39257d
(makefile-mode-name): Removed.
Richard M. Stallman <rms@gnu.org>
parents:
7639
diff
changeset
|
909 (setq comment-start "#") |
5464
4823e14b1314
(makefile-mode): Make comment-start, comment-end,
Richard M. Stallman <rms@gnu.org>
parents:
5312
diff
changeset
|
910 (make-local-variable 'comment-end) |
9454
40340d39257d
(makefile-mode-name): Removed.
Richard M. Stallman <rms@gnu.org>
parents:
7639
diff
changeset
|
911 (setq comment-end "") |
5464
4823e14b1314
(makefile-mode): Make comment-start, comment-end,
Richard M. Stallman <rms@gnu.org>
parents:
5312
diff
changeset
|
912 (make-local-variable 'comment-start-skip) |
9454
40340d39257d
(makefile-mode-name): Removed.
Richard M. Stallman <rms@gnu.org>
parents:
7639
diff
changeset
|
913 (setq comment-start-skip "#+[ \t]*") |
40340d39257d
(makefile-mode-name): Removed.
Richard M. Stallman <rms@gnu.org>
parents:
7639
diff
changeset
|
914 |
41641
66c7637cbf17
Use line-(end|beginning)-position.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
38600
diff
changeset
|
915 ;; Make sure TAB really inserts \t. |
66c7637cbf17
Use line-(end|beginning)-position.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
38600
diff
changeset
|
916 (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
|
917 |
809 | 918 ;; become the current major mode |
919 (setq major-mode 'makefile-mode) | |
9454
40340d39257d
(makefile-mode-name): Removed.
Richard M. Stallman <rms@gnu.org>
parents:
7639
diff
changeset
|
920 (setq mode-name "Makefile") |
40340d39257d
(makefile-mode-name): Removed.
Richard M. Stallman <rms@gnu.org>
parents:
7639
diff
changeset
|
921 |
40340d39257d
(makefile-mode-name): Removed.
Richard M. Stallman <rms@gnu.org>
parents:
7639
diff
changeset
|
922 ;; Activate keymap and syntax table. |
809 | 923 (use-local-map makefile-mode-map) |
924 (set-syntax-table makefile-mode-syntax-table) | |
9454
40340d39257d
(makefile-mode-name): Removed.
Richard M. Stallman <rms@gnu.org>
parents:
7639
diff
changeset
|
925 |
40340d39257d
(makefile-mode-name): Removed.
Richard M. Stallman <rms@gnu.org>
parents:
7639
diff
changeset
|
926 ;; Real TABs are important in makefiles |
40340d39257d
(makefile-mode-name): Removed.
Richard M. Stallman <rms@gnu.org>
parents:
7639
diff
changeset
|
927 (setq indent-tabs-mode t) |
62525
10a127a02c08
(makefile-mode): Use run-mode-hooks.
Richard M. Stallman <rms@gnu.org>
parents:
62503
diff
changeset
|
928 (run-mode-hooks 'makefile-mode-hook)) |
9454
40340d39257d
(makefile-mode-name): Removed.
Richard M. Stallman <rms@gnu.org>
parents:
7639
diff
changeset
|
929 |
62276
c1e4bf9803aa
(makefile-targets-face, makefile-shell-face, makefile-makepp-perl-face): New faces.
Daniel Pfeiffer <occitan@esperanto.org>
parents:
62082
diff
changeset
|
930 ;; These should do more than just differentiate font-lock. |
c1e4bf9803aa
(makefile-targets-face, makefile-shell-face, makefile-makepp-perl-face): New faces.
Daniel Pfeiffer <occitan@esperanto.org>
parents:
62082
diff
changeset
|
931 ;;;###autoload |
c1e4bf9803aa
(makefile-targets-face, makefile-shell-face, makefile-makepp-perl-face): New faces.
Daniel Pfeiffer <occitan@esperanto.org>
parents:
62082
diff
changeset
|
932 (define-derived-mode makefile-automake-mode makefile-mode "Makefile.am" |
c1e4bf9803aa
(makefile-targets-face, makefile-shell-face, makefile-makepp-perl-face): New faces.
Daniel Pfeiffer <occitan@esperanto.org>
parents:
62082
diff
changeset
|
933 "An adapted `makefile-mode' that knows about automake." |
c1e4bf9803aa
(makefile-targets-face, makefile-shell-face, makefile-makepp-perl-face): New faces.
Daniel Pfeiffer <occitan@esperanto.org>
parents:
62082
diff
changeset
|
934 (setq font-lock-defaults |
c1e4bf9803aa
(makefile-targets-face, makefile-shell-face, makefile-makepp-perl-face): New faces.
Daniel Pfeiffer <occitan@esperanto.org>
parents:
62082
diff
changeset
|
935 `(makefile-automake-font-lock-keywords ,@(cdr font-lock-defaults)))) |
c1e4bf9803aa
(makefile-targets-face, makefile-shell-face, makefile-makepp-perl-face): New faces.
Daniel Pfeiffer <occitan@esperanto.org>
parents:
62082
diff
changeset
|
936 |
c1e4bf9803aa
(makefile-targets-face, makefile-shell-face, makefile-makepp-perl-face): New faces.
Daniel Pfeiffer <occitan@esperanto.org>
parents:
62082
diff
changeset
|
937 ;;;###autoload |
c1e4bf9803aa
(makefile-targets-face, makefile-shell-face, makefile-makepp-perl-face): New faces.
Daniel Pfeiffer <occitan@esperanto.org>
parents:
62082
diff
changeset
|
938 (define-derived-mode makefile-gmake-mode makefile-mode "GNUmakefile" |
c1e4bf9803aa
(makefile-targets-face, makefile-shell-face, makefile-makepp-perl-face): New faces.
Daniel Pfeiffer <occitan@esperanto.org>
parents:
62082
diff
changeset
|
939 "An adapted `makefile-mode' that knows about gmake." |
c1e4bf9803aa
(makefile-targets-face, makefile-shell-face, makefile-makepp-perl-face): New faces.
Daniel Pfeiffer <occitan@esperanto.org>
parents:
62082
diff
changeset
|
940 (setq font-lock-defaults |
c1e4bf9803aa
(makefile-targets-face, makefile-shell-face, makefile-makepp-perl-face): New faces.
Daniel Pfeiffer <occitan@esperanto.org>
parents:
62082
diff
changeset
|
941 `(makefile-gmake-font-lock-keywords ,@(cdr font-lock-defaults)))) |
c1e4bf9803aa
(makefile-targets-face, makefile-shell-face, makefile-makepp-perl-face): New faces.
Daniel Pfeiffer <occitan@esperanto.org>
parents:
62082
diff
changeset
|
942 |
c1e4bf9803aa
(makefile-targets-face, makefile-shell-face, makefile-makepp-perl-face): New faces.
Daniel Pfeiffer <occitan@esperanto.org>
parents:
62082
diff
changeset
|
943 ;;;###autoload |
c1e4bf9803aa
(makefile-targets-face, makefile-shell-face, makefile-makepp-perl-face): New faces.
Daniel Pfeiffer <occitan@esperanto.org>
parents:
62082
diff
changeset
|
944 (define-derived-mode makefile-makepp-mode makefile-mode "Makeppfile" |
c1e4bf9803aa
(makefile-targets-face, makefile-shell-face, makefile-makepp-perl-face): New faces.
Daniel Pfeiffer <occitan@esperanto.org>
parents:
62082
diff
changeset
|
945 "An adapted `makefile-mode' that knows about makepp." |
62965
a078bb7e3d21
(makefile-targets-face, makefile-shell-face, makefile-makepp-perl-face): Add :version.
Daniel Pfeiffer <occitan@esperanto.org>
parents:
62851
diff
changeset
|
946 (set (make-local-variable 'makefile-rule-action-regex) |
a078bb7e3d21
(makefile-targets-face, makefile-shell-face, makefile-makepp-perl-face): Add :version.
Daniel Pfeiffer <occitan@esperanto.org>
parents:
62851
diff
changeset
|
947 makefile-makepp-rule-action-regex) |
62276
c1e4bf9803aa
(makefile-targets-face, makefile-shell-face, makefile-makepp-perl-face): New faces.
Daniel Pfeiffer <occitan@esperanto.org>
parents:
62082
diff
changeset
|
948 (setq font-lock-defaults |
62569
f09fbe52c543
(makefile-imenu-generic-expression): Use function to find dependencies, because regexp alone is so complex, it easily goes into an endless loop.
Daniel Pfeiffer <occitan@esperanto.org>
parents:
62525
diff
changeset
|
949 `(makefile-makepp-font-lock-keywords ,@(cdr font-lock-defaults)) |
f09fbe52c543
(makefile-imenu-generic-expression): Use function to find dependencies, because regexp alone is so complex, it easily goes into an endless loop.
Daniel Pfeiffer <occitan@esperanto.org>
parents:
62525
diff
changeset
|
950 imenu-generic-expression |
f09fbe52c543
(makefile-imenu-generic-expression): Use function to find dependencies, because regexp alone is so complex, it easily goes into an endless loop.
Daniel Pfeiffer <occitan@esperanto.org>
parents:
62525
diff
changeset
|
951 `(("Functions" "^[ \t]*\\(?:make\\)?sub[ \t]+\\([A-Za-z0-9_]+\\)" 1) |
f09fbe52c543
(makefile-imenu-generic-expression): Use function to find dependencies, because regexp alone is so complex, it easily goes into an endless loop.
Daniel Pfeiffer <occitan@esperanto.org>
parents:
62525
diff
changeset
|
952 ,@imenu-generic-expression))) |
62276
c1e4bf9803aa
(makefile-targets-face, makefile-shell-face, makefile-makepp-perl-face): New faces.
Daniel Pfeiffer <occitan@esperanto.org>
parents:
62082
diff
changeset
|
953 |
c1e4bf9803aa
(makefile-targets-face, makefile-shell-face, makefile-makepp-perl-face): New faces.
Daniel Pfeiffer <occitan@esperanto.org>
parents:
62082
diff
changeset
|
954 ;;;###autoload |
c1e4bf9803aa
(makefile-targets-face, makefile-shell-face, makefile-makepp-perl-face): New faces.
Daniel Pfeiffer <occitan@esperanto.org>
parents:
62082
diff
changeset
|
955 (define-derived-mode makefile-bsdmake-mode makefile-mode "BSDmakefile" |
c1e4bf9803aa
(makefile-targets-face, makefile-shell-face, makefile-makepp-perl-face): New faces.
Daniel Pfeiffer <occitan@esperanto.org>
parents:
62082
diff
changeset
|
956 "An adapted `makefile-mode' that knows about BSD make." |
62412
6ac7ed8e212b
(makefile-dependency-regex): Turn it into a var, and refine it to mask one more level of nested vars.
Daniel Pfeiffer <occitan@esperanto.org>
parents:
62276
diff
changeset
|
957 (set (make-local-variable 'makefile-dependency-regex) |
62965
a078bb7e3d21
(makefile-targets-face, makefile-shell-face, makefile-makepp-perl-face): Add :version.
Daniel Pfeiffer <occitan@esperanto.org>
parents:
62851
diff
changeset
|
958 makefile-bsdmake-dependency-regex) |
62444
24bf25fa47db
(makefile-dependency-skip): New variable.
Daniel Pfeiffer <occitan@esperanto.org>
parents:
62412
diff
changeset
|
959 (set (make-local-variable 'makefile-dependency-skip) "^:!") |
62412
6ac7ed8e212b
(makefile-dependency-regex): Turn it into a var, and refine it to mask one more level of nested vars.
Daniel Pfeiffer <occitan@esperanto.org>
parents:
62276
diff
changeset
|
960 (set (make-local-variable 'makefile-rule-action-regex) |
62965
a078bb7e3d21
(makefile-targets-face, makefile-shell-face, makefile-makepp-perl-face): Add :version.
Daniel Pfeiffer <occitan@esperanto.org>
parents:
62851
diff
changeset
|
961 makefile-bsdmake-rule-action-regex) |
62276
c1e4bf9803aa
(makefile-targets-face, makefile-shell-face, makefile-makepp-perl-face): New faces.
Daniel Pfeiffer <occitan@esperanto.org>
parents:
62082
diff
changeset
|
962 (setq font-lock-defaults |
62569
f09fbe52c543
(makefile-imenu-generic-expression): Use function to find dependencies, because regexp alone is so complex, it easily goes into an endless loop.
Daniel Pfeiffer <occitan@esperanto.org>
parents:
62525
diff
changeset
|
963 `(makefile-bsdmake-font-lock-keywords ,@(cdr font-lock-defaults)))) |
62276
c1e4bf9803aa
(makefile-targets-face, makefile-shell-face, makefile-makepp-perl-face): New faces.
Daniel Pfeiffer <occitan@esperanto.org>
parents:
62082
diff
changeset
|
964 |
68239
e08826f8b714
Added makefile-imake-mode.
Masatake YAMATO <jet@gyve.org>
parents:
67835
diff
changeset
|
965 ;;;###autoload |
e08826f8b714
Added makefile-imake-mode.
Masatake YAMATO <jet@gyve.org>
parents:
67835
diff
changeset
|
966 (define-derived-mode makefile-imake-mode makefile-mode "Imakefile" |
e08826f8b714
Added makefile-imake-mode.
Masatake YAMATO <jet@gyve.org>
parents:
67835
diff
changeset
|
967 "An adapted `makefile-mode' that knows about imake." |
e08826f8b714
Added makefile-imake-mode.
Masatake YAMATO <jet@gyve.org>
parents:
67835
diff
changeset
|
968 :syntax-table makefile-imake-mode-syntax-table |
e08826f8b714
Added makefile-imake-mode.
Masatake YAMATO <jet@gyve.org>
parents:
67835
diff
changeset
|
969 (let ((base `(makefile-imake-font-lock-keywords ,@(cdr font-lock-defaults))) |
e08826f8b714
Added makefile-imake-mode.
Masatake YAMATO <jet@gyve.org>
parents:
67835
diff
changeset
|
970 new) |
e08826f8b714
Added makefile-imake-mode.
Masatake YAMATO <jet@gyve.org>
parents:
67835
diff
changeset
|
971 ;; Remove `font-lock-syntactic-keywords' entry from font-lock-defaults. |
e08826f8b714
Added makefile-imake-mode.
Masatake YAMATO <jet@gyve.org>
parents:
67835
diff
changeset
|
972 (mapc (lambda (elt) |
e08826f8b714
Added makefile-imake-mode.
Masatake YAMATO <jet@gyve.org>
parents:
67835
diff
changeset
|
973 (unless (and (consp elt) |
e08826f8b714
Added makefile-imake-mode.
Masatake YAMATO <jet@gyve.org>
parents:
67835
diff
changeset
|
974 (eq (car elt) 'font-lock-syntactic-keywords)) |
e08826f8b714
Added makefile-imake-mode.
Masatake YAMATO <jet@gyve.org>
parents:
67835
diff
changeset
|
975 (setq new (cons elt new)))) |
e08826f8b714
Added makefile-imake-mode.
Masatake YAMATO <jet@gyve.org>
parents:
67835
diff
changeset
|
976 base) |
e08826f8b714
Added makefile-imake-mode.
Masatake YAMATO <jet@gyve.org>
parents:
67835
diff
changeset
|
977 (setq font-lock-defaults (nreverse new)))) |
e08826f8b714
Added makefile-imake-mode.
Masatake YAMATO <jet@gyve.org>
parents:
67835
diff
changeset
|
978 |
9454
40340d39257d
(makefile-mode-name): Removed.
Richard M. Stallman <rms@gnu.org>
parents:
7639
diff
changeset
|
979 |
40340d39257d
(makefile-mode-name): Removed.
Richard M. Stallman <rms@gnu.org>
parents:
7639
diff
changeset
|
980 |
40340d39257d
(makefile-mode-name): Removed.
Richard M. Stallman <rms@gnu.org>
parents:
7639
diff
changeset
|
981 ;;; Motion code. |
809 | 982 |
983 (defun makefile-next-dependency () | |
12936 | 984 "Move point to the beginning of the next dependency line." |
809 | 985 (interactive) |
986 (let ((here (point))) | |
987 (end-of-line) | |
62444
24bf25fa47db
(makefile-dependency-skip): New variable.
Daniel Pfeiffer <occitan@esperanto.org>
parents:
62412
diff
changeset
|
988 (if (makefile-match-dependency nil) |
809 | 989 (progn (beginning-of-line) t) ; indicate success |
990 (goto-char here) nil))) | |
9454
40340d39257d
(makefile-mode-name): Removed.
Richard M. Stallman <rms@gnu.org>
parents:
7639
diff
changeset
|
991 |
809 | 992 (defun makefile-previous-dependency () |
12936 | 993 "Move point to the beginning of the previous dependency line." |
809 | 994 (interactive) |
62444
24bf25fa47db
(makefile-dependency-skip): New variable.
Daniel Pfeiffer <occitan@esperanto.org>
parents:
62412
diff
changeset
|
995 (let ((pt (point))) |
809 | 996 (beginning-of-line) |
62444
24bf25fa47db
(makefile-dependency-skip): New variable.
Daniel Pfeiffer <occitan@esperanto.org>
parents:
62412
diff
changeset
|
997 ;; makefile-match-dependency done backwards: |
24bf25fa47db
(makefile-dependency-skip): New variable.
Daniel Pfeiffer <occitan@esperanto.org>
parents:
62412
diff
changeset
|
998 (catch 'found |
62503
c50200e8e7e8
(makefile-add-this-line-targets): Simplify and integrate into `makefile-pickup-targets'.
Daniel Pfeiffer <occitan@esperanto.org>
parents:
62491
diff
changeset
|
999 (while (progn (skip-chars-backward makefile-dependency-skip) |
c50200e8e7e8
(makefile-add-this-line-targets): Simplify and integrate into `makefile-pickup-targets'.
Daniel Pfeiffer <occitan@esperanto.org>
parents:
62491
diff
changeset
|
1000 (not (bobp))) |
62491
2acb3a2dd842
(makefile-previous-dependency, makefile-match-dependency): Check for := (and in bsd mode also !=) to give a better result, even when font-lock is not on.
Daniel Pfeiffer <occitan@esperanto.org>
parents:
62446
diff
changeset
|
1001 (or (prog1 (eq (char-after) ?=) |
2acb3a2dd842
(makefile-previous-dependency, makefile-match-dependency): Check for := (and in bsd mode also !=) to give a better result, even when font-lock is not on.
Daniel Pfeiffer <occitan@esperanto.org>
parents:
62446
diff
changeset
|
1002 (backward-char)) |
2acb3a2dd842
(makefile-previous-dependency, makefile-match-dependency): Check for := (and in bsd mode also !=) to give a better result, even when font-lock is not on.
Daniel Pfeiffer <occitan@esperanto.org>
parents:
62446
diff
changeset
|
1003 (get-text-property (point) 'face) |
62444
24bf25fa47db
(makefile-dependency-skip): New variable.
Daniel Pfeiffer <occitan@esperanto.org>
parents:
62412
diff
changeset
|
1004 (beginning-of-line) |
63444
cc4a71461921
(makefile-space, makefile-makepp-perl): Eliminate "-face" suffix.
Daniel Pfeiffer <occitan@esperanto.org>
parents:
63138
diff
changeset
|
1005 (if (> (point) (+ (point-min) 2)) |
cc4a71461921
(makefile-space, makefile-makepp-perl): Eliminate "-face" suffix.
Daniel Pfeiffer <occitan@esperanto.org>
parents:
63138
diff
changeset
|
1006 (eq (char-before (1- (point))) ?\\)) |
62444
24bf25fa47db
(makefile-dependency-skip): New variable.
Daniel Pfeiffer <occitan@esperanto.org>
parents:
62412
diff
changeset
|
1007 (if (looking-at makefile-dependency-regex) |
24bf25fa47db
(makefile-dependency-skip): New variable.
Daniel Pfeiffer <occitan@esperanto.org>
parents:
62412
diff
changeset
|
1008 (throw 'found t)))) |
24bf25fa47db
(makefile-dependency-skip): New variable.
Daniel Pfeiffer <occitan@esperanto.org>
parents:
62412
diff
changeset
|
1009 (goto-char pt) |
24bf25fa47db
(makefile-dependency-skip): New variable.
Daniel Pfeiffer <occitan@esperanto.org>
parents:
62412
diff
changeset
|
1010 nil))) |
809 | 1011 |
9454
40340d39257d
(makefile-mode-name): Removed.
Richard M. Stallman <rms@gnu.org>
parents:
7639
diff
changeset
|
1012 |
809 | 1013 |
9454
40340d39257d
(makefile-mode-name): Removed.
Richard M. Stallman <rms@gnu.org>
parents:
7639
diff
changeset
|
1014 ;;; 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
|
1015 |
9454
40340d39257d
(makefile-mode-name): Removed.
Richard M. Stallman <rms@gnu.org>
parents:
7639
diff
changeset
|
1016 (defun makefile-electric-dot (arg) |
40340d39257d
(makefile-mode-name): Removed.
Richard M. Stallman <rms@gnu.org>
parents:
7639
diff
changeset
|
1017 "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
|
1018 Only does electric insertion at beginning of line. |
40340d39257d
(makefile-mode-name): Removed.
Richard M. Stallman <rms@gnu.org>
parents:
7639
diff
changeset
|
1019 Anywhere else just self-inserts." |
40340d39257d
(makefile-mode-name): Removed.
Richard M. Stallman <rms@gnu.org>
parents:
7639
diff
changeset
|
1020 (interactive "p") |
809 | 1021 (if (bolp) |
1022 (makefile-insert-special-target) | |
9454
40340d39257d
(makefile-mode-name): Removed.
Richard M. Stallman <rms@gnu.org>
parents:
7639
diff
changeset
|
1023 (self-insert-command arg))) |
809 | 1024 |
1025 (defun makefile-insert-special-target () | |
13995
33b51573611f
(makefile-insert-special-target,
Karl Heuer <kwzh@gnu.org>
parents:
13847
diff
changeset
|
1026 "Prompt for and insert a special target name. |
9454
40340d39257d
(makefile-mode-name): Removed.
Richard M. Stallman <rms@gnu.org>
parents:
7639
diff
changeset
|
1027 Uses `makefile-special-targets' list." |
809 | 1028 (interactive) |
2559
5f2c2994cbca
Rewritten and simplified, commentary added. It now will usually
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
2534
diff
changeset
|
1029 (makefile-pickup-targets) |
9454
40340d39257d
(makefile-mode-name): Removed.
Richard M. Stallman <rms@gnu.org>
parents:
7639
diff
changeset
|
1030 (let ((special-target |
40340d39257d
(makefile-mode-name): Removed.
Richard M. Stallman <rms@gnu.org>
parents:
7639
diff
changeset
|
1031 (completing-read "Special target: " |
40340d39257d
(makefile-mode-name): Removed.
Richard M. Stallman <rms@gnu.org>
parents:
7639
diff
changeset
|
1032 makefile-special-targets-list nil nil nil))) |
809 | 1033 (if (zerop (length special-target)) |
1034 () | |
9454
40340d39257d
(makefile-mode-name): Removed.
Richard M. Stallman <rms@gnu.org>
parents:
7639
diff
changeset
|
1035 (insert "." special-target ":") |
809 | 1036 (makefile-forward-after-target-colon)))) |
1037 | |
9454
40340d39257d
(makefile-mode-name): Removed.
Richard M. Stallman <rms@gnu.org>
parents:
7639
diff
changeset
|
1038 (defun makefile-electric-equal (arg) |
40340d39257d
(makefile-mode-name): Removed.
Richard M. Stallman <rms@gnu.org>
parents:
7639
diff
changeset
|
1039 "Prompt for name of a macro to insert. |
40340d39257d
(makefile-mode-name): Removed.
Richard M. Stallman <rms@gnu.org>
parents:
7639
diff
changeset
|
1040 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
|
1041 Anywhere else just self-inserts." |
40340d39257d
(makefile-mode-name): Removed.
Richard M. Stallman <rms@gnu.org>
parents:
7639
diff
changeset
|
1042 (interactive "p") |
2559
5f2c2994cbca
Rewritten and simplified, commentary added. It now will usually
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
2534
diff
changeset
|
1043 (makefile-pickup-macros) |
809 | 1044 (if (bolp) |
1045 (call-interactively 'makefile-insert-macro) | |
9454
40340d39257d
(makefile-mode-name): Removed.
Richard M. Stallman <rms@gnu.org>
parents:
7639
diff
changeset
|
1046 (self-insert-command arg))) |
809 | 1047 |
1048 (defun makefile-insert-macro (macro-name) | |
1049 "Prepare definition of a new macro." | |
1050 (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
|
1051 (makefile-pickup-macros) |
809 | 1052 (if (not (zerop (length macro-name))) |
1053 (progn | |
1054 (beginning-of-line) | |
9454
40340d39257d
(makefile-mode-name): Removed.
Richard M. Stallman <rms@gnu.org>
parents:
7639
diff
changeset
|
1055 (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
|
1056 (setq makefile-need-macro-pickup t) |
809 | 1057 (makefile-remember-macro macro-name)))) |
1058 | |
1059 (defun makefile-insert-macro-ref (macro-name) | |
12936 | 1060 "Complete on a list of known macros, then insert complete ref at point." |
809 | 1061 (interactive |
1062 (list | |
2559
5f2c2994cbca
Rewritten and simplified, commentary added. It now will usually
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
2534
diff
changeset
|
1063 (progn |
5f2c2994cbca
Rewritten and simplified, commentary added. It now will usually
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
2534
diff
changeset
|
1064 (makefile-pickup-macros) |
5f2c2994cbca
Rewritten and simplified, commentary added. It now will usually
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
2534
diff
changeset
|
1065 (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
|
1066 (makefile-do-macro-insertion macro-name)) |
809 | 1067 |
1068 (defun makefile-insert-target (target-name) | |
1069 "Prepare definition of a new target (dependency line)." | |
1070 (interactive "sTarget: ") | |
1071 (if (not (zerop (length target-name))) | |
1072 (progn | |
1073 (beginning-of-line) | |
9454
40340d39257d
(makefile-mode-name): Removed.
Richard M. Stallman <rms@gnu.org>
parents:
7639
diff
changeset
|
1074 (insert target-name makefile-target-colon) |
809 | 1075 (makefile-forward-after-target-colon) |
1076 (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
|
1077 (setq makefile-need-target-pickup t) |
809 | 1078 (makefile-remember-target target-name)))) |
1079 | |
1080 (defun makefile-insert-target-ref (target-name) | |
26136 | 1081 "Complete on a list of known targets, then insert TARGET-NAME at point." |
809 | 1082 (interactive |
1083 (list | |
5312
aad805608eec
(makefile-ignored-files-in-pickup-regex): Supply missing \\.
Richard M. Stallman <rms@gnu.org>
parents:
3591
diff
changeset
|
1084 (progn |
2559
5f2c2994cbca
Rewritten and simplified, commentary added. It now will usually
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
2534
diff
changeset
|
1085 (makefile-pickup-targets) |
5f2c2994cbca
Rewritten and simplified, commentary added. It now will usually
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
2534
diff
changeset
|
1086 (completing-read "Refer to target: " makefile-target-table nil nil nil)))) |
809 | 1087 (if (not (zerop (length target-name))) |
9454
40340d39257d
(makefile-mode-name): Removed.
Richard M. Stallman <rms@gnu.org>
parents:
7639
diff
changeset
|
1088 (insert target-name " "))) |
809 | 1089 |
9454
40340d39257d
(makefile-mode-name): Removed.
Richard M. Stallman <rms@gnu.org>
parents:
7639
diff
changeset
|
1090 (defun makefile-electric-colon (arg) |
40340d39257d
(makefile-mode-name): Removed.
Richard M. Stallman <rms@gnu.org>
parents:
7639
diff
changeset
|
1091 "Prompt for name of new target. |
40340d39257d
(makefile-mode-name): Removed.
Richard M. Stallman <rms@gnu.org>
parents:
7639
diff
changeset
|
1092 Prompting only happens at beginning of line. |
40340d39257d
(makefile-mode-name): Removed.
Richard M. Stallman <rms@gnu.org>
parents:
7639
diff
changeset
|
1093 Anywhere else just self-inserts." |
40340d39257d
(makefile-mode-name): Removed.
Richard M. Stallman <rms@gnu.org>
parents:
7639
diff
changeset
|
1094 (interactive "p") |
809 | 1095 (if (bolp) |
1096 (call-interactively 'makefile-insert-target) | |
9454
40340d39257d
(makefile-mode-name): Removed.
Richard M. Stallman <rms@gnu.org>
parents:
7639
diff
changeset
|
1097 (self-insert-command arg))) |
40340d39257d
(makefile-mode-name): Removed.
Richard M. Stallman <rms@gnu.org>
parents:
7639
diff
changeset
|
1098 |
40340d39257d
(makefile-mode-name): Removed.
Richard M. Stallman <rms@gnu.org>
parents:
7639
diff
changeset
|
1099 |
809 | 1100 |
1101 ;;; ------------------------------------------------------------ | |
1102 ;;; Extracting targets and macros from an existing makefile | |
1103 ;;; ------------------------------------------------------------ | |
1104 | |
1105 (defun makefile-pickup-targets () | |
9758
b9084912762f
Changed almost every doc string.
Richard M. Stallman <rms@gnu.org>
parents:
9477
diff
changeset
|
1106 "Notice names of all target definitions in Makefile." |
809 | 1107 (interactive) |
62503
c50200e8e7e8
(makefile-add-this-line-targets): Simplify and integrate into `makefile-pickup-targets'.
Daniel Pfeiffer <occitan@esperanto.org>
parents:
62491
diff
changeset
|
1108 (when makefile-need-target-pickup |
c50200e8e7e8
(makefile-add-this-line-targets): Simplify and integrate into `makefile-pickup-targets'.
Daniel Pfeiffer <occitan@esperanto.org>
parents:
62491
diff
changeset
|
1109 (setq makefile-need-target-pickup nil |
c50200e8e7e8
(makefile-add-this-line-targets): Simplify and integrate into `makefile-pickup-targets'.
Daniel Pfeiffer <occitan@esperanto.org>
parents:
62491
diff
changeset
|
1110 makefile-target-table nil |
c50200e8e7e8
(makefile-add-this-line-targets): Simplify and integrate into `makefile-pickup-targets'.
Daniel Pfeiffer <occitan@esperanto.org>
parents:
62491
diff
changeset
|
1111 makefile-has-prereqs nil) |
2559
5f2c2994cbca
Rewritten and simplified, commentary added. It now will usually
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
2534
diff
changeset
|
1112 (save-excursion |
5f2c2994cbca
Rewritten and simplified, commentary added. It now will usually
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
2534
diff
changeset
|
1113 (goto-char (point-min)) |
62412
6ac7ed8e212b
(makefile-dependency-regex): Turn it into a var, and refine it to mask one more level of nested vars.
Daniel Pfeiffer <occitan@esperanto.org>
parents:
62276
diff
changeset
|
1114 (while (makefile-match-dependency nil) |
62503
c50200e8e7e8
(makefile-add-this-line-targets): Simplify and integrate into `makefile-pickup-targets'.
Daniel Pfeiffer <occitan@esperanto.org>
parents:
62491
diff
changeset
|
1115 (goto-char (match-beginning 1)) |
c50200e8e7e8
(makefile-add-this-line-targets): Simplify and integrate into `makefile-pickup-targets'.
Daniel Pfeiffer <occitan@esperanto.org>
parents:
62491
diff
changeset
|
1116 (while (let ((target-name |
c50200e8e7e8
(makefile-add-this-line-targets): Simplify and integrate into `makefile-pickup-targets'.
Daniel Pfeiffer <occitan@esperanto.org>
parents:
62491
diff
changeset
|
1117 (buffer-substring-no-properties (point) |
c50200e8e7e8
(makefile-add-this-line-targets): Simplify and integrate into `makefile-pickup-targets'.
Daniel Pfeiffer <occitan@esperanto.org>
parents:
62491
diff
changeset
|
1118 (progn |
c50200e8e7e8
(makefile-add-this-line-targets): Simplify and integrate into `makefile-pickup-targets'.
Daniel Pfeiffer <occitan@esperanto.org>
parents:
62491
diff
changeset
|
1119 (skip-chars-forward "^ \t:#") |
c50200e8e7e8
(makefile-add-this-line-targets): Simplify and integrate into `makefile-pickup-targets'.
Daniel Pfeiffer <occitan@esperanto.org>
parents:
62491
diff
changeset
|
1120 (point)))) |
2559
5f2c2994cbca
Rewritten and simplified, commentary added. It now will usually
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
2534
diff
changeset
|
1121 (has-prereqs |
5f2c2994cbca
Rewritten and simplified, commentary added. It now will usually
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
2534
diff
changeset
|
1122 (not (looking-at ":[ \t]*$")))) |
62503
c50200e8e7e8
(makefile-add-this-line-targets): Simplify and integrate into `makefile-pickup-targets'.
Daniel Pfeiffer <occitan@esperanto.org>
parents:
62491
diff
changeset
|
1123 (if (makefile-remember-target target-name has-prereqs) |
c50200e8e7e8
(makefile-add-this-line-targets): Simplify and integrate into `makefile-pickup-targets'.
Daniel Pfeiffer <occitan@esperanto.org>
parents:
62491
diff
changeset
|
1124 (message "Picked up target \"%s\" from line %d" |
c50200e8e7e8
(makefile-add-this-line-targets): Simplify and integrate into `makefile-pickup-targets'.
Daniel Pfeiffer <occitan@esperanto.org>
parents:
62491
diff
changeset
|
1125 target-name (line-number-at-pos))) |
c50200e8e7e8
(makefile-add-this-line-targets): Simplify and integrate into `makefile-pickup-targets'.
Daniel Pfeiffer <occitan@esperanto.org>
parents:
62491
diff
changeset
|
1126 (skip-chars-forward " \t") |
c50200e8e7e8
(makefile-add-this-line-targets): Simplify and integrate into `makefile-pickup-targets'.
Daniel Pfeiffer <occitan@esperanto.org>
parents:
62491
diff
changeset
|
1127 (not (or (eolp) (eq (char-after) ?:))))) |
c50200e8e7e8
(makefile-add-this-line-targets): Simplify and integrate into `makefile-pickup-targets'.
Daniel Pfeiffer <occitan@esperanto.org>
parents:
62491
diff
changeset
|
1128 (forward-line))) |
c50200e8e7e8
(makefile-add-this-line-targets): Simplify and integrate into `makefile-pickup-targets'.
Daniel Pfeiffer <occitan@esperanto.org>
parents:
62491
diff
changeset
|
1129 (message "Read targets OK."))) |
809 | 1130 |
1131 (defun makefile-pickup-macros () | |
9758
b9084912762f
Changed almost every doc string.
Richard M. Stallman <rms@gnu.org>
parents:
9477
diff
changeset
|
1132 "Notice names of all macro definitions in Makefile." |
809 | 1133 (interactive) |
62503
c50200e8e7e8
(makefile-add-this-line-targets): Simplify and integrate into `makefile-pickup-targets'.
Daniel Pfeiffer <occitan@esperanto.org>
parents:
62491
diff
changeset
|
1134 (when makefile-need-macro-pickup |
c50200e8e7e8
(makefile-add-this-line-targets): Simplify and integrate into `makefile-pickup-targets'.
Daniel Pfeiffer <occitan@esperanto.org>
parents:
62491
diff
changeset
|
1135 (setq makefile-need-macro-pickup nil |
c50200e8e7e8
(makefile-add-this-line-targets): Simplify and integrate into `makefile-pickup-targets'.
Daniel Pfeiffer <occitan@esperanto.org>
parents:
62491
diff
changeset
|
1136 makefile-macro-table nil) |
2559
5f2c2994cbca
Rewritten and simplified, commentary added. It now will usually
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
2534
diff
changeset
|
1137 (save-excursion |
5f2c2994cbca
Rewritten and simplified, commentary added. It now will usually
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
2534
diff
changeset
|
1138 (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
|
1139 (while (re-search-forward makefile-macroassign-regex nil t) |
62503
c50200e8e7e8
(makefile-add-this-line-targets): Simplify and integrate into `makefile-pickup-targets'.
Daniel Pfeiffer <occitan@esperanto.org>
parents:
62491
diff
changeset
|
1140 (goto-char (match-beginning 1)) |
c50200e8e7e8
(makefile-add-this-line-targets): Simplify and integrate into `makefile-pickup-targets'.
Daniel Pfeiffer <occitan@esperanto.org>
parents:
62491
diff
changeset
|
1141 (let ((macro-name (buffer-substring-no-properties (point) |
c50200e8e7e8
(makefile-add-this-line-targets): Simplify and integrate into `makefile-pickup-targets'.
Daniel Pfeiffer <occitan@esperanto.org>
parents:
62491
diff
changeset
|
1142 (progn |
c50200e8e7e8
(makefile-add-this-line-targets): Simplify and integrate into `makefile-pickup-targets'.
Daniel Pfeiffer <occitan@esperanto.org>
parents:
62491
diff
changeset
|
1143 (skip-chars-forward "^ \t:#=*") |
c50200e8e7e8
(makefile-add-this-line-targets): Simplify and integrate into `makefile-pickup-targets'.
Daniel Pfeiffer <occitan@esperanto.org>
parents:
62491
diff
changeset
|
1144 (point))))) |
c50200e8e7e8
(makefile-add-this-line-targets): Simplify and integrate into `makefile-pickup-targets'.
Daniel Pfeiffer <occitan@esperanto.org>
parents:
62491
diff
changeset
|
1145 (if (makefile-remember-macro macro-name) |
c50200e8e7e8
(makefile-add-this-line-targets): Simplify and integrate into `makefile-pickup-targets'.
Daniel Pfeiffer <occitan@esperanto.org>
parents:
62491
diff
changeset
|
1146 (message "Picked up macro \"%s\" from line %d" |
c50200e8e7e8
(makefile-add-this-line-targets): Simplify and integrate into `makefile-pickup-targets'.
Daniel Pfeiffer <occitan@esperanto.org>
parents:
62491
diff
changeset
|
1147 macro-name (line-number-at-pos)))) |
c50200e8e7e8
(makefile-add-this-line-targets): Simplify and integrate into `makefile-pickup-targets'.
Daniel Pfeiffer <occitan@esperanto.org>
parents:
62491
diff
changeset
|
1148 (forward-line))) |
2559
5f2c2994cbca
Rewritten and simplified, commentary added. It now will usually
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
2534
diff
changeset
|
1149 (message "Read macros OK."))) |
809 | 1150 |
9454
40340d39257d
(makefile-mode-name): Removed.
Richard M. Stallman <rms@gnu.org>
parents:
7639
diff
changeset
|
1151 (defun makefile-pickup-everything (arg) |
9758
b9084912762f
Changed almost every doc string.
Richard M. Stallman <rms@gnu.org>
parents:
9477
diff
changeset
|
1152 "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
|
1153 Prefix arg means force pickups to be redone." |
40340d39257d
(makefile-mode-name): Removed.
Richard M. Stallman <rms@gnu.org>
parents:
7639
diff
changeset
|
1154 (interactive "P") |
40340d39257d
(makefile-mode-name): Removed.
Richard M. Stallman <rms@gnu.org>
parents:
7639
diff
changeset
|
1155 (if arg |
62503
c50200e8e7e8
(makefile-add-this-line-targets): Simplify and integrate into `makefile-pickup-targets'.
Daniel Pfeiffer <occitan@esperanto.org>
parents:
62491
diff
changeset
|
1156 (setq makefile-need-target-pickup t |
c50200e8e7e8
(makefile-add-this-line-targets): Simplify and integrate into `makefile-pickup-targets'.
Daniel Pfeiffer <occitan@esperanto.org>
parents:
62491
diff
changeset
|
1157 makefile-need-macro-pickup t)) |
809 | 1158 (makefile-pickup-macros) |
1159 (makefile-pickup-targets) | |
1160 (if makefile-pickup-everything-picks-up-filenames-p | |
1161 (makefile-pickup-filenames-as-targets))) | |
1162 | |
1163 (defun makefile-pickup-filenames-as-targets () | |
9758
b9084912762f
Changed almost every doc string.
Richard M. Stallman <rms@gnu.org>
parents:
9477
diff
changeset
|
1164 "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
|
1165 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
|
1166 and adds all qualifying names to the list of known targets." |
809 | 1167 (interactive) |
62503
c50200e8e7e8
(makefile-add-this-line-targets): Simplify and integrate into `makefile-pickup-targets'.
Daniel Pfeiffer <occitan@esperanto.org>
parents:
62491
diff
changeset
|
1168 (mapc (lambda (name) |
c50200e8e7e8
(makefile-add-this-line-targets): Simplify and integrate into `makefile-pickup-targets'.
Daniel Pfeiffer <occitan@esperanto.org>
parents:
62491
diff
changeset
|
1169 (or (file-directory-p name) |
c50200e8e7e8
(makefile-add-this-line-targets): Simplify and integrate into `makefile-pickup-targets'.
Daniel Pfeiffer <occitan@esperanto.org>
parents:
62491
diff
changeset
|
1170 (string-match makefile-ignored-files-in-pickup-regex name) |
c50200e8e7e8
(makefile-add-this-line-targets): Simplify and integrate into `makefile-pickup-targets'.
Daniel Pfeiffer <occitan@esperanto.org>
parents:
62491
diff
changeset
|
1171 (if (makefile-remember-target name) |
c50200e8e7e8
(makefile-add-this-line-targets): Simplify and integrate into `makefile-pickup-targets'.
Daniel Pfeiffer <occitan@esperanto.org>
parents:
62491
diff
changeset
|
1172 (message "Picked up file \"%s\" as target" name)))) |
c50200e8e7e8
(makefile-add-this-line-targets): Simplify and integrate into `makefile-pickup-targets'.
Daniel Pfeiffer <occitan@esperanto.org>
parents:
62491
diff
changeset
|
1173 (file-name-all-completions "" (or (file-name-directory (buffer-file-name)) "")))) |
809 | 1174 |
9454
40340d39257d
(makefile-mode-name): Removed.
Richard M. Stallman <rms@gnu.org>
parents:
7639
diff
changeset
|
1175 |
40340d39257d
(makefile-mode-name): Removed.
Richard M. Stallman <rms@gnu.org>
parents:
7639
diff
changeset
|
1176 |
40340d39257d
(makefile-mode-name): Removed.
Richard M. Stallman <rms@gnu.org>
parents:
7639
diff
changeset
|
1177 ;;; Completion. |
40340d39257d
(makefile-mode-name): Removed.
Richard M. Stallman <rms@gnu.org>
parents:
7639
diff
changeset
|
1178 |
40340d39257d
(makefile-mode-name): Removed.
Richard M. Stallman <rms@gnu.org>
parents:
7639
diff
changeset
|
1179 (defun makefile-complete () |
40340d39257d
(makefile-mode-name): Removed.
Richard M. Stallman <rms@gnu.org>
parents:
7639
diff
changeset
|
1180 "Perform completion on Makefile construct preceding point. |
40340d39257d
(makefile-mode-name): Removed.
Richard M. Stallman <rms@gnu.org>
parents:
7639
diff
changeset
|
1181 Can complete variable and target names. |
40340d39257d
(makefile-mode-name): Removed.
Richard M. Stallman <rms@gnu.org>
parents:
7639
diff
changeset
|
1182 The context determines which are considered." |
40340d39257d
(makefile-mode-name): Removed.
Richard M. Stallman <rms@gnu.org>
parents:
7639
diff
changeset
|
1183 (interactive) |
40340d39257d
(makefile-mode-name): Removed.
Richard M. Stallman <rms@gnu.org>
parents:
7639
diff
changeset
|
1184 (let* ((beg (save-excursion |
40340d39257d
(makefile-mode-name): Removed.
Richard M. Stallman <rms@gnu.org>
parents:
7639
diff
changeset
|
1185 (skip-chars-backward "^$(){}:#= \t\n") |
40340d39257d
(makefile-mode-name): Removed.
Richard M. Stallman <rms@gnu.org>
parents:
7639
diff
changeset
|
1186 (point))) |
40340d39257d
(makefile-mode-name): Removed.
Richard M. Stallman <rms@gnu.org>
parents:
7639
diff
changeset
|
1187 (try (buffer-substring beg (point))) |
40340d39257d
(makefile-mode-name): Removed.
Richard M. Stallman <rms@gnu.org>
parents:
7639
diff
changeset
|
1188 (do-macros nil) |
40340d39257d
(makefile-mode-name): Removed.
Richard M. Stallman <rms@gnu.org>
parents:
7639
diff
changeset
|
1189 (paren nil)) |
40340d39257d
(makefile-mode-name): Removed.
Richard M. Stallman <rms@gnu.org>
parents:
7639
diff
changeset
|
1190 |
40340d39257d
(makefile-mode-name): Removed.
Richard M. Stallman <rms@gnu.org>
parents:
7639
diff
changeset
|
1191 (save-excursion |
40340d39257d
(makefile-mode-name): Removed.
Richard M. Stallman <rms@gnu.org>
parents:
7639
diff
changeset
|
1192 (goto-char beg) |
40340d39257d
(makefile-mode-name): Removed.
Richard M. Stallman <rms@gnu.org>
parents:
7639
diff
changeset
|
1193 (let ((pc (preceding-char))) |
40340d39257d
(makefile-mode-name): Removed.
Richard M. Stallman <rms@gnu.org>
parents:
7639
diff
changeset
|
1194 (cond |
40340d39257d
(makefile-mode-name): Removed.
Richard M. Stallman <rms@gnu.org>
parents:
7639
diff
changeset
|
1195 ;; Beginning of line means anything. |
40340d39257d
(makefile-mode-name): Removed.
Richard M. Stallman <rms@gnu.org>
parents:
7639
diff
changeset
|
1196 ((bolp) |
40340d39257d
(makefile-mode-name): Removed.
Richard M. Stallman <rms@gnu.org>
parents:
7639
diff
changeset
|
1197 ()) |
40340d39257d
(makefile-mode-name): Removed.
Richard M. Stallman <rms@gnu.org>
parents:
7639
diff
changeset
|
1198 |
40340d39257d
(makefile-mode-name): Removed.
Richard M. Stallman <rms@gnu.org>
parents:
7639
diff
changeset
|
1199 ;; Preceding "$" means macros only. |
40340d39257d
(makefile-mode-name): Removed.
Richard M. Stallman <rms@gnu.org>
parents:
7639
diff
changeset
|
1200 ((= pc ?$) |
40340d39257d
(makefile-mode-name): Removed.
Richard M. Stallman <rms@gnu.org>
parents:
7639
diff
changeset
|
1201 (setq do-macros t)) |
40340d39257d
(makefile-mode-name): Removed.
Richard M. Stallman <rms@gnu.org>
parents:
7639
diff
changeset
|
1202 |
40340d39257d
(makefile-mode-name): Removed.
Richard M. Stallman <rms@gnu.org>
parents:
7639
diff
changeset
|
1203 ;; Preceding "$(" or "${" means macros only. |
40340d39257d
(makefile-mode-name): Removed.
Richard M. Stallman <rms@gnu.org>
parents:
7639
diff
changeset
|
1204 ((and (or (= pc ?{) |
40340d39257d
(makefile-mode-name): Removed.
Richard M. Stallman <rms@gnu.org>
parents:
7639
diff
changeset
|
1205 (= pc ?\()) |
40340d39257d
(makefile-mode-name): Removed.
Richard M. Stallman <rms@gnu.org>
parents:
7639
diff
changeset
|
1206 (progn |
40340d39257d
(makefile-mode-name): Removed.
Richard M. Stallman <rms@gnu.org>
parents:
7639
diff
changeset
|
1207 (setq paren pc) |
40340d39257d
(makefile-mode-name): Removed.
Richard M. Stallman <rms@gnu.org>
parents:
7639
diff
changeset
|
1208 (backward-char) |
40340d39257d
(makefile-mode-name): Removed.
Richard M. Stallman <rms@gnu.org>
parents:
7639
diff
changeset
|
1209 (and (not (bolp)) |
40340d39257d
(makefile-mode-name): Removed.
Richard M. Stallman <rms@gnu.org>
parents:
7639
diff
changeset
|
1210 (= (preceding-char) ?$)))) |
40340d39257d
(makefile-mode-name): Removed.
Richard M. Stallman <rms@gnu.org>
parents:
7639
diff
changeset
|
1211 (setq do-macros t))))) |
40340d39257d
(makefile-mode-name): Removed.
Richard M. Stallman <rms@gnu.org>
parents:
7639
diff
changeset
|
1212 |
40340d39257d
(makefile-mode-name): Removed.
Richard M. Stallman <rms@gnu.org>
parents:
7639
diff
changeset
|
1213 ;; Try completion. |
40340d39257d
(makefile-mode-name): Removed.
Richard M. Stallman <rms@gnu.org>
parents:
7639
diff
changeset
|
1214 (let* ((table (append (if do-macros |
40340d39257d
(makefile-mode-name): Removed.
Richard M. Stallman <rms@gnu.org>
parents:
7639
diff
changeset
|
1215 '() |
40340d39257d
(makefile-mode-name): Removed.
Richard M. Stallman <rms@gnu.org>
parents:
7639
diff
changeset
|
1216 makefile-target-table) |
40340d39257d
(makefile-mode-name): Removed.
Richard M. Stallman <rms@gnu.org>
parents:
7639
diff
changeset
|
1217 makefile-macro-table)) |
40340d39257d
(makefile-mode-name): Removed.
Richard M. Stallman <rms@gnu.org>
parents:
7639
diff
changeset
|
1218 (completion (try-completion try table))) |
40340d39257d
(makefile-mode-name): Removed.
Richard M. Stallman <rms@gnu.org>
parents:
7639
diff
changeset
|
1219 (cond |
40340d39257d
(makefile-mode-name): Removed.
Richard M. Stallman <rms@gnu.org>
parents:
7639
diff
changeset
|
1220 ;; Exact match, so insert closing paren or colon. |
40340d39257d
(makefile-mode-name): Removed.
Richard M. Stallman <rms@gnu.org>
parents:
7639
diff
changeset
|
1221 ((eq completion t) |
40340d39257d
(makefile-mode-name): Removed.
Richard M. Stallman <rms@gnu.org>
parents:
7639
diff
changeset
|
1222 (insert (if do-macros |
40340d39257d
(makefile-mode-name): Removed.
Richard M. Stallman <rms@gnu.org>
parents:
7639
diff
changeset
|
1223 (if (eq paren ?{) |
40340d39257d
(makefile-mode-name): Removed.
Richard M. Stallman <rms@gnu.org>
parents:
7639
diff
changeset
|
1224 ?} |
40340d39257d
(makefile-mode-name): Removed.
Richard M. Stallman <rms@gnu.org>
parents:
7639
diff
changeset
|
1225 ?\)) |
40340d39257d
(makefile-mode-name): Removed.
Richard M. Stallman <rms@gnu.org>
parents:
7639
diff
changeset
|
1226 (if (save-excursion |
40340d39257d
(makefile-mode-name): Removed.
Richard M. Stallman <rms@gnu.org>
parents:
7639
diff
changeset
|
1227 (goto-char beg) |
40340d39257d
(makefile-mode-name): Removed.
Richard M. Stallman <rms@gnu.org>
parents:
7639
diff
changeset
|
1228 (bolp)) |
40340d39257d
(makefile-mode-name): Removed.
Richard M. Stallman <rms@gnu.org>
parents:
7639
diff
changeset
|
1229 ":" |
40340d39257d
(makefile-mode-name): Removed.
Richard M. Stallman <rms@gnu.org>
parents:
7639
diff
changeset
|
1230 " ")))) |
40340d39257d
(makefile-mode-name): Removed.
Richard M. Stallman <rms@gnu.org>
parents:
7639
diff
changeset
|
1231 |
40340d39257d
(makefile-mode-name): Removed.
Richard M. Stallman <rms@gnu.org>
parents:
7639
diff
changeset
|
1232 ;; No match. |
40340d39257d
(makefile-mode-name): Removed.
Richard M. Stallman <rms@gnu.org>
parents:
7639
diff
changeset
|
1233 ((null completion) |
40340d39257d
(makefile-mode-name): Removed.
Richard M. Stallman <rms@gnu.org>
parents:
7639
diff
changeset
|
1234 (message "Can't find completion for \"%s\"" try) |
40340d39257d
(makefile-mode-name): Removed.
Richard M. Stallman <rms@gnu.org>
parents:
7639
diff
changeset
|
1235 (ding)) |
40340d39257d
(makefile-mode-name): Removed.
Richard M. Stallman <rms@gnu.org>
parents:
7639
diff
changeset
|
1236 |
40340d39257d
(makefile-mode-name): Removed.
Richard M. Stallman <rms@gnu.org>
parents:
7639
diff
changeset
|
1237 ;; Partial completion. |
40340d39257d
(makefile-mode-name): Removed.
Richard M. Stallman <rms@gnu.org>
parents:
7639
diff
changeset
|
1238 ((not (string= try completion)) |
40340d39257d
(makefile-mode-name): Removed.
Richard M. Stallman <rms@gnu.org>
parents:
7639
diff
changeset
|
1239 ;; 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
|
1240 ;; exact, unambiguous match were found. That is not possible |
40340d39257d
(makefile-mode-name): Removed.
Richard M. Stallman <rms@gnu.org>
parents:
7639
diff
changeset
|
1241 ;; right now. Ditto closing ":" for targets. |
40340d39257d
(makefile-mode-name): Removed.
Richard M. Stallman <rms@gnu.org>
parents:
7639
diff
changeset
|
1242 (delete-region beg (point)) |
40340d39257d
(makefile-mode-name): Removed.
Richard M. Stallman <rms@gnu.org>
parents:
7639
diff
changeset
|
1243 |
40340d39257d
(makefile-mode-name): Removed.
Richard M. Stallman <rms@gnu.org>
parents:
7639
diff
changeset
|
1244 ;; 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
|
1245 ;; 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
|
1246 ;; must be done for macros. |
40340d39257d
(makefile-mode-name): Removed.
Richard M. Stallman <rms@gnu.org>
parents:
7639
diff
changeset
|
1247 (if (or do-macros |
40340d39257d
(makefile-mode-name): Removed.
Richard M. Stallman <rms@gnu.org>
parents:
7639
diff
changeset
|
1248 (assoc completion makefile-macro-table)) |
40340d39257d
(makefile-mode-name): Removed.
Richard M. Stallman <rms@gnu.org>
parents:
7639
diff
changeset
|
1249 (let ((makefile-use-curly-braces-for-macros-p |
40340d39257d
(makefile-mode-name): Removed.
Richard M. Stallman <rms@gnu.org>
parents:
7639
diff
changeset
|
1250 (or (eq paren ?{) |
40340d39257d
(makefile-mode-name): Removed.
Richard M. Stallman <rms@gnu.org>
parents:
7639
diff
changeset
|
1251 makefile-use-curly-braces-for-macros-p))) |
40340d39257d
(makefile-mode-name): Removed.
Richard M. Stallman <rms@gnu.org>
parents:
7639
diff
changeset
|
1252 (delete-backward-char 2) |
40340d39257d
(makefile-mode-name): Removed.
Richard M. Stallman <rms@gnu.org>
parents:
7639
diff
changeset
|
1253 (makefile-do-macro-insertion completion) |
40340d39257d
(makefile-mode-name): Removed.
Richard M. Stallman <rms@gnu.org>
parents:
7639
diff
changeset
|
1254 (delete-backward-char 1)) |
40340d39257d
(makefile-mode-name): Removed.
Richard M. Stallman <rms@gnu.org>
parents:
7639
diff
changeset
|
1255 |
40340d39257d
(makefile-mode-name): Removed.
Richard M. Stallman <rms@gnu.org>
parents:
7639
diff
changeset
|
1256 ;; Just insert targets. |
40340d39257d
(makefile-mode-name): Removed.
Richard M. Stallman <rms@gnu.org>
parents:
7639
diff
changeset
|
1257 (insert completion))) |
40340d39257d
(makefile-mode-name): Removed.
Richard M. Stallman <rms@gnu.org>
parents:
7639
diff
changeset
|
1258 |
40340d39257d
(makefile-mode-name): Removed.
Richard M. Stallman <rms@gnu.org>
parents:
7639
diff
changeset
|
1259 ;; 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
|
1260 ;; 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
|
1261 ;; 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
|
1262 ;; that. |
40340d39257d
(makefile-mode-name): Removed.
Richard M. Stallman <rms@gnu.org>
parents:
7639
diff
changeset
|
1263 (t |
40340d39257d
(makefile-mode-name): Removed.
Richard M. Stallman <rms@gnu.org>
parents:
7639
diff
changeset
|
1264 (message "Making completion list...") |
40340d39257d
(makefile-mode-name): Removed.
Richard M. Stallman <rms@gnu.org>
parents:
7639
diff
changeset
|
1265 (let ((list (all-completions try table))) |
40340d39257d
(makefile-mode-name): Removed.
Richard M. Stallman <rms@gnu.org>
parents:
7639
diff
changeset
|
1266 (with-output-to-temp-buffer "*Completions*" |
66114
13abee3a9bc6
* message.el (message-expand-group): Pass the common
Masatake YAMATO <jet@gyve.org>
parents:
65383
diff
changeset
|
1267 (display-completion-list list try))) |
9454
40340d39257d
(makefile-mode-name): Removed.
Richard M. Stallman <rms@gnu.org>
parents:
7639
diff
changeset
|
1268 (message "Making completion list...done")))))) |
40340d39257d
(makefile-mode-name): Removed.
Richard M. Stallman <rms@gnu.org>
parents:
7639
diff
changeset
|
1269 |
40340d39257d
(makefile-mode-name): Removed.
Richard M. Stallman <rms@gnu.org>
parents:
7639
diff
changeset
|
1270 |
40340d39257d
(makefile-mode-name): Removed.
Richard M. Stallman <rms@gnu.org>
parents:
7639
diff
changeset
|
1271 |
9758
b9084912762f
Changed almost every doc string.
Richard M. Stallman <rms@gnu.org>
parents:
9477
diff
changeset
|
1272 ;; Backslashification. Stolen from cc-mode.el. |
b9084912762f
Changed almost every doc string.
Richard M. Stallman <rms@gnu.org>
parents:
9477
diff
changeset
|
1273 |
17240
9e236e540a59
(makefile-backslash-align): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
17142
diff
changeset
|
1274 (defun makefile-backslash-region (from to delete-flag) |
9e236e540a59
(makefile-backslash-align): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
17142
diff
changeset
|
1275 "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
|
1276 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
|
1277 With an argument, deletes the backslashes. |
9758
b9084912762f
Changed almost every doc string.
Richard M. Stallman <rms@gnu.org>
parents:
9477
diff
changeset
|
1278 |
26136 | 1279 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
|
1280 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
|
1281 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
|
1282 definition and conveniently use this command." |
9758
b9084912762f
Changed almost every doc string.
Richard M. Stallman <rms@gnu.org>
parents:
9477
diff
changeset
|
1283 (interactive "r\nP") |
b9084912762f
Changed almost every doc string.
Richard M. Stallman <rms@gnu.org>
parents:
9477
diff
changeset
|
1284 (save-excursion |
17240
9e236e540a59
(makefile-backslash-align): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
17142
diff
changeset
|
1285 (goto-char from) |
9e236e540a59
(makefile-backslash-align): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
17142
diff
changeset
|
1286 (let ((column makefile-backslash-column) |
9e236e540a59
(makefile-backslash-align): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
17142
diff
changeset
|
1287 (endmark (make-marker))) |
9e236e540a59
(makefile-backslash-align): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
17142
diff
changeset
|
1288 (move-marker endmark to) |
9e236e540a59
(makefile-backslash-align): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
17142
diff
changeset
|
1289 ;; 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
|
1290 (if makefile-backslash-align |
9e236e540a59
(makefile-backslash-align): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
17142
diff
changeset
|
1291 (progn |
9e236e540a59
(makefile-backslash-align): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
17142
diff
changeset
|
1292 (if (not delete-flag) |
9e236e540a59
(makefile-backslash-align): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
17142
diff
changeset
|
1293 (while (< (point) to) |
9e236e540a59
(makefile-backslash-align): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
17142
diff
changeset
|
1294 (end-of-line) |
9e236e540a59
(makefile-backslash-align): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
17142
diff
changeset
|
1295 (if (= (preceding-char) ?\\) |
9e236e540a59
(makefile-backslash-align): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
17142
diff
changeset
|
1296 (progn (forward-char -1) |
9e236e540a59
(makefile-backslash-align): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
17142
diff
changeset
|
1297 (skip-chars-backward " \t"))) |
9e236e540a59
(makefile-backslash-align): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
17142
diff
changeset
|
1298 (setq column (max column (1+ (current-column)))) |
9e236e540a59
(makefile-backslash-align): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
17142
diff
changeset
|
1299 (forward-line 1))) |
9e236e540a59
(makefile-backslash-align): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
17142
diff
changeset
|
1300 ;; 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
|
1301 ;; past the margin. |
9e236e540a59
(makefile-backslash-align): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
17142
diff
changeset
|
1302 (if (> (% column tab-width) 0) |
9e236e540a59
(makefile-backslash-align): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
17142
diff
changeset
|
1303 (let ((adjusted (* (/ (+ column tab-width -1) tab-width) |
9e236e540a59
(makefile-backslash-align): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
17142
diff
changeset
|
1304 tab-width))) |
9e236e540a59
(makefile-backslash-align): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
17142
diff
changeset
|
1305 (if (< adjusted (window-width)) |
9e236e540a59
(makefile-backslash-align): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
17142
diff
changeset
|
1306 (setq column adjusted)))))) |
9e236e540a59
(makefile-backslash-align): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
17142
diff
changeset
|
1307 ;; 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
|
1308 (goto-char from) |
9e236e540a59
(makefile-backslash-align): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
17142
diff
changeset
|
1309 (while (and (< (point) endmark) (eolp)) |
9e236e540a59
(makefile-backslash-align): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
17142
diff
changeset
|
1310 (forward-line 1)) |
9e236e540a59
(makefile-backslash-align): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
17142
diff
changeset
|
1311 ;; Add or remove backslashes on all the lines. |
9e236e540a59
(makefile-backslash-align): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
17142
diff
changeset
|
1312 (while (and (< (point) endmark) |
9e236e540a59
(makefile-backslash-align): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
17142
diff
changeset
|
1313 ;; Don't backslashify the last line |
9e236e540a59
(makefile-backslash-align): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
17142
diff
changeset
|
1314 ;; 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
|
1315 (save-excursion |
9e236e540a59
(makefile-backslash-align): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
17142
diff
changeset
|
1316 (forward-line 1) |
9e236e540a59
(makefile-backslash-align): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
17142
diff
changeset
|
1317 (< (point) endmark))) |
9e236e540a59
(makefile-backslash-align): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
17142
diff
changeset
|
1318 (if (not delete-flag) |
9e236e540a59
(makefile-backslash-align): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
17142
diff
changeset
|
1319 (makefile-append-backslash column) |
9e236e540a59
(makefile-backslash-align): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
17142
diff
changeset
|
1320 (makefile-delete-backslash)) |
9e236e540a59
(makefile-backslash-align): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
17142
diff
changeset
|
1321 (forward-line 1)) |
9e236e540a59
(makefile-backslash-align): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
17142
diff
changeset
|
1322 (move-marker endmark nil)))) |
9e236e540a59
(makefile-backslash-align): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
17142
diff
changeset
|
1323 |
9e236e540a59
(makefile-backslash-align): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
17142
diff
changeset
|
1324 (defun makefile-append-backslash (column) |
9e236e540a59
(makefile-backslash-align): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
17142
diff
changeset
|
1325 (end-of-line) |
9e236e540a59
(makefile-backslash-align): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
17142
diff
changeset
|
1326 ;; Note that "\\\\" is needed to get one backslash. |
9e236e540a59
(makefile-backslash-align): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
17142
diff
changeset
|
1327 (if (= (preceding-char) ?\\) |
9e236e540a59
(makefile-backslash-align): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
17142
diff
changeset
|
1328 (progn (forward-char -1) |
9e236e540a59
(makefile-backslash-align): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
17142
diff
changeset
|
1329 (delete-horizontal-space) |
9e236e540a59
(makefile-backslash-align): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
17142
diff
changeset
|
1330 (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
|
1331 (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
|
1332 (insert "\\"))) |
9e236e540a59
(makefile-backslash-align): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
17142
diff
changeset
|
1333 |
9e236e540a59
(makefile-backslash-align): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
17142
diff
changeset
|
1334 (defun makefile-delete-backslash () |
9e236e540a59
(makefile-backslash-align): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
17142
diff
changeset
|
1335 (end-of-line) |
9e236e540a59
(makefile-backslash-align): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
17142
diff
changeset
|
1336 (or (bolp) |
9e236e540a59
(makefile-backslash-align): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
17142
diff
changeset
|
1337 (progn |
9e236e540a59
(makefile-backslash-align): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
17142
diff
changeset
|
1338 (forward-char -1) |
9e236e540a59
(makefile-backslash-align): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
17142
diff
changeset
|
1339 (if (looking-at "\\\\") |
9e236e540a59
(makefile-backslash-align): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
17142
diff
changeset
|
1340 (delete-region (1+ (point)) |
9e236e540a59
(makefile-backslash-align): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
17142
diff
changeset
|
1341 (progn (skip-chars-backward " \t") (point))))))) |
9e236e540a59
(makefile-backslash-align): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
17142
diff
changeset
|
1342 |
9e236e540a59
(makefile-backslash-align): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
17142
diff
changeset
|
1343 |
9e236e540a59
(makefile-backslash-align): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
17142
diff
changeset
|
1344 |
9e236e540a59
(makefile-backslash-align): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
17142
diff
changeset
|
1345 ;; Filling |
9e236e540a59
(makefile-backslash-align): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
17142
diff
changeset
|
1346 |
9e236e540a59
(makefile-backslash-align): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
17142
diff
changeset
|
1347 (defun makefile-fill-paragraph (arg) |
9e236e540a59
(makefile-backslash-align): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
17142
diff
changeset
|
1348 ;; Fill comments, backslashed lines, and variable definitions |
9e236e540a59
(makefile-backslash-align): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
17142
diff
changeset
|
1349 ;; specially. |
9e236e540a59
(makefile-backslash-align): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
17142
diff
changeset
|
1350 (save-excursion |
9e236e540a59
(makefile-backslash-align): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
17142
diff
changeset
|
1351 (beginning-of-line) |
9e236e540a59
(makefile-backslash-align): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
17142
diff
changeset
|
1352 (cond |
80508
5a66e871f1e0
(makefile-fill-paragraph): Treat indented comments like unindented ones.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
79717
diff
changeset
|
1353 ((looking-at "^[ \t]*#+\\s-*") |
71030
6e1192ac395f
(makefile-browser-map, makefile-mode-syntax-table): Move init inside decl.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
70812
diff
changeset
|
1354 ;; Found a comment. Return nil to let normal filling take place. |
6e1192ac395f
(makefile-browser-map, makefile-mode-syntax-table): Move init inside decl.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
70812
diff
changeset
|
1355 nil) |
17240
9e236e540a59
(makefile-backslash-align): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
17142
diff
changeset
|
1356 |
9e236e540a59
(makefile-backslash-align): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
17142
diff
changeset
|
1357 ;; 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
|
1358 ;; assignment. |
47546
2c7b4003c5ad
(makefile-cleanup-continuations-p): Rename to makefile-cleanup-continuations.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
47527
diff
changeset
|
1359 ((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
|
1360 (eq (char-before (line-end-position 0)) ?\\)) |
17240
9e236e540a59
(makefile-backslash-align): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
17142
diff
changeset
|
1361 ;; A backslash region. Find beginning and end, remove |
9e236e540a59
(makefile-backslash-align): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
17142
diff
changeset
|
1362 ;; backslashes, fill, and then reapply backslahes. |
9e236e540a59
(makefile-backslash-align): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
17142
diff
changeset
|
1363 (end-of-line) |
9e236e540a59
(makefile-backslash-align): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
17142
diff
changeset
|
1364 (let ((beginning |
9e236e540a59
(makefile-backslash-align): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
17142
diff
changeset
|
1365 (save-excursion |
9e236e540a59
(makefile-backslash-align): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
17142
diff
changeset
|
1366 (end-of-line 0) |
9e236e540a59
(makefile-backslash-align): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
17142
diff
changeset
|
1367 (while (= (preceding-char) ?\\) |
9e236e540a59
(makefile-backslash-align): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
17142
diff
changeset
|
1368 (end-of-line 0)) |
9e236e540a59
(makefile-backslash-align): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
17142
diff
changeset
|
1369 (forward-char) |
9e236e540a59
(makefile-backslash-align): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
17142
diff
changeset
|
1370 (point))) |
9e236e540a59
(makefile-backslash-align): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
17142
diff
changeset
|
1371 (end |
9e236e540a59
(makefile-backslash-align): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
17142
diff
changeset
|
1372 (save-excursion |
9e236e540a59
(makefile-backslash-align): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
17142
diff
changeset
|
1373 (while (= (preceding-char) ?\\) |
9e236e540a59
(makefile-backslash-align): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
17142
diff
changeset
|
1374 (end-of-line 2)) |
9e236e540a59
(makefile-backslash-align): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
17142
diff
changeset
|
1375 (point)))) |
9e236e540a59
(makefile-backslash-align): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
17142
diff
changeset
|
1376 (save-restriction |
9e236e540a59
(makefile-backslash-align): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
17142
diff
changeset
|
1377 (narrow-to-region beginning end) |
9e236e540a59
(makefile-backslash-align): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
17142
diff
changeset
|
1378 (makefile-backslash-region (point-min) (point-max) t) |
9e236e540a59
(makefile-backslash-align): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
17142
diff
changeset
|
1379 (let ((fill-paragraph-function nil)) |
9e236e540a59
(makefile-backslash-align): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
17142
diff
changeset
|
1380 (fill-paragraph nil)) |
9e236e540a59
(makefile-backslash-align): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
17142
diff
changeset
|
1381 (makefile-backslash-region (point-min) (point-max) nil) |
9e236e540a59
(makefile-backslash-align): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
17142
diff
changeset
|
1382 (goto-char (point-max)) |
9e236e540a59
(makefile-backslash-align): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
17142
diff
changeset
|
1383 (if (< (skip-chars-backward "\n") 0) |
71030
6e1192ac395f
(makefile-browser-map, makefile-mode-syntax-table): Move init inside decl.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
70812
diff
changeset
|
1384 (delete-region (point) (point-max))))) |
6e1192ac395f
(makefile-browser-map, makefile-mode-syntax-table): Move init inside decl.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
70812
diff
changeset
|
1385 ;; Return non-nil to indicate it's been filled. |
6e1192ac395f
(makefile-browser-map, makefile-mode-syntax-table): Move init inside decl.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
70812
diff
changeset
|
1386 t) |
17240
9e236e540a59
(makefile-backslash-align): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
17142
diff
changeset
|
1387 |
9e236e540a59
(makefile-backslash-align): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
17142
diff
changeset
|
1388 ((looking-at makefile-macroassign-regex) |
9e236e540a59
(makefile-backslash-align): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
17142
diff
changeset
|
1389 ;; 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
|
1390 ;; resulting region. |
9758
b9084912762f
Changed almost every doc string.
Richard M. Stallman <rms@gnu.org>
parents:
9477
diff
changeset
|
1391 (save-restriction |
41641
66c7637cbf17
Use line-(end|beginning)-position.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
38600
diff
changeset
|
1392 (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
|
1393 (let ((fill-paragraph-function nil)) |
9e236e540a59
(makefile-backslash-align): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
17142
diff
changeset
|
1394 (fill-paragraph nil)) |
71030
6e1192ac395f
(makefile-browser-map, makefile-mode-syntax-table): Move init inside decl.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
70812
diff
changeset
|
1395 (makefile-backslash-region (point-min) (point-max) nil)) |
6e1192ac395f
(makefile-browser-map, makefile-mode-syntax-table): Move init inside decl.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
70812
diff
changeset
|
1396 ;; Return non-nil to indicate it's been filled. |
6e1192ac395f
(makefile-browser-map, makefile-mode-syntax-table): Move init inside decl.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
70812
diff
changeset
|
1397 t) |
17240
9e236e540a59
(makefile-backslash-align): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
17142
diff
changeset
|
1398 |
71030
6e1192ac395f
(makefile-browser-map, makefile-mode-syntax-table): Move init inside decl.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
70812
diff
changeset
|
1399 (t |
6e1192ac395f
(makefile-browser-map, makefile-mode-syntax-table): Move init inside decl.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
70812
diff
changeset
|
1400 ;; Return non-nil so we don't fill anything else. |
6e1192ac395f
(makefile-browser-map, makefile-mode-syntax-table): Move init inside decl.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
70812
diff
changeset
|
1401 t)))) |
9758
b9084912762f
Changed almost every doc string.
Richard M. Stallman <rms@gnu.org>
parents:
9477
diff
changeset
|
1402 |
b9084912762f
Changed almost every doc string.
Richard M. Stallman <rms@gnu.org>
parents:
9477
diff
changeset
|
1403 |
b9084912762f
Changed almost every doc string.
Richard M. Stallman <rms@gnu.org>
parents:
9477
diff
changeset
|
1404 |
809 | 1405 ;;; ------------------------------------------------------------ |
9454
40340d39257d
(makefile-mode-name): Removed.
Richard M. Stallman <rms@gnu.org>
parents:
7639
diff
changeset
|
1406 ;;; Browser mode. |
809 | 1407 ;;; ------------------------------------------------------------ |
1408 | |
1409 (defun makefile-browser-format-target-line (target selected) | |
1410 (format | |
1411 (concat (make-string makefile-browser-leftmost-column ?\ ) | |
1412 (if selected | |
1413 makefile-browser-selected-mark | |
1414 makefile-browser-unselected-mark) | |
1415 "%s%s") | |
1416 target makefile-target-colon)) | |
1417 | |
1418 (defun makefile-browser-format-macro-line (macro selected) | |
1419 (format | |
1420 (concat (make-string makefile-browser-leftmost-column ?\ ) | |
1421 (if selected | |
1422 makefile-browser-selected-mark | |
1423 makefile-browser-unselected-mark) | |
1424 (makefile-format-macro-ref macro)))) | |
1425 | |
1426 (defun makefile-browser-fill (targets macros) | |
5820
3443820118a0
(makefile-browser-fill, makefile-browser-toggle):
Richard M. Stallman <rms@gnu.org>
parents:
5464
diff
changeset
|
1427 (let ((inhibit-read-only t)) |
3443820118a0
(makefile-browser-fill, makefile-browser-toggle):
Richard M. Stallman <rms@gnu.org>
parents:
5464
diff
changeset
|
1428 (goto-char (point-min)) |
3443820118a0
(makefile-browser-fill, makefile-browser-toggle):
Richard M. Stallman <rms@gnu.org>
parents:
5464
diff
changeset
|
1429 (erase-buffer) |
3443820118a0
(makefile-browser-fill, makefile-browser-toggle):
Richard M. Stallman <rms@gnu.org>
parents:
5464
diff
changeset
|
1430 (mapconcat |
3443820118a0
(makefile-browser-fill, makefile-browser-toggle):
Richard M. Stallman <rms@gnu.org>
parents:
5464
diff
changeset
|
1431 (function |
3443820118a0
(makefile-browser-fill, makefile-browser-toggle):
Richard M. Stallman <rms@gnu.org>
parents:
5464
diff
changeset
|
1432 (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
|
1433 targets |
3443820118a0
(makefile-browser-fill, makefile-browser-toggle):
Richard M. Stallman <rms@gnu.org>
parents:
5464
diff
changeset
|
1434 "") |
3443820118a0
(makefile-browser-fill, makefile-browser-toggle):
Richard M. Stallman <rms@gnu.org>
parents:
5464
diff
changeset
|
1435 (mapconcat |
3443820118a0
(makefile-browser-fill, makefile-browser-toggle):
Richard M. Stallman <rms@gnu.org>
parents:
5464
diff
changeset
|
1436 (function |
3443820118a0
(makefile-browser-fill, makefile-browser-toggle):
Richard M. Stallman <rms@gnu.org>
parents:
5464
diff
changeset
|
1437 (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
|
1438 macros |
3443820118a0
(makefile-browser-fill, makefile-browser-toggle):
Richard M. Stallman <rms@gnu.org>
parents:
5464
diff
changeset
|
1439 "") |
3443820118a0
(makefile-browser-fill, makefile-browser-toggle):
Richard M. Stallman <rms@gnu.org>
parents:
5464
diff
changeset
|
1440 (sort-lines nil (point-min) (point-max)) |
3443820118a0
(makefile-browser-fill, makefile-browser-toggle):
Richard M. Stallman <rms@gnu.org>
parents:
5464
diff
changeset
|
1441 (goto-char (1- (point-max))) |
3443820118a0
(makefile-browser-fill, makefile-browser-toggle):
Richard M. Stallman <rms@gnu.org>
parents:
5464
diff
changeset
|
1442 (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
|
1443 (goto-char (point-min)) |
3443820118a0
(makefile-browser-fill, makefile-browser-toggle):
Richard M. Stallman <rms@gnu.org>
parents:
5464
diff
changeset
|
1444 (forward-char makefile-browser-cursor-column))) |
809 | 1445 |
1446 ;;; | |
1447 ;;; Moving up and down in the browser | |
1448 ;;; | |
1449 | |
1450 (defun makefile-browser-next-line () | |
1451 "Move the browser selection cursor to the next line." | |
1452 (interactive) | |
1453 (if (not (makefile-last-line-p)) | |
1454 (progn | |
1455 (forward-line 1) | |
1456 (forward-char makefile-browser-cursor-column)))) | |
1457 | |
1458 (defun makefile-browser-previous-line () | |
1459 "Move the browser selection cursor to the previous line." | |
1460 (interactive) | |
1461 (if (not (makefile-first-line-p)) | |
1462 (progn | |
1463 (forward-line -1) | |
1464 (forward-char makefile-browser-cursor-column)))) | |
1465 | |
1466 ;;; | |
1467 ;;; Quitting the browser (returns to client buffer) | |
1468 ;;; | |
1469 | |
1470 (defun makefile-browser-quit () | |
9758
b9084912762f
Changed almost every doc string.
Richard M. Stallman <rms@gnu.org>
parents:
9477
diff
changeset
|
1471 "Leave the browser and return to the makefile buffer." |
809 | 1472 (interactive) |
1473 (let ((my-client makefile-browser-client)) | |
1474 (setq makefile-browser-client nil) ; we quitted, so NO client! | |
1475 (set-buffer-modified-p nil) | |
21096
712fd7860b32
(makefile-browser-quit): Use quit-window.
Richard M. Stallman <rms@gnu.org>
parents:
21000
diff
changeset
|
1476 (quit-window t) |
809 | 1477 (pop-to-buffer my-client))) |
1478 | |
1479 ;;; | |
1480 ;;; Toggle state of a browser item | |
1481 ;;; | |
1482 | |
1483 (defun makefile-browser-toggle () | |
1484 "Toggle the selection state of the browser item at the cursor position." | |
1485 (interactive) | |
1486 (let ((this-line (count-lines (point-min) (point)))) | |
1487 (setq this-line (max 1 this-line)) | |
1488 (makefile-browser-toggle-state-for-line this-line) | |
1489 (goto-line this-line) | |
5820
3443820118a0
(makefile-browser-fill, makefile-browser-toggle):
Richard M. Stallman <rms@gnu.org>
parents:
5464
diff
changeset
|
1490 (let ((inhibit-read-only t)) |
3443820118a0
(makefile-browser-fill, makefile-browser-toggle):
Richard M. Stallman <rms@gnu.org>
parents:
5464
diff
changeset
|
1491 (beginning-of-line) |
3443820118a0
(makefile-browser-fill, makefile-browser-toggle):
Richard M. Stallman <rms@gnu.org>
parents:
5464
diff
changeset
|
1492 (if (makefile-browser-on-macro-line-p) |
3443820118a0
(makefile-browser-fill, makefile-browser-toggle):
Richard M. Stallman <rms@gnu.org>
parents:
5464
diff
changeset
|
1493 (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
|
1494 (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
|
1495 (insert |
3443820118a0
(makefile-browser-fill, makefile-browser-toggle):
Richard M. Stallman <rms@gnu.org>
parents:
5464
diff
changeset
|
1496 (makefile-browser-format-macro-line |
3443820118a0
(makefile-browser-fill, makefile-browser-toggle):
Richard M. Stallman <rms@gnu.org>
parents:
5464
diff
changeset
|
1497 macro-name |
3443820118a0
(makefile-browser-fill, makefile-browser-toggle):
Richard M. Stallman <rms@gnu.org>
parents:
5464
diff
changeset
|
1498 (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
|
1499 (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
|
1500 (delete-region (point) (progn (end-of-line) (point))) |
809 | 1501 (insert |
5820
3443820118a0
(makefile-browser-fill, makefile-browser-toggle):
Richard M. Stallman <rms@gnu.org>
parents:
5464
diff
changeset
|
1502 (makefile-browser-format-target-line |
3443820118a0
(makefile-browser-fill, makefile-browser-toggle):
Richard M. Stallman <rms@gnu.org>
parents:
5464
diff
changeset
|
1503 target-name |
3443820118a0
(makefile-browser-fill, makefile-browser-toggle):
Richard M. Stallman <rms@gnu.org>
parents:
5464
diff
changeset
|
1504 (makefile-browser-get-state-for-line this-line)))))) |
809 | 1505 (beginning-of-line) |
1506 (forward-char makefile-browser-cursor-column) | |
1507 (if makefile-browser-auto-advance-after-selection-p | |
1508 (makefile-browser-next-line)))) | |
1509 | |
1510 ;;; | |
1511 ;;; Making insertions into the client buffer | |
1512 ;;; | |
1513 | |
1514 (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
|
1515 "Insert a makefile continuation. |
9758
b9084912762f
Changed almost every doc string.
Richard M. Stallman <rms@gnu.org>
parents:
9477
diff
changeset
|
1516 In the makefile buffer, go to (end-of-line), insert a \'\\\' |
809 | 1517 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
|
1518 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
|
1519 large dependencies from the browser to the client buffer. |
7639 | 1520 \(point) advances accordingly in the client buffer." |
809 | 1521 (interactive) |
41641
66c7637cbf17
Use line-(end|beginning)-position.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
38600
diff
changeset
|
1522 (with-current-buffer makefile-browser-client |
809 | 1523 (end-of-line) |
1524 (insert "\\\n\t"))) | |
1525 | |
1526 (defun makefile-browser-insert-selection () | |
9758
b9084912762f
Changed almost every doc string.
Richard M. Stallman <rms@gnu.org>
parents:
9477
diff
changeset
|
1527 "Insert all selected targets and/or macros in the makefile buffer. |
12936 | 1528 Insertion takes place at point." |
809 | 1529 (interactive) |
1530 (save-excursion | |
1531 (goto-line 1) | |
1532 (let ((current-line 1)) | |
1533 (while (not (eobp)) | |
1534 (if (makefile-browser-get-state-for-line current-line) | |
1535 (makefile-browser-send-this-line-item)) | |
1536 (forward-line 1) | |
1537 (setq current-line (1+ current-line)))))) | |
1538 | |
1539 (defun makefile-browser-insert-selection-and-quit () | |
1540 (interactive) | |
1541 (makefile-browser-insert-selection) | |
1542 (makefile-browser-quit)) | |
1543 | |
1544 (defun makefile-browser-send-this-line-item () | |
1545 (if (makefile-browser-on-macro-line-p) | |
1546 (save-excursion | |
1547 (let ((macro-name (makefile-browser-this-line-macro-name))) | |
1548 (set-buffer makefile-browser-client) | |
1549 (insert (makefile-format-macro-ref macro-name) " "))) | |
1550 (save-excursion | |
1551 (let ((target-name (makefile-browser-this-line-target-name))) | |
1552 (set-buffer makefile-browser-client) | |
1553 (insert target-name " "))))) | |
1554 | |
1555 (defun makefile-browser-start-interaction () | |
1556 (use-local-map makefile-browser-map) | |
1557 (setq buffer-read-only t)) | |
1558 | |
1559 (defun makefile-browse (targets macros) | |
1560 (interactive) | |
1561 (if (zerop (+ (length targets) (length macros))) | |
1562 (progn | |
1563 (beep) | |
1564 (message "No macros or targets to browse! Consider running 'makefile-pickup-everything\'")) | |
1565 (let ((browser-buffer (get-buffer-create makefile-browser-buffer-name))) | |
1566 (pop-to-buffer browser-buffer) | |
1567 (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
|
1568 (shrink-window-if-larger-than-buffer) |
38418
336177767929
(makefile-browse): Use make-local-variable.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
37469
diff
changeset
|
1569 (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
|
1570 (make-vector (+ (length targets) (length macros)) nil)) |
809 | 1571 (makefile-browser-start-interaction)))) |
1572 | |
1573 (defun makefile-switch-to-browser () | |
1574 (interactive) | |
1575 (run-hooks 'makefile-browser-hook) | |
1576 (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
|
1577 (makefile-pickup-targets) |
5f2c2994cbca
Rewritten and simplified, commentary added. It now will usually
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
2534
diff
changeset
|
1578 (makefile-pickup-macros) |
809 | 1579 (makefile-browse makefile-target-table makefile-macro-table)) |
1580 | |
9454
40340d39257d
(makefile-mode-name): Removed.
Richard M. Stallman <rms@gnu.org>
parents:
7639
diff
changeset
|
1581 |
809 | 1582 |
1583 ;;; ------------------------------------------------------------ | |
1584 ;;; Up-to-date overview buffer | |
1585 ;;; ------------------------------------------------------------ | |
1586 | |
1587 (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
|
1588 "Create a buffer containing an overview of the state of all known targets. |
809 | 1589 Known targets are targets that are explicitly defined in that makefile; |
1590 in other words, all targets that appear on the left hand side of a | |
1591 dependency in the makefile." | |
1592 (interactive) | |
1593 (if (y-or-n-p "Are you sure that the makefile being edited is consistent? ") | |
1594 ;; | |
1595 ;; The rest of this function operates on a temporary makefile, created by | |
1596 ;; writing the current contents of the makefile buffer. | |
1597 ;; | |
1598 (let ((saved-target-table makefile-target-table) | |
1599 (this-buffer (current-buffer)) | |
1600 (makefile-up-to-date-buffer | |
1601 (get-buffer-create makefile-up-to-date-buffer-name)) | |
1602 (filename (makefile-save-temporary)) | |
1603 ;; | |
1604 ;; Forget the target table because it may contain picked-up filenames | |
1605 ;; that are not really targets in the current makefile. | |
1606 ;; We don't want to query these, so get a new target-table with just the | |
1607 ;; targets that can be found in the makefile buffer. | |
1608 ;; The 'old' target table will be restored later. | |
1609 ;; | |
1610 (real-targets (progn | |
1611 (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
|
1612 makefile-target-table)) |
5f2c2994cbca
Rewritten and simplified, commentary added. It now will usually
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
2534
diff
changeset
|
1613 (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
|
1614 ) |
809 | 1615 |
1616 (set-buffer makefile-up-to-date-buffer) | |
1617 (setq buffer-read-only nil) | |
1618 (erase-buffer) | |
2559
5f2c2994cbca
Rewritten and simplified, commentary added. It now will usually
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
2534
diff
changeset
|
1619 (makefile-query-targets filename real-targets prereqs) |
809 | 1620 (if (zerop (buffer-size)) ; if it did not get us anything |
1621 (progn | |
1622 (kill-buffer (current-buffer)) | |
1623 (message "No overview created!"))) | |
1624 (set-buffer this-buffer) | |
1625 (setq makefile-target-table saved-target-table) | |
1626 (if (get-buffer makefile-up-to-date-buffer-name) | |
1627 (progn | |
1628 (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
|
1629 (shrink-window-if-larger-than-buffer) |
809 | 1630 (sort-lines nil (point-min) (point-max)) |
1631 (setq buffer-read-only t)))))) | |
1632 | |
1633 (defun makefile-save-temporary () | |
1634 "Create a temporary file from the current makefile buffer." | |
1635 (let ((filename (makefile-generate-temporary-filename))) | |
1636 (write-region (point-min) (point-max) filename nil 0) | |
1637 filename)) ; return the filename | |
1638 | |
1639 (defun makefile-generate-temporary-filename () | |
9758
b9084912762f
Changed almost every doc string.
Richard M. Stallman <rms@gnu.org>
parents:
9477
diff
changeset
|
1640 "Create a filename suitable for use in `makefile-save-temporary'. |
809 | 1641 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
|
1642 with the generated name!" |
809 | 1643 (let ((my-name (user-login-name)) |
1644 (my-uid (int-to-string (user-uid)))) | |
1645 (concat "mktmp" | |
1646 (if (> (length my-name) 3) | |
1647 (substring my-name 0 3) | |
1648 my-name) | |
1649 "." | |
1650 (if (> (length my-uid) 3) | |
1651 (substring my-uid 0 3) | |
1652 my-uid)))) | |
1653 | |
2559
5f2c2994cbca
Rewritten and simplified, commentary added. It now will usually
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
2534
diff
changeset
|
1654 (defun makefile-query-targets (filename target-table prereq-list) |
12936 | 1655 "Fill the up-to-date overview buffer. |
70812
5244bd9a8bac
(makefile-query-one-target-method): Make this the alias for the
Roland Winkler <Roland.Winkler@physik.uni-erlangen.de>
parents:
70810
diff
changeset
|
1656 Checks each target in TARGET-TABLE using |
5244bd9a8bac
(makefile-query-one-target-method): Make this the alias for the
Roland Winkler <Roland.Winkler@physik.uni-erlangen.de>
parents:
70810
diff
changeset
|
1657 `makefile-query-one-target-method-function' |
809 | 1658 and generates the overview, one line per target name." |
1659 (insert | |
2559
5f2c2994cbca
Rewritten and simplified, commentary added. It now will usually
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
2534
diff
changeset
|
1660 (mapconcat |
5f2c2994cbca
Rewritten and simplified, commentary added. It now will usually
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
2534
diff
changeset
|
1661 (function (lambda (item) |
5f2c2994cbca
Rewritten and simplified, commentary added. It now will usually
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
2534
diff
changeset
|
1662 (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
|
1663 (no-prereqs (not (member target-name prereq-list))) |
26136 | 1664 (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
|
1665 (funcall |
70812
5244bd9a8bac
(makefile-query-one-target-method): Make this the alias for the
Roland Winkler <Roland.Winkler@physik.uni-erlangen.de>
parents:
70810
diff
changeset
|
1666 makefile-query-one-target-method-function |
2559
5f2c2994cbca
Rewritten and simplified, commentary added. It now will usually
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
2534
diff
changeset
|
1667 target-name |
5f2c2994cbca
Rewritten and simplified, commentary added. It now will usually
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
2534
diff
changeset
|
1668 filename)))) |
5f2c2994cbca
Rewritten and simplified, commentary added. It now will usually
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
2534
diff
changeset
|
1669 (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
|
1670 target-name |
5f2c2994cbca
Rewritten and simplified, commentary added. It now will usually
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
2534
diff
changeset
|
1671 (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
|
1672 (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
|
1673 (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
|
1674 )) |
5f2c2994cbca
Rewritten and simplified, commentary added. It now will usually
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
2534
diff
changeset
|
1675 target-table "\n")) |
809 | 1676 (goto-char (point-min)) |
1677 (delete-file filename)) ; remove the tmpfile | |
1678 | |
1679 (defun makefile-query-by-make-minus-q (target &optional filename) | |
53477
79093b308520
* progmodes/idlwave.el (idlwave-make-tags):
Eli Zaretskii <eliz@is.elta.co.il>
parents:
53170
diff
changeset
|
1680 (not (eq 0 |
9758
b9084912762f
Changed almost every doc string.
Richard M. Stallman <rms@gnu.org>
parents:
9477
diff
changeset
|
1681 (call-process makefile-brave-make nil nil nil |
b9084912762f
Changed almost every doc string.
Richard M. Stallman <rms@gnu.org>
parents:
9477
diff
changeset
|
1682 "-f" filename "-q" target)))) |
809 | 1683 |
9454
40340d39257d
(makefile-mode-name): Removed.
Richard M. Stallman <rms@gnu.org>
parents:
7639
diff
changeset
|
1684 |
40340d39257d
(makefile-mode-name): Removed.
Richard M. Stallman <rms@gnu.org>
parents:
7639
diff
changeset
|
1685 |
809 | 1686 ;;; ------------------------------------------------------------ |
1687 ;;; Continuation cleanup | |
1688 ;;; ------------------------------------------------------------ | |
1689 | |
1690 (defun makefile-cleanup-continuations () | |
95520
29370595f9cc
(makefile-cleanup-continuations, makefile-warn-suspicious-lines):
John Paul Wallington <jpw@pobox.com>
parents:
94673
diff
changeset
|
1691 (if (derived-mode-p 'makefile-mode) |
47546
2c7b4003c5ad
(makefile-cleanup-continuations-p): Rename to makefile-cleanup-continuations.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
47527
diff
changeset
|
1692 (if (and makefile-cleanup-continuations |
809 | 1693 (not buffer-read-only)) |
1694 (save-excursion | |
1695 (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
|
1696 (while (re-search-forward "\\\\[ \t]+$" nil t) |
809 | 1697 (replace-match "\\" t t)))))) |
1698 | |
6146
1a2a8ef9b4af
(makefile-mode): Set local-write-file-hooks, not write-file-hooks.
Richard M. Stallman <rms@gnu.org>
parents:
5820
diff
changeset
|
1699 |
1a2a8ef9b4af
(makefile-mode): Set local-write-file-hooks, not write-file-hooks.
Richard M. Stallman <rms@gnu.org>
parents:
5820
diff
changeset
|
1700 ;;; ------------------------------------------------------------ |
1a2a8ef9b4af
(makefile-mode): Set local-write-file-hooks, not write-file-hooks.
Richard M. Stallman <rms@gnu.org>
parents:
5820
diff
changeset
|
1701 ;;; 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
|
1702 ;;; ------------------------------------------------------------ |
1a2a8ef9b4af
(makefile-mode): Set local-write-file-hooks, not write-file-hooks.
Richard M. Stallman <rms@gnu.org>
parents:
5820
diff
changeset
|
1703 |
1a2a8ef9b4af
(makefile-mode): Set local-write-file-hooks, not write-file-hooks.
Richard M. Stallman <rms@gnu.org>
parents:
5820
diff
changeset
|
1704 (defun makefile-warn-suspicious-lines () |
28277
18aaefd4bc8f
(makefile-warn-suspicious-lines): clean
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
26621
diff
changeset
|
1705 ;; Returning non-nil cancels the save operation |
95520
29370595f9cc
(makefile-cleanup-continuations, makefile-warn-suspicious-lines):
John Paul Wallington <jpw@pobox.com>
parents:
94673
diff
changeset
|
1706 (if (derived-mode-p 'makefile-mode) |
28277
18aaefd4bc8f
(makefile-warn-suspicious-lines): clean
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
26621
diff
changeset
|
1707 (save-excursion |
18aaefd4bc8f
(makefile-warn-suspicious-lines): clean
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
26621
diff
changeset
|
1708 (goto-char (point-min)) |
18aaefd4bc8f
(makefile-warn-suspicious-lines): clean
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
26621
diff
changeset
|
1709 (if (re-search-forward "^\\(\t+$\\| +\t\\)" nil t) |
18aaefd4bc8f
(makefile-warn-suspicious-lines): clean
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
26621
diff
changeset
|
1710 (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
|
1711 (format "Suspicious line %d. Save anyway? " |
28277
18aaefd4bc8f
(makefile-warn-suspicious-lines): clean
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
26621
diff
changeset
|
1712 (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
|
1713 |
1117d26eaae0
(makefile-cleanup-continuations): Default for variable is nil.
Richard M. Stallman <rms@gnu.org>
parents:
47546
diff
changeset
|
1714 (defun makefile-warn-continuations () |
95520
29370595f9cc
(makefile-cleanup-continuations, makefile-warn-suspicious-lines):
John Paul Wallington <jpw@pobox.com>
parents:
94673
diff
changeset
|
1715 (if (derived-mode-p 'makefile-mode) |
48018
1117d26eaae0
(makefile-cleanup-continuations): Default for variable is nil.
Richard M. Stallman <rms@gnu.org>
parents:
47546
diff
changeset
|
1716 (save-excursion |
1117d26eaae0
(makefile-cleanup-continuations): Default for variable is nil.
Richard M. Stallman <rms@gnu.org>
parents:
47546
diff
changeset
|
1717 (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
|
1718 (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
|
1719 (not (y-or-n-p |
1117d26eaae0
(makefile-cleanup-continuations): Default for variable is nil.
Richard M. Stallman <rms@gnu.org>
parents:
47546
diff
changeset
|
1720 (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
|
1721 (count-lines (point-min) (point))))))))) |
9454
40340d39257d
(makefile-mode-name): Removed.
Richard M. Stallman <rms@gnu.org>
parents:
7639
diff
changeset
|
1722 |
6146
1a2a8ef9b4af
(makefile-mode): Set local-write-file-hooks, not write-file-hooks.
Richard M. Stallman <rms@gnu.org>
parents:
5820
diff
changeset
|
1723 |
809 | 1724 ;;; ------------------------------------------------------------ |
1725 ;;; GNU make function support | |
1726 ;;; ------------------------------------------------------------ | |
1727 | |
1728 (defun makefile-insert-gmake-function () | |
9758
b9084912762f
Changed almost every doc string.
Richard M. Stallman <rms@gnu.org>
parents:
9477
diff
changeset
|
1729 "Insert a GNU make function call. |
b9084912762f
Changed almost every doc string.
Richard M. Stallman <rms@gnu.org>
parents:
9477
diff
changeset
|
1730 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
|
1731 Then prompts for all required parameters." |
809 | 1732 (interactive) |
1733 (let* ((gm-function-name (completing-read | |
1734 "Function: " | |
1735 makefile-gnumake-functions-alist | |
1736 nil t nil)) | |
1737 (gm-function-prompts | |
1738 (cdr (assoc gm-function-name makefile-gnumake-functions-alist)))) | |
1739 (if (not (zerop (length gm-function-name))) | |
1740 (insert (makefile-format-macro-ref | |
1741 (concat gm-function-name " " | |
1742 (makefile-prompt-for-gmake-funargs | |
1743 gm-function-name gm-function-prompts))) | |
1744 " ")))) | |
1745 | |
1746 (defun makefile-prompt-for-gmake-funargs (function-name prompt-list) | |
1747 (mapconcat | |
1748 (function (lambda (one-prompt) | |
9758
b9084912762f
Changed almost every doc string.
Richard M. Stallman <rms@gnu.org>
parents:
9477
diff
changeset
|
1749 (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
|
1750 nil))) |
809 | 1751 prompt-list |
1752 ",")) | |
9758
b9084912762f
Changed almost every doc string.
Richard M. Stallman <rms@gnu.org>
parents:
9477
diff
changeset
|
1753 |
9454
40340d39257d
(makefile-mode-name): Removed.
Richard M. Stallman <rms@gnu.org>
parents:
7639
diff
changeset
|
1754 |
809 | 1755 |
1756 ;;; ------------------------------------------------------------ | |
1757 ;;; Utility functions | |
1758 ;;; ------------------------------------------------------------ | |
1759 | |
62276
c1e4bf9803aa
(makefile-targets-face, makefile-shell-face, makefile-makepp-perl-face): New faces.
Daniel Pfeiffer <occitan@esperanto.org>
parents:
62082
diff
changeset
|
1760 (defun makefile-match-function-end (end) |
c1e4bf9803aa
(makefile-targets-face, makefile-shell-face, makefile-makepp-perl-face): New faces.
Daniel Pfeiffer <occitan@esperanto.org>
parents:
62082
diff
changeset
|
1761 "To be called as an anchored matcher by font-lock. |
c1e4bf9803aa
(makefile-targets-face, makefile-shell-face, makefile-makepp-perl-face): New faces.
Daniel Pfeiffer <occitan@esperanto.org>
parents:
62082
diff
changeset
|
1762 The anchor must have matched the opening parens in the first group." |
c1e4bf9803aa
(makefile-targets-face, makefile-shell-face, makefile-makepp-perl-face): New faces.
Daniel Pfeiffer <occitan@esperanto.org>
parents:
62082
diff
changeset
|
1763 (let ((s (match-string-no-properties 1))) |
98189
5ac5a5adc028
(makefile-match-function-end): Move point. (Bug#983)
Glenn Morris <rgm@gnu.org>
parents:
95520
diff
changeset
|
1764 ;; FIXME forward-sexp or somesuch would be better? |
5ac5a5adc028
(makefile-match-function-end): Move point. (Bug#983)
Glenn Morris <rgm@gnu.org>
parents:
95520
diff
changeset
|
1765 (if (setq s (cond ((string= s "(") ")") |
5ac5a5adc028
(makefile-match-function-end): Move point. (Bug#983)
Glenn Morris <rgm@gnu.org>
parents:
95520
diff
changeset
|
1766 ((string= s "{") "}") |
5ac5a5adc028
(makefile-match-function-end): Move point. (Bug#983)
Glenn Morris <rgm@gnu.org>
parents:
95520
diff
changeset
|
1767 ((string= s "((") "))") |
5ac5a5adc028
(makefile-match-function-end): Move point. (Bug#983)
Glenn Morris <rgm@gnu.org>
parents:
95520
diff
changeset
|
1768 ((string= s "{{") "}}"))) |
5ac5a5adc028
(makefile-match-function-end): Move point. (Bug#983)
Glenn Morris <rgm@gnu.org>
parents:
95520
diff
changeset
|
1769 (re-search-forward (concat "\\(.*\\)[ \t]*" s) (line-end-position) t)))) |
62276
c1e4bf9803aa
(makefile-targets-face, makefile-shell-face, makefile-makepp-perl-face): New faces.
Daniel Pfeiffer <occitan@esperanto.org>
parents:
62082
diff
changeset
|
1770 |
62444
24bf25fa47db
(makefile-dependency-skip): New variable.
Daniel Pfeiffer <occitan@esperanto.org>
parents:
62412
diff
changeset
|
1771 (defun makefile-match-dependency (bound) |
62412
6ac7ed8e212b
(makefile-dependency-regex): Turn it into a var, and refine it to mask one more level of nested vars.
Daniel Pfeiffer <occitan@esperanto.org>
parents:
62276
diff
changeset
|
1772 "Search for `makefile-dependency-regex' up to BOUND. |
6ac7ed8e212b
(makefile-dependency-regex): Turn it into a var, and refine it to mask one more level of nested vars.
Daniel Pfeiffer <occitan@esperanto.org>
parents:
62276
diff
changeset
|
1773 Checks that the colon has not already been fontified, else we |
6ac7ed8e212b
(makefile-dependency-regex): Turn it into a var, and refine it to mask one more level of nested vars.
Daniel Pfeiffer <occitan@esperanto.org>
parents:
62276
diff
changeset
|
1774 matched in a rule action." |
6ac7ed8e212b
(makefile-dependency-regex): Turn it into a var, and refine it to mask one more level of nested vars.
Daniel Pfeiffer <occitan@esperanto.org>
parents:
62276
diff
changeset
|
1775 (catch 'found |
62444
24bf25fa47db
(makefile-dependency-skip): New variable.
Daniel Pfeiffer <occitan@esperanto.org>
parents:
62412
diff
changeset
|
1776 (let ((pt (point))) |
62503
c50200e8e7e8
(makefile-add-this-line-targets): Simplify and integrate into `makefile-pickup-targets'.
Daniel Pfeiffer <occitan@esperanto.org>
parents:
62491
diff
changeset
|
1777 (while (progn (skip-chars-forward makefile-dependency-skip bound) |
62569
f09fbe52c543
(makefile-imenu-generic-expression): Use function to find dependencies, because regexp alone is so complex, it easily goes into an endless loop.
Daniel Pfeiffer <occitan@esperanto.org>
parents:
62525
diff
changeset
|
1778 (< (point) (or bound (point-max)))) |
62444
24bf25fa47db
(makefile-dependency-skip): New variable.
Daniel Pfeiffer <occitan@esperanto.org>
parents:
62412
diff
changeset
|
1779 (forward-char) |
62491
2acb3a2dd842
(makefile-previous-dependency, makefile-match-dependency): Check for := (and in bsd mode also !=) to give a better result, even when font-lock is not on.
Daniel Pfeiffer <occitan@esperanto.org>
parents:
62446
diff
changeset
|
1780 (or (eq (char-after) ?=) |
2acb3a2dd842
(makefile-previous-dependency, makefile-match-dependency): Check for := (and in bsd mode also !=) to give a better result, even when font-lock is not on.
Daniel Pfeiffer <occitan@esperanto.org>
parents:
62446
diff
changeset
|
1781 (get-text-property (1- (point)) 'face) |
63444
cc4a71461921
(makefile-space, makefile-makepp-perl): Eliminate "-face" suffix.
Daniel Pfeiffer <occitan@esperanto.org>
parents:
63138
diff
changeset
|
1782 (if (> (line-beginning-position) (+ (point-min) 2)) |
cc4a71461921
(makefile-space, makefile-makepp-perl): Eliminate "-face" suffix.
Daniel Pfeiffer <occitan@esperanto.org>
parents:
63138
diff
changeset
|
1783 (eq (char-before (line-end-position 0)) ?\\)) |
62444
24bf25fa47db
(makefile-dependency-skip): New variable.
Daniel Pfeiffer <occitan@esperanto.org>
parents:
62412
diff
changeset
|
1784 (when (save-excursion |
24bf25fa47db
(makefile-dependency-skip): New variable.
Daniel Pfeiffer <occitan@esperanto.org>
parents:
62412
diff
changeset
|
1785 (beginning-of-line) |
24bf25fa47db
(makefile-dependency-skip): New variable.
Daniel Pfeiffer <occitan@esperanto.org>
parents:
62412
diff
changeset
|
1786 (looking-at makefile-dependency-regex)) |
63067
7738d9700f66
(makefile-dependency-regex): Handle whitespace
Richard M. Stallman <rms@gnu.org>
parents:
62965
diff
changeset
|
1787 (save-excursion |
7738d9700f66
(makefile-dependency-regex): Handle whitespace
Richard M. Stallman <rms@gnu.org>
parents:
62965
diff
changeset
|
1788 (let ((deps-end (match-end 1)) |
7738d9700f66
(makefile-dependency-regex): Handle whitespace
Richard M. Stallman <rms@gnu.org>
parents:
62965
diff
changeset
|
1789 (match-data (match-data))) |
7738d9700f66
(makefile-dependency-regex): Handle whitespace
Richard M. Stallman <rms@gnu.org>
parents:
62965
diff
changeset
|
1790 (goto-char deps-end) |
7738d9700f66
(makefile-dependency-regex): Handle whitespace
Richard M. Stallman <rms@gnu.org>
parents:
62965
diff
changeset
|
1791 (skip-chars-backward " \t") |
7738d9700f66
(makefile-dependency-regex): Handle whitespace
Richard M. Stallman <rms@gnu.org>
parents:
62965
diff
changeset
|
1792 (setq deps-end (point)) |
7738d9700f66
(makefile-dependency-regex): Handle whitespace
Richard M. Stallman <rms@gnu.org>
parents:
62965
diff
changeset
|
1793 (beginning-of-line) |
7738d9700f66
(makefile-dependency-regex): Handle whitespace
Richard M. Stallman <rms@gnu.org>
parents:
62965
diff
changeset
|
1794 (skip-chars-forward " \t") |
7738d9700f66
(makefile-dependency-regex): Handle whitespace
Richard M. Stallman <rms@gnu.org>
parents:
62965
diff
changeset
|
1795 ;; Alter the bounds recorded for subexp 1, |
7738d9700f66
(makefile-dependency-regex): Handle whitespace
Richard M. Stallman <rms@gnu.org>
parents:
62965
diff
changeset
|
1796 ;; which is what is supposed to match the targets. |
7738d9700f66
(makefile-dependency-regex): Handle whitespace
Richard M. Stallman <rms@gnu.org>
parents:
62965
diff
changeset
|
1797 (setcar (nthcdr 2 match-data) (point)) |
7738d9700f66
(makefile-dependency-regex): Handle whitespace
Richard M. Stallman <rms@gnu.org>
parents:
62965
diff
changeset
|
1798 (setcar (nthcdr 3 match-data) deps-end) |
7738d9700f66
(makefile-dependency-regex): Handle whitespace
Richard M. Stallman <rms@gnu.org>
parents:
62965
diff
changeset
|
1799 (store-match-data match-data))) |
62444
24bf25fa47db
(makefile-dependency-skip): New variable.
Daniel Pfeiffer <occitan@esperanto.org>
parents:
62412
diff
changeset
|
1800 (end-of-line) |
24bf25fa47db
(makefile-dependency-skip): New variable.
Daniel Pfeiffer <occitan@esperanto.org>
parents:
62412
diff
changeset
|
1801 (throw 'found (point))))) |
24bf25fa47db
(makefile-dependency-skip): New variable.
Daniel Pfeiffer <occitan@esperanto.org>
parents:
62412
diff
changeset
|
1802 (goto-char pt)) |
24bf25fa47db
(makefile-dependency-skip): New variable.
Daniel Pfeiffer <occitan@esperanto.org>
parents:
62412
diff
changeset
|
1803 nil)) |
62412
6ac7ed8e212b
(makefile-dependency-regex): Turn it into a var, and refine it to mask one more level of nested vars.
Daniel Pfeiffer <occitan@esperanto.org>
parents:
62276
diff
changeset
|
1804 |
6ac7ed8e212b
(makefile-dependency-regex): Turn it into a var, and refine it to mask one more level of nested vars.
Daniel Pfeiffer <occitan@esperanto.org>
parents:
62276
diff
changeset
|
1805 (defun makefile-match-action (bound) |
6ac7ed8e212b
(makefile-dependency-regex): Turn it into a var, and refine it to mask one more level of nested vars.
Daniel Pfeiffer <occitan@esperanto.org>
parents:
62276
diff
changeset
|
1806 (catch 'found |
6ac7ed8e212b
(makefile-dependency-regex): Turn it into a var, and refine it to mask one more level of nested vars.
Daniel Pfeiffer <occitan@esperanto.org>
parents:
62276
diff
changeset
|
1807 (while (re-search-forward makefile-rule-action-regex bound t) |
6ac7ed8e212b
(makefile-dependency-regex): Turn it into a var, and refine it to mask one more level of nested vars.
Daniel Pfeiffer <occitan@esperanto.org>
parents:
62276
diff
changeset
|
1808 (or (eq ?\\ (char-after (- (match-beginning 0) 2))) |
6ac7ed8e212b
(makefile-dependency-regex): Turn it into a var, and refine it to mask one more level of nested vars.
Daniel Pfeiffer <occitan@esperanto.org>
parents:
62276
diff
changeset
|
1809 (throw 'found t))))) |
6ac7ed8e212b
(makefile-dependency-regex): Turn it into a var, and refine it to mask one more level of nested vars.
Daniel Pfeiffer <occitan@esperanto.org>
parents:
62276
diff
changeset
|
1810 |
9454
40340d39257d
(makefile-mode-name): Removed.
Richard M. Stallman <rms@gnu.org>
parents:
7639
diff
changeset
|
1811 (defun makefile-do-macro-insertion (macro-name) |
40340d39257d
(makefile-mode-name): Removed.
Richard M. Stallman <rms@gnu.org>
parents:
7639
diff
changeset
|
1812 "Insert a macro reference." |
40340d39257d
(makefile-mode-name): Removed.
Richard M. Stallman <rms@gnu.org>
parents:
7639
diff
changeset
|
1813 (if (not (zerop (length macro-name))) |
40340d39257d
(makefile-mode-name): Removed.
Richard M. Stallman <rms@gnu.org>
parents:
7639
diff
changeset
|
1814 (if (assoc macro-name makefile-runtime-macros-list) |
40340d39257d
(makefile-mode-name): Removed.
Richard M. Stallman <rms@gnu.org>
parents:
7639
diff
changeset
|
1815 (insert "$" macro-name) |
40340d39257d
(makefile-mode-name): Removed.
Richard M. Stallman <rms@gnu.org>
parents:
7639
diff
changeset
|
1816 (insert (makefile-format-macro-ref macro-name))))) |
40340d39257d
(makefile-mode-name): Removed.
Richard M. Stallman <rms@gnu.org>
parents:
7639
diff
changeset
|
1817 |
2559
5f2c2994cbca
Rewritten and simplified, commentary added. It now will usually
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
2534
diff
changeset
|
1818 (defun makefile-remember-target (target-name &optional has-prereqs) |
809 | 1819 "Remember a given target if it is not already remembered for this buffer." |
1820 (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
|
1821 (progn |
809 | 1822 (if (not (assoc target-name makefile-target-table)) |
1823 (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
|
1824 (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
|
1825 (if has-prereqs |
5f2c2994cbca
Rewritten and simplified, commentary added. It now will usually
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
2534
diff
changeset
|
1826 (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
|
1827 (cons target-name makefile-has-prereqs)))))) |
809 | 1828 |
1829 (defun makefile-remember-macro (macro-name) | |
1830 "Remember a given macro if it is not already remembered for this buffer." | |
1831 (if (not (zerop (length macro-name))) | |
1832 (if (not (assoc macro-name makefile-macro-table)) | |
1833 (setq makefile-macro-table | |
1834 (cons (list macro-name) makefile-macro-table))))) | |
1835 | |
1836 (defun makefile-forward-after-target-colon () | |
9758
b9084912762f
Changed almost every doc string.
Richard M. Stallman <rms@gnu.org>
parents:
9477
diff
changeset
|
1837 "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
|
1838 This acts according to the value of `makefile-tab-after-target-colon'." |
809 | 1839 (if makefile-tab-after-target-colon |
1840 (insert "\t") | |
1841 (insert " "))) | |
1842 | |
1843 (defun makefile-browser-on-macro-line-p () | |
1844 "Determine if point is on a macro line in the browser." | |
1845 (save-excursion | |
1846 (beginning-of-line) | |
41641
66c7637cbf17
Use line-(end|beginning)-position.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
38600
diff
changeset
|
1847 (re-search-forward "\\$[{(]" (line-end-position) t))) |
809 | 1848 |
1849 (defun makefile-browser-this-line-target-name () | |
1850 "Extract the target name from a line in the browser." | |
1851 (save-excursion | |
1852 (end-of-line) | |
1853 (skip-chars-backward "^ \t") | |
41641
66c7637cbf17
Use line-(end|beginning)-position.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
38600
diff
changeset
|
1854 (buffer-substring (point) (1- (line-end-position))))) |
809 | 1855 |
1856 (defun makefile-browser-this-line-macro-name () | |
1857 "Extract the macro name from a line in the browser." | |
1858 (save-excursion | |
1859 (beginning-of-line) | |
41641
66c7637cbf17
Use line-(end|beginning)-position.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
38600
diff
changeset
|
1860 (re-search-forward "\\$[{(]" (line-end-position) t) |
809 | 1861 (let ((macro-start (point))) |
1862 (skip-chars-forward "^})") | |
1863 (buffer-substring macro-start (point))))) | |
1864 | |
1865 (defun makefile-format-macro-ref (macro-name) | |
9758
b9084912762f
Changed almost every doc string.
Richard M. Stallman <rms@gnu.org>
parents:
9477
diff
changeset
|
1866 "Format a macro reference. |
b9084912762f
Changed almost every doc string.
Richard M. Stallman <rms@gnu.org>
parents:
9477
diff
changeset
|
1867 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
|
1868 (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
|
1869 (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
|
1870 (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
|
1871 (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
|
1872 (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
|
1873 (format "$(%s)" macro-name)))) |
809 | 1874 |
1875 (defun makefile-browser-get-state-for-line (n) | |
1876 (aref makefile-browser-selection-vector (1- n))) | |
1877 | |
1878 (defun makefile-browser-set-state-for-line (n to-state) | |
1879 (aset makefile-browser-selection-vector (1- n) to-state)) | |
1880 | |
1881 (defun makefile-browser-toggle-state-for-line (n) | |
1882 (makefile-browser-set-state-for-line n (not (makefile-browser-get-state-for-line n)))) | |
1883 | |
1884 (defun makefile-last-line-p () | |
41641
66c7637cbf17
Use line-(end|beginning)-position.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
38600
diff
changeset
|
1885 (= (line-end-position) (point-max))) |
809 | 1886 |
1887 (defun makefile-first-line-p () | |
41641
66c7637cbf17
Use line-(end|beginning)-position.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
38600
diff
changeset
|
1888 (= (line-beginning-position) (point-min))) |
809 | 1889 |
9454
40340d39257d
(makefile-mode-name): Removed.
Richard M. Stallman <rms@gnu.org>
parents:
7639
diff
changeset
|
1890 |
40340d39257d
(makefile-mode-name): Removed.
Richard M. Stallman <rms@gnu.org>
parents:
7639
diff
changeset
|
1891 |
24271 | 1892 ;;; Support for other packages, like add-log. |
9454
40340d39257d
(makefile-mode-name): Removed.
Richard M. Stallman <rms@gnu.org>
parents:
7639
diff
changeset
|
1893 |
40340d39257d
(makefile-mode-name): Removed.
Richard M. Stallman <rms@gnu.org>
parents:
7639
diff
changeset
|
1894 (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
|
1895 "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
|
1896 If it isn't in one, return nil." |
9454
40340d39257d
(makefile-mode-name): Removed.
Richard M. Stallman <rms@gnu.org>
parents:
7639
diff
changeset
|
1897 (save-excursion |
13847
36556403b62b
(makefile-add-log-defun): Rewrite to scan back
Richard M. Stallman <rms@gnu.org>
parents:
13804
diff
changeset
|
1898 (let (found) |
36556403b62b
(makefile-add-log-defun): Rewrite to scan back
Richard M. Stallman <rms@gnu.org>
parents:
13804
diff
changeset
|
1899 (beginning-of-line) |
36556403b62b
(makefile-add-log-defun): Rewrite to scan back
Richard M. Stallman <rms@gnu.org>
parents:
13804
diff
changeset
|
1900 ;; 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
|
1901 ;; 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
|
1902 ;; 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
|
1903 (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
|
1904 (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
|
1905 (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
|
1906 (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
|
1907 ;; 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
|
1908 (looking-at "$\\|#") |
2c7b4003c5ad
(makefile-cleanup-continuations-p): Rename to makefile-cleanup-continuations.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
47527
diff
changeset
|
1909 (not (zerop (forward-line -1)))))) |
65383
4dadc0d80d76
(makefile-add-log-defun): Trim the result.
Richard M. Stallman <rms@gnu.org>
parents:
64699
diff
changeset
|
1910 ;; Remove leading and trailing whitespace. |
4dadc0d80d76
(makefile-add-log-defun): Trim the result.
Richard M. Stallman <rms@gnu.org>
parents:
64699
diff
changeset
|
1911 (when found |
4dadc0d80d76
(makefile-add-log-defun): Trim the result.
Richard M. Stallman <rms@gnu.org>
parents:
64699
diff
changeset
|
1912 (setq found (replace-regexp-in-string "[ \t]+\\'" "" found)) |
4dadc0d80d76
(makefile-add-log-defun): Trim the result.
Richard M. Stallman <rms@gnu.org>
parents:
64699
diff
changeset
|
1913 (setq found (replace-regexp-in-string "\\`[ \t]+" "" found))) |
47546
2c7b4003c5ad
(makefile-cleanup-continuations-p): Rename to makefile-cleanup-continuations.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
47527
diff
changeset
|
1914 found))) |
9454
40340d39257d
(makefile-mode-name): Removed.
Richard M. Stallman <rms@gnu.org>
parents:
7639
diff
changeset
|
1915 |
41642
d00b43e2316c
Move `provide' to the end.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
41641
diff
changeset
|
1916 (provide 'make-mode) |
d00b43e2316c
Move `provide' to the end.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
41641
diff
changeset
|
1917 |
71030
6e1192ac395f
(makefile-browser-map, makefile-mode-syntax-table): Move init inside decl.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
70812
diff
changeset
|
1918 ;; arch-tag: bd23545a-de91-44fb-b1b2-feafbb2635a0 |
13402
1f9832fe9e44
(makefile-define-space-face): Don't make face if non-X.
Karl Heuer <kwzh@gnu.org>
parents:
13333
diff
changeset
|
1919 ;;; make-mode.el ends here |