annotate lisp/progmodes/make-mode.el @ 112006:5dbf421ae0b5

Revert bogus 2010-10-24 change to widget-image-find. * lisp/wid-edit.el (widget-image-find): Remove bogus :ascent spec from image spec (Bug#7480).
author Chong Yidong <cyd@stupidchicken.com>
date Tue, 21 Dec 2010 10:36:48 +0800
parents b10051866f51
children 417b1e4d63cd
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
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
8a0066235d56 Initial revision
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
diff changeset
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,
106815
1d1d5d9bd884 Add 2010 to copyright years.
Glenn Morris <rgm@gnu.org>
parents: 106381
diff changeset
4 ;; 2006, 2007, 2008, 2009, 2010 Free Software Foundation, Inc.
841
2cdce064065f entered into RCS
Eric S. Raymond <esr@snark.thyrsus.com>
parents: 811
diff changeset
5
809
8a0066235d56 Initial revision
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
diff changeset
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
852464ce5d6a Comment change.
Richard M. Stallman <rms@gnu.org>
parents: 17240
diff changeset
8 ;; Maintainer: FSF
809
8a0066235d56 Initial revision
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
diff changeset
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
8a0066235d56 Initial revision
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
diff changeset
11
8a0066235d56 Initial revision
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
diff changeset
12 ;; This file is part of GNU Emacs.
8a0066235d56 Initial revision
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
diff changeset
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
8a0066235d56 Initial revision
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
diff changeset
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
8a0066235d56 Initial revision
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
diff changeset
18
8a0066235d56 Initial revision
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
diff changeset
19 ;; GNU Emacs is distributed in the hope that it will be useful,
8a0066235d56 Initial revision
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
diff changeset
20 ;; but WITHOUT ANY WARRANTY; without even the implied warranty of
8a0066235d56 Initial revision
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
diff changeset
21 ;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
8a0066235d56 Initial revision
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
diff changeset
22 ;; GNU General Public License for more details.
8a0066235d56 Initial revision
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
diff changeset
23
8a0066235d56 Initial revision
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
diff changeset
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
8a0066235d56 Initial revision
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
diff changeset
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
8bbd2323fbf2 Fix comments.
Kim F. Storm <storm@cua.dk>
parents: 53477
diff changeset
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
8a0066235d56 Initial revision
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
diff changeset
84 ;;; Code:
8a0066235d56 Initial revision
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
diff changeset
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
a8184f890df4 Some doc fixes.
Gerd Moellmann <gerd@gnu.org>
parents: 28277
diff changeset
88 (require 'imenu)
a8184f890df4 Some doc fixes.
Gerd Moellmann <gerd@gnu.org>
parents: 28277
diff changeset
89 (require 'dabbrev)
a8184f890df4 Some doc fixes.
Gerd Moellmann <gerd@gnu.org>
parents: 28277
diff changeset
90 (require 'add-log))
9454
40340d39257d (makefile-mode-name): Removed.
Richard M. Stallman <rms@gnu.org>
parents: 7639
diff changeset
91
809
8a0066235d56 Initial revision
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
diff changeset
92 ;;; ------------------------------------------------------------
3591
507f64624555 Apply typo patches from Paul Eggert.
Jim Blandy <jimb@redhat.com>
parents: 2671
diff changeset
93 ;;; Configurable stuff
809
8a0066235d56 Initial revision
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
diff changeset
94 ;;; ------------------------------------------------------------
8a0066235d56 Initial revision
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
diff changeset
95
19008
12eb62604fa7 Customized.
Richard M. Stallman <rms@gnu.org>
parents: 17976
diff changeset
96 (defgroup makefile nil
12eb62604fa7 Customized.
Richard M. Stallman <rms@gnu.org>
parents: 17976
diff changeset
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
12eb62604fa7 Customized.
Richard M. Stallman <rms@gnu.org>
parents: 17976
diff changeset
99 :group 'tools
12eb62604fa7 Customized.
Richard M. Stallman <rms@gnu.org>
parents: 17976
diff changeset
100 :prefix "makefile-")
809
8a0066235d56 Initial revision
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
diff changeset
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)
104778
afa0e028ba97 Mark face aliases with "-face" suffix as obsolete.
Glenn Morris <rgm@gnu.org>
parents: 104541
diff changeset
107 (define-obsolete-face-alias 'makefile-space-face 'makefile-space "22.1")
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
12eb62604fa7 Customized.
Richard M. Stallman <rms@gnu.org>
parents: 17976
diff changeset
132 (defcustom makefile-browser-buffer-name "*Macros and Targets*"
28503
a8184f890df4 Some doc fixes.
Gerd Moellmann <gerd@gnu.org>
parents: 28277
diff changeset
133 "*Name of the macro- and target browser buffer."
19008
12eb62604fa7 Customized.
Richard M. Stallman <rms@gnu.org>
parents: 17976
diff changeset
134 :type 'string
12eb62604fa7 Customized.
Richard M. Stallman <rms@gnu.org>
parents: 17976
diff changeset
135 :group 'makefile)
12eb62604fa7 Customized.
Richard M. Stallman <rms@gnu.org>
parents: 17976
diff changeset
136
12eb62604fa7 Customized.
Richard M. Stallman <rms@gnu.org>
parents: 17976
diff changeset
137 (defcustom makefile-target-colon ":"
28503
a8184f890df4 Some doc fixes.
Gerd Moellmann <gerd@gnu.org>
parents: 28277
diff changeset
138 "*String to append to all target names inserted by `makefile-insert-target'.
19008
12eb62604fa7 Customized.
Richard M. Stallman <rms@gnu.org>
parents: 17976
diff changeset
139 \":\" or \"::\" are common values."
12eb62604fa7 Customized.
Richard M. Stallman <rms@gnu.org>
parents: 17976
diff changeset
140 :type 'string
12eb62604fa7 Customized.
Richard M. Stallman <rms@gnu.org>
parents: 17976
diff changeset
141 :group 'makefile)
809
8a0066235d56 Initial revision
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
diff changeset
142
19008
12eb62604fa7 Customized.
Richard M. Stallman <rms@gnu.org>
parents: 17976
diff changeset
143 (defcustom makefile-macro-assign " = "
28503
a8184f890df4 Some doc fixes.
Gerd Moellmann <gerd@gnu.org>
parents: 28277
diff changeset
144 "*String to append to all macro names inserted by `makefile-insert-macro'.
809
8a0066235d56 Initial revision
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
diff changeset
145 The normal value should be \" = \", since this is what
26136
6e87dd221598 Minor doc fixes.
Dave Love <fx@gnu.org>
parents: 24271
diff changeset
146 standard make expects. However, newer makes such as dmake
809
8a0066235d56 Initial revision
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
diff changeset
147 allow a larger variety of different macro assignments, so you
19008
12eb62604fa7 Customized.
Richard M. Stallman <rms@gnu.org>
parents: 17976
diff changeset
148 might prefer to use \" += \" or \" := \" ."
12eb62604fa7 Customized.
Richard M. Stallman <rms@gnu.org>
parents: 17976
diff changeset
149 :type 'string
12eb62604fa7 Customized.
Richard M. Stallman <rms@gnu.org>
parents: 17976
diff changeset
150 :group 'makefile)
9454
40340d39257d (makefile-mode-name): Removed.
Richard M. Stallman <rms@gnu.org>
parents: 7639
diff changeset
151
19008
12eb62604fa7 Customized.
Richard M. Stallman <rms@gnu.org>
parents: 17976
diff changeset
152 (defcustom makefile-electric-keys nil
28503
a8184f890df4 Some doc fixes.
Gerd Moellmann <gerd@gnu.org>
parents: 28277
diff changeset
153 "*If non-nil, Makefile mode should install electric keybindings.
19008
12eb62604fa7 Customized.
Richard M. Stallman <rms@gnu.org>
parents: 17976
diff changeset
154 Default is nil."
12eb62604fa7 Customized.
Richard M. Stallman <rms@gnu.org>
parents: 17976
diff changeset
155 :type 'boolean
12eb62604fa7 Customized.
Richard M. Stallman <rms@gnu.org>
parents: 17976
diff changeset
156 :group 'makefile)
12eb62604fa7 Customized.
Richard M. Stallman <rms@gnu.org>
parents: 17976
diff changeset
157
12eb62604fa7 Customized.
Richard M. Stallman <rms@gnu.org>
parents: 17976
diff changeset
158 (defcustom makefile-use-curly-braces-for-macros-p nil
28503
a8184f890df4 Some doc fixes.
Gerd Moellmann <gerd@gnu.org>
parents: 28277
diff changeset
159 "*Controls the style of generated macro references.
19008
12eb62604fa7 Customized.
Richard M. Stallman <rms@gnu.org>
parents: 17976
diff changeset
160 Non-nil means macro references should use curly braces, like `${this}'.
12eb62604fa7 Customized.
Richard M. Stallman <rms@gnu.org>
parents: 17976
diff changeset
161 nil means use parentheses, like `$(this)'."
12eb62604fa7 Customized.
Richard M. Stallman <rms@gnu.org>
parents: 17976
diff changeset
162 :type 'boolean
12eb62604fa7 Customized.
Richard M. Stallman <rms@gnu.org>
parents: 17976
diff changeset
163 :group 'makefile)
809
8a0066235d56 Initial revision
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
diff changeset
164
19008
12eb62604fa7 Customized.
Richard M. Stallman <rms@gnu.org>
parents: 17976
diff changeset
165 (defcustom makefile-tab-after-target-colon t
28503
a8184f890df4 Some doc fixes.
Gerd Moellmann <gerd@gnu.org>
parents: 28277
diff changeset
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
12eb62604fa7 Customized.
Richard M. Stallman <rms@gnu.org>
parents: 17976
diff changeset
168 The default is t."
12eb62604fa7 Customized.
Richard M. Stallman <rms@gnu.org>
parents: 17976
diff changeset
169 :type 'boolean
12eb62604fa7 Customized.
Richard M. Stallman <rms@gnu.org>
parents: 17976
diff changeset
170 :group 'makefile)
809
8a0066235d56 Initial revision
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
diff changeset
171
19008
12eb62604fa7 Customized.
Richard M. Stallman <rms@gnu.org>
parents: 17976
diff changeset
172 (defcustom makefile-browser-leftmost-column 10
28503
a8184f890df4 Some doc fixes.
Gerd Moellmann <gerd@gnu.org>
parents: 28277
diff changeset
173 "*Number of blanks to the left of the browser selection mark."
19008
12eb62604fa7 Customized.
Richard M. Stallman <rms@gnu.org>
parents: 17976
diff changeset
174 :type 'integer
12eb62604fa7 Customized.
Richard M. Stallman <rms@gnu.org>
parents: 17976
diff changeset
175 :group 'makefile)
809
8a0066235d56 Initial revision
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
diff changeset
176
19008
12eb62604fa7 Customized.
Richard M. Stallman <rms@gnu.org>
parents: 17976
diff changeset
177 (defcustom makefile-browser-cursor-column 10
28503
a8184f890df4 Some doc fixes.
Gerd Moellmann <gerd@gnu.org>
parents: 28277
diff changeset
178 "*Column the cursor goes to when it moves up or down in the Makefile browser."
19008
12eb62604fa7 Customized.
Richard M. Stallman <rms@gnu.org>
parents: 17976
diff changeset
179 :type 'integer
12eb62604fa7 Customized.
Richard M. Stallman <rms@gnu.org>
parents: 17976
diff changeset
180 :group 'makefile)
809
8a0066235d56 Initial revision
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
diff changeset
181
19008
12eb62604fa7 Customized.
Richard M. Stallman <rms@gnu.org>
parents: 17976
diff changeset
182 (defcustom makefile-backslash-column 48
12eb62604fa7 Customized.
Richard M. Stallman <rms@gnu.org>
parents: 17976
diff changeset
183 "*Column in which `makefile-backslash-region' inserts backslashes."
12eb62604fa7 Customized.
Richard M. Stallman <rms@gnu.org>
parents: 17976
diff changeset
184 :type 'integer
12eb62604fa7 Customized.
Richard M. Stallman <rms@gnu.org>
parents: 17976
diff changeset
185 :group 'makefile)
9758
b9084912762f Changed almost every doc string.
Richard M. Stallman <rms@gnu.org>
parents: 9477
diff changeset
186
19008
12eb62604fa7 Customized.
Richard M. Stallman <rms@gnu.org>
parents: 17976
diff changeset
187 (defcustom makefile-backslash-align t
28503
a8184f890df4 Some doc fixes.
Gerd Moellmann <gerd@gnu.org>
parents: 28277
diff changeset
188 "*If non-nil, `makefile-backslash-region' will align backslashes."
19008
12eb62604fa7 Customized.
Richard M. Stallman <rms@gnu.org>
parents: 17976
diff changeset
189 :type 'boolean
12eb62604fa7 Customized.
Richard M. Stallman <rms@gnu.org>
parents: 17976
diff changeset
190 :group 'makefile)
17240
9e236e540a59 (makefile-backslash-align): New variable.
Richard M. Stallman <rms@gnu.org>
parents: 17142
diff changeset
191
19008
12eb62604fa7 Customized.
Richard M. Stallman <rms@gnu.org>
parents: 17976
diff changeset
192 (defcustom makefile-browser-selected-mark "+ "
28503
a8184f890df4 Some doc fixes.
Gerd Moellmann <gerd@gnu.org>
parents: 28277
diff changeset
193 "*String used to mark selected entries in the Makefile browser."
19008
12eb62604fa7 Customized.
Richard M. Stallman <rms@gnu.org>
parents: 17976
diff changeset
194 :type 'string
12eb62604fa7 Customized.
Richard M. Stallman <rms@gnu.org>
parents: 17976
diff changeset
195 :group 'makefile)
809
8a0066235d56 Initial revision
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
diff changeset
196
19008
12eb62604fa7 Customized.
Richard M. Stallman <rms@gnu.org>
parents: 17976
diff changeset
197 (defcustom makefile-browser-unselected-mark " "
28503
a8184f890df4 Some doc fixes.
Gerd Moellmann <gerd@gnu.org>
parents: 28277
diff changeset
198 "*String used to mark unselected entries in the Makefile browser."
19008
12eb62604fa7 Customized.
Richard M. Stallman <rms@gnu.org>
parents: 17976
diff changeset
199 :type 'string
12eb62604fa7 Customized.
Richard M. Stallman <rms@gnu.org>
parents: 17976
diff changeset
200 :group 'makefile)
809
8a0066235d56 Initial revision
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
diff changeset
201
19008
12eb62604fa7 Customized.
Richard M. Stallman <rms@gnu.org>
parents: 17976
diff changeset
202 (defcustom makefile-browser-auto-advance-after-selection-p t
28503
a8184f890df4 Some doc fixes.
Gerd Moellmann <gerd@gnu.org>
parents: 28277
diff changeset
203 "*If non-nil, cursor will move after item is selected in Makefile browser."
19008
12eb62604fa7 Customized.
Richard M. Stallman <rms@gnu.org>
parents: 17976
diff changeset
204 :type 'boolean
12eb62604fa7 Customized.
Richard M. Stallman <rms@gnu.org>
parents: 17976
diff changeset
205 :group 'makefile)
809
8a0066235d56 Initial revision
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
diff changeset
206
19008
12eb62604fa7 Customized.
Richard M. Stallman <rms@gnu.org>
parents: 17976
diff changeset
207 (defcustom makefile-pickup-everything-picks-up-filenames-p nil
28503
a8184f890df4 Some doc fixes.
Gerd Moellmann <gerd@gnu.org>
parents: 28277
diff changeset
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
12eb62604fa7 Customized.
Richard M. Stallman <rms@gnu.org>
parents: 17976
diff changeset
210 Otherwise filenames are omitted."
12eb62604fa7 Customized.
Richard M. Stallman <rms@gnu.org>
parents: 17976
diff changeset
211 :type 'boolean
12eb62604fa7 Customized.
Richard M. Stallman <rms@gnu.org>
parents: 17976
diff changeset
212 :group 'makefile)
809
8a0066235d56 Initial revision
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
diff changeset
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
a8184f890df4 Some doc fixes.
Gerd Moellmann <gerd@gnu.org>
parents: 28277
diff changeset
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
6e87dd221598 Minor doc fixes.
Dave Love <fx@gnu.org>
parents: 24271
diff changeset
218 IMPORTANT: Please note that enabling this option causes Makefile mode
19008
12eb62604fa7 Customized.
Richard M. Stallman <rms@gnu.org>
parents: 17976
diff changeset
219 to MODIFY A FILE WITHOUT YOUR CONFIRMATION when \"it seems necessary\"."
12eb62604fa7 Customized.
Richard M. Stallman <rms@gnu.org>
parents: 17976
diff changeset
220 :type 'boolean
12eb62604fa7 Customized.
Richard M. Stallman <rms@gnu.org>
parents: 17976
diff changeset
221 :group 'makefile)
809
8a0066235d56 Initial revision
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
diff changeset
222
26621
5df1b3f7ed3a (makefile-mode-hook): Customize.
Dave Love <fx@gnu.org>
parents: 26136
diff changeset
223 (defcustom makefile-mode-hook nil
28503
a8184f890df4 Some doc fixes.
Gerd Moellmann <gerd@gnu.org>
parents: 28277
diff changeset
224 "*Normal hook run by `makefile-mode'."
26621
5df1b3f7ed3a (makefile-mode-hook): Customize.
Dave Love <fx@gnu.org>
parents: 26136
diff changeset
225 :type 'hook
5df1b3f7ed3a (makefile-mode-hook): Customize.
Dave Love <fx@gnu.org>
parents: 26136
diff changeset
226 :group 'makefile)
5df1b3f7ed3a (makefile-mode-hook): Customize.
Dave Love <fx@gnu.org>
parents: 26136
diff changeset
227
9758
b9084912762f Changed almost every doc string.
Richard M. Stallman <rms@gnu.org>
parents: 9477
diff changeset
228 (defvar makefile-browser-hook '())
809
8a0066235d56 Initial revision
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
diff changeset
229
8a0066235d56 Initial revision
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
diff changeset
230 ;;
8a0066235d56 Initial revision
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
diff changeset
231 ;; Special targets for DMake, Sun's make ...
49598
0d8b17d428b5 Trailing whitepace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents: 48980
diff changeset
232 ;;
19008
12eb62604fa7 Customized.
Richard M. Stallman <rms@gnu.org>
parents: 17976
diff changeset
233 (defcustom makefile-special-targets-list
106381
752b44ae030c (makefile-special-targets-list): No need for it to be an alist any more.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 104778
diff changeset
234 '("DEFAULT" "DONE" "ERROR" "EXPORT"
752b44ae030c (makefile-special-targets-list): No need for it to be an alist any more.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 104778
diff changeset
235 "FAILED" "GROUPEPILOG" "GROUPPROLOG" "IGNORE"
752b44ae030c (makefile-special-targets-list): No need for it to be an alist any more.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 104778
diff changeset
236 "IMPORT" "INCLUDE" "INCLUDEDIRS" "INIT"
752b44ae030c (makefile-special-targets-list): No need for it to be an alist any more.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 104778
diff changeset
237 "KEEP_STATE" "MAKEFILES" "MAKE_VERSION" "NO_PARALLEL"
752b44ae030c (makefile-special-targets-list): No need for it to be an alist any more.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 104778
diff changeset
238 "PARALLEL" "PHONY" "PRECIOUS" "REMOVE"
752b44ae030c (makefile-special-targets-list): No need for it to be an alist any more.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 104778
diff changeset
239 "SCCS_GET" "SILENT" "SOURCE" "SUFFIXES"
752b44ae030c (makefile-special-targets-list): No need for it to be an alist any more.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 104778
diff changeset
240 "WAIT" "c.o" "C.o" "m.o"
752b44ae030c (makefile-special-targets-list): No need for it to be an alist any more.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 104778
diff changeset
241 "el.elc" "y.c" "s.o")
752b44ae030c (makefile-special-targets-list): No need for it to be an alist any more.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 104778
diff changeset
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
a8184f890df4 Some doc fixes.
Gerd Moellmann <gerd@gnu.org>
parents: 28277
diff changeset
244 you enter a \".\" at the beginning of a line in `makefile-mode'."
19008
12eb62604fa7 Customized.
Richard M. Stallman <rms@gnu.org>
parents: 17976
diff changeset
245 :type '(repeat (list string))
12eb62604fa7 Customized.
Richard M. Stallman <rms@gnu.org>
parents: 17976
diff changeset
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
8a0066235d56 Initial revision
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
diff changeset
248
19008
12eb62604fa7 Customized.
Richard M. Stallman <rms@gnu.org>
parents: 17976
diff changeset
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
a8184f890df4 Some doc fixes.
Gerd Moellmann <gerd@gnu.org>
parents: 28277
diff changeset
251 "*List of macros that are resolved by make at runtime.
26136
6e87dd221598 Minor doc fixes.
Dave Love <fx@gnu.org>
parents: 24271
diff changeset
252 If you insert a macro reference using `makefile-insert-macro-ref', the name
6e87dd221598 Minor doc fixes.
Dave Love <fx@gnu.org>
parents: 24271
diff changeset
253 of the macro is checked against this list. If it can be found its name will
19008
12eb62604fa7 Customized.
Richard M. Stallman <rms@gnu.org>
parents: 17976
diff changeset
254 not be enclosed in { } or ( )."
12eb62604fa7 Customized.
Richard M. Stallman <rms@gnu.org>
parents: 17976
diff changeset
255 :type '(repeat (list string))
12eb62604fa7 Customized.
Richard M. Stallman <rms@gnu.org>
parents: 17976
diff changeset
256 :group 'makefile)
809
8a0066235d56 Initial revision
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
diff changeset
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
bab606b16c3c Comment changes.
Richard M. Stallman <rms@gnu.org>
parents: 24248
diff changeset
259 ;; that if you change this regexp you might have to fix the imenu
bab606b16c3c Comment changes.
Richard M. Stallman <rms@gnu.org>
parents: 24248
diff changeset
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
8a0066235d56 Initial revision
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
diff changeset
264 "Regex used to find dependency lines in a makefile.")
8a0066235d56 Initial revision
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
diff changeset
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
107536
22bf58a96b3a (makefile-rule-action-regex): Backtrack less.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 106815
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
107540
bdfbbc1e8374 Misc cleanup.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 107536
diff changeset
284 (replace-regexp-in-string "-@" "-+@" 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
285 "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
286
62276
c1e4bf9803aa (makefile-targets-face, makefile-shell-face, makefile-makepp-perl-face): New faces.
Daniel Pfeiffer <occitan@esperanto.org>
parents: 62082
diff changeset
287 ;; 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
288 ;; 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
289 ;; makefile-imenu-generic-expression.
809
8a0066235d56 Initial revision
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
diff changeset
290 (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
291 ;; 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
292 ;; (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
293 ;; "^ *\\([^ \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
294 ;; 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
295 "\\(?:^\\|^export\\|^override\\|:\\|: *override\\) *\\([^ \n\t][^:#= \t\n]*\\)[ \t]*\\(?:!=\\|[*:+]?[:?]?=\\)"
809
8a0066235d56 Initial revision
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
diff changeset
296 "Regex used to find macro assignment lines in a makefile.")
8a0066235d56 Initial revision
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
diff changeset
297
62276
c1e4bf9803aa (makefile-targets-face, makefile-shell-face, makefile-makepp-perl-face): New faces.
Daniel Pfeiffer <occitan@esperanto.org>
parents: 62082
diff changeset
298 (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
299 "[^$]\\$[({]\\([-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
300 "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
301
809
8a0066235d56 Initial revision
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
diff changeset
302 (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
303 "\\(^\\..*\\)\\|\\(.*~$\\)\\|\\(.*,v$\\)\\|\\(\\.[chy]\\)"
809
8a0066235d56 Initial revision
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
diff changeset
304 "Regex for filenames that will NOT be included in the target list.")
8a0066235d56 Initial revision
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
diff changeset
305
63444
cc4a71461921 (makefile-space, makefile-makepp-perl): Eliminate "-face" suffix.
Daniel Pfeiffer <occitan@esperanto.org>
parents: 63138
diff changeset
306 (defvar makefile-space 'makefile-space
12912
e519963ce31a (makefile-space-face): New variable.
Richard M. Stallman <rms@gnu.org>
parents: 12373
diff changeset
307 "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
308
62276
c1e4bf9803aa (makefile-targets-face, makefile-shell-face, makefile-makepp-perl-face): New faces.
Daniel Pfeiffer <occitan@esperanto.org>
parents: 62082
diff changeset
309 ;; 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
310 ;; 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
311 (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
312 "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
313
c1e4bf9803aa (makefile-targets-face, makefile-shell-face, makefile-makepp-perl-face): New faces.
Daniel Pfeiffer <occitan@esperanto.org>
parents: 62082
diff changeset
314 (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
315 `("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
316 "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
317
c1e4bf9803aa (makefile-targets-face, makefile-shell-face, makefile-makepp-perl-face): New faces.
Daniel Pfeiffer <occitan@esperanto.org>
parents: 62082
diff changeset
318 (defconst makefile-gmake-statements
71559
e0adef75745f (makefile-macroassign-regex): Accept preceding keyword.
Daniel Pfeiffer <occitan@esperanto.org>
parents: 71293
diff changeset
319 `("-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
320 "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
321 "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
322 ,@(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
323 "List of keywords understood by gmake.")
28503
a8184f890df4 Some doc fixes.
Gerd Moellmann <gerd@gnu.org>
parents: 28277
diff changeset
324
62276
c1e4bf9803aa (makefile-targets-face, makefile-shell-face, makefile-makepp-perl-face): New faces.
Daniel Pfeiffer <occitan@esperanto.org>
parents: 62082
diff changeset
325 ;; 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
326 (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
327 `("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
328 "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
329 "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
330 "else ifmakeperl" "else ifsys" "else ifnsys" "enddef" "global"
e0adef75745f (makefile-macroassign-regex): Accept preceding keyword.
Daniel Pfeiffer <occitan@esperanto.org>
parents: 71293
diff changeset
331 "load_makefile" "ifperl" "ifmakeperl" "ifsys" "ifnsys" "_include"
e0adef75745f (makefile-macroassign-regex): Accept preceding keyword.
Daniel Pfeiffer <occitan@esperanto.org>
parents: 71293
diff changeset
332 "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
333 "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
334 "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
335 "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
336 "register_scanner" "repository" "runtime" "signature" "sub"
71559
e0adef75745f (makefile-macroassign-regex): Accept preceding keyword.
Daniel Pfeiffer <occitan@esperanto.org>
parents: 71293
diff changeset
337 ,@(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
338 "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
339
c1e4bf9803aa (makefile-targets-face, makefile-shell-face, makefile-makepp-perl-face): New faces.
Daniel Pfeiffer <occitan@esperanto.org>
parents: 62082
diff changeset
340 (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
341 `(".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
342 ".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
343 "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
344
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
345 (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
346 &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
347 &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
348 `(;; 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
349 (,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
350 (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
351 ;; This is for after !=
63444
cc4a71461921 (makefile-space, makefile-makepp-perl): Eliminate "-face" suffix.
Daniel Pfeiffer <occitan@esperanto.org>
parents: 63138
diff changeset
352 (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
353 ;; 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
354 (3 'font-lock-string-face prepend t))
28503
a8184f890df4 Some doc fixes.
Gerd Moellmann <gerd@gnu.org>
parents: 28277
diff changeset
355
62276
c1e4bf9803aa (makefile-targets-face, makefile-shell-face, makefile-makepp-perl-face): New faces.
Daniel Pfeiffer <occitan@esperanto.org>
parents: 62082
diff changeset
356 ;; Rule actions.
107536
22bf58a96b3a (makefile-rule-action-regex): Backtrack less.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 106815
diff changeset
357 ;; FIXME: When this spans multiple lines we need font-lock-multiline.
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
107536
22bf58a96b3a (makefile-rule-action-regex): Backtrack less.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 106815
diff changeset
359 (1 font-lock-type-face nil t)
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
a8184f890df4 Some doc fixes.
Gerd Moellmann <gerd@gnu.org>
parents: 28277
diff changeset
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
1548eeb34926 Doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 12912
diff changeset
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
110305
b10051866f51 New syntax-propertize functionality.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 109954
diff changeset
508 (defconst makefile-syntax-propertize-function
b10051866f51 New syntax-propertize functionality.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 109954
diff changeset
509 (syntax-propertize-rules
b10051866f51 New syntax-propertize functionality.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 109954
diff changeset
510 ;; From sh-script.el.
b10051866f51 New syntax-propertize functionality.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 109954
diff changeset
511 ;; A `#' begins a comment in sh when it is unquoted and at the beginning
b10051866f51 New syntax-propertize functionality.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 109954
diff changeset
512 ;; of a word. In the shell, words are separated by metacharacters.
b10051866f51 New syntax-propertize functionality.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 109954
diff changeset
513 ;; The list of special chars is taken from the single-unix spec of the
b10051866f51 New syntax-propertize functionality.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 109954
diff changeset
514 ;; shell command language (under `quoting') but with `$' removed.
b10051866f51 New syntax-propertize functionality.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 109954
diff changeset
515 ("[^|&;<>()`\\\"' \t\n]\\(#+\\)" (1 "_"))
b10051866f51 New syntax-propertize functionality.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 109954
diff changeset
516 ;; Change the syntax of a quoted newline so that it does not end a comment.
b10051866f51 New syntax-propertize functionality.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 109954
diff changeset
517 ("\\\\\n" (0 "."))))
50205
63bfe3825510 (makefile-font-lock-syntactic-keywords): New variable.
Juanma Barranquero <lekktu@gmail.com>
parents: 49970
diff changeset
518
24248
fd94cf07b4cc (makefile-imenu-generic-expression): New var.
Richard M. Stallman <rms@gnu.org>
parents: 22837
diff changeset
519 (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
520 `(("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
521 ("Macro Assignment" ,makefile-macroassign-regex 1))
26136
6e87dd221598 Minor doc fixes.
Dave Love <fx@gnu.org>
parents: 24271
diff changeset
522 "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
523
107540
bdfbbc1e8374 Misc cleanup.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 107536
diff changeset
524 ;; ------------------------------------------------------------
bdfbbc1e8374 Misc cleanup.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 107536
diff changeset
525 ;; The following configurable variables are used in the
bdfbbc1e8374 Misc cleanup.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 107536
diff changeset
526 ;; up-to-date overview .
bdfbbc1e8374 Misc cleanup.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 107536
diff changeset
527 ;; The standard configuration assumes that your `make' program
bdfbbc1e8374 Misc cleanup.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 107536
diff changeset
528 ;; can be run in question/query mode using the `-q' option, this
bdfbbc1e8374 Misc cleanup.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 107536
diff changeset
529 ;; means that the command
bdfbbc1e8374 Misc cleanup.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 107536
diff changeset
530 ;;
bdfbbc1e8374 Misc cleanup.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 107536
diff changeset
531 ;; make -q foo
bdfbbc1e8374 Misc cleanup.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 107536
diff changeset
532 ;;
bdfbbc1e8374 Misc cleanup.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 107536
diff changeset
533 ;; should return an exit status of zero if the target `foo' is
bdfbbc1e8374 Misc cleanup.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 107536
diff changeset
534 ;; up to date and a nonzero exit status otherwise.
bdfbbc1e8374 Misc cleanup.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 107536
diff changeset
535 ;; Many makes can do this although the docs/manpages do not mention
bdfbbc1e8374 Misc cleanup.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 107536
diff changeset
536 ;; it. Try it with your favourite one. GNU make, System V make, and
bdfbbc1e8374 Misc cleanup.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 107536
diff changeset
537 ;; Dennis Vadura's DMake have no problems.
bdfbbc1e8374 Misc cleanup.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 107536
diff changeset
538 ;; Set the variable `makefile-brave-make' to the name of the
bdfbbc1e8374 Misc cleanup.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 107536
diff changeset
539 ;; make utility that does this on your system.
bdfbbc1e8374 Misc cleanup.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 107536
diff changeset
540 ;; To understand what this is all about see the function definition
bdfbbc1e8374 Misc cleanup.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 107536
diff changeset
541 ;; of `makefile-query-by-make-minus-q' .
bdfbbc1e8374 Misc cleanup.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 107536
diff changeset
542 ;; ------------------------------------------------------------
809
8a0066235d56 Initial revision
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
diff changeset
543
19008
12eb62604fa7 Customized.
Richard M. Stallman <rms@gnu.org>
parents: 17976
diff changeset
544 (defcustom makefile-brave-make "make"
28503
a8184f890df4 Some doc fixes.
Gerd Moellmann <gerd@gnu.org>
parents: 28277
diff changeset
545 "*How to invoke make, for `makefile-query-targets'.
19008
12eb62604fa7 Customized.
Richard M. Stallman <rms@gnu.org>
parents: 17976
diff changeset
546 This should identify a `make' command that can handle the `-q' option."
12eb62604fa7 Customized.
Richard M. Stallman <rms@gnu.org>
parents: 17976
diff changeset
547 :type 'string
12eb62604fa7 Customized.
Richard M. Stallman <rms@gnu.org>
parents: 17976
diff changeset
548 :group 'makefile)
809
8a0066235d56 Initial revision
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
diff changeset
549
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
550 (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
551 'makefile-query-by-make-minus-q
28503
a8184f890df4 Some doc fixes.
Gerd Moellmann <gerd@gnu.org>
parents: 28277
diff changeset
552 "*Function to call to determine whether a make target is up to date.
12936
1548eeb34926 Doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 12912
diff changeset
553 The function must satisfy this calling convention:
809
8a0066235d56 Initial revision
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
diff changeset
554
8a0066235d56 Initial revision
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
diff changeset
555 * As its first argument, it must accept the name of the target to
8a0066235d56 Initial revision
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
diff changeset
556 be checked, as a string.
8a0066235d56 Initial revision
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
diff changeset
557
8a0066235d56 Initial revision
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
diff changeset
558 * As its second argument, it may accept the name of a makefile
26136
6e87dd221598 Minor doc fixes.
Dave Love <fx@gnu.org>
parents: 24271
diff changeset
559 as a string. Depending on what you're going to do you may
809
8a0066235d56 Initial revision
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
diff changeset
560 not need this.
8a0066235d56 Initial revision
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
diff changeset
561
8a0066235d56 Initial revision
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
diff changeset
562 * It must return the integer value 0 (zero) if the given target
8a0066235d56 Initial revision
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
diff changeset
563 should be considered up-to-date in the context of the given
19008
12eb62604fa7 Customized.
Richard M. Stallman <rms@gnu.org>
parents: 17976
diff changeset
564 makefile, any nonzero integer value otherwise."
12eb62604fa7 Customized.
Richard M. Stallman <rms@gnu.org>
parents: 17976
diff changeset
565 :type 'function
12eb62604fa7 Customized.
Richard M. Stallman <rms@gnu.org>
parents: 17976
diff changeset
566 :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
567 (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
568 'makefile-query-one-target-method-function)
809
8a0066235d56 Initial revision
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
diff changeset
569
19008
12eb62604fa7 Customized.
Richard M. Stallman <rms@gnu.org>
parents: 17976
diff changeset
570 (defcustom makefile-up-to-date-buffer-name "*Makefile Up-to-date overview*"
28503
a8184f890df4 Some doc fixes.
Gerd Moellmann <gerd@gnu.org>
parents: 28277
diff changeset
571 "*Name of the Up-to-date overview buffer."
19008
12eb62604fa7 Customized.
Richard M. Stallman <rms@gnu.org>
parents: 17976
diff changeset
572 :type 'string
12eb62604fa7 Customized.
Richard M. Stallman <rms@gnu.org>
parents: 17976
diff changeset
573 :group 'makefile)
809
8a0066235d56 Initial revision
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
diff changeset
574
8a0066235d56 Initial revision
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
diff changeset
575 ;;; --- end of up-to-date-overview configuration ------------------
8a0066235d56 Initial revision
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
diff changeset
576
107540
bdfbbc1e8374 Misc cleanup.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 107536
diff changeset
577 (define-abbrev-table 'makefile-mode-abbrev-table ()
28503
a8184f890df4 Some doc fixes.
Gerd Moellmann <gerd@gnu.org>
parents: 28277
diff changeset
578 "Abbrev table in use in Makefile buffers.")
a8184f890df4 Some doc fixes.
Gerd Moellmann <gerd@gnu.org>
parents: 28277
diff changeset
579
62276
c1e4bf9803aa (makefile-targets-face, makefile-shell-face, makefile-makepp-perl-face): New faces.
Daniel Pfeiffer <occitan@esperanto.org>
parents: 62082
diff changeset
580 (defvar makefile-mode-map
92703
0905c6be13b6 (makefile-mode-abbrev-table): Add menu
Dan Nicolaescu <dann@ics.uci.edu>
parents: 79717
diff changeset
581 (let ((map (make-sparse-keymap))
0905c6be13b6 (makefile-mode-abbrev-table): Add menu
Dan Nicolaescu <dann@ics.uci.edu>
parents: 79717
diff changeset
582 (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
583 ;; 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
584 (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
585 (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
586 (progn
c1e4bf9803aa (makefile-targets-face, makefile-shell-face, makefile-makepp-perl-face): New faces.
Daniel Pfeiffer <occitan@esperanto.org>
parents: 62082
diff changeset
587 (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
588 (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
589 (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
590 (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
591 (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
592 (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
593 (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
594 (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
595 (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
596 (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
597 (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
598 (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
599 (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
600 (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
601 (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
602 (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
603 (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
604 (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
605 (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
606 (define-key map "\e\t" 'makefile-complete)
12936
1548eeb34926 Doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 12912
diff changeset
607
62276
c1e4bf9803aa (makefile-targets-face, makefile-shell-face, makefile-makepp-perl-face): New faces.
Daniel Pfeiffer <occitan@esperanto.org>
parents: 62082
diff changeset
608 ;; Make menus.
c1e4bf9803aa (makefile-targets-face, makefile-shell-face, makefile-makepp-perl-face): New faces.
Daniel Pfeiffer <occitan@esperanto.org>
parents: 62082
diff changeset
609 (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
610 (cons "Makefile" (make-sparse-keymap "Makefile")))
9454
40340d39257d (makefile-mode-name): Removed.
Richard M. Stallman <rms@gnu.org>
parents: 7639
diff changeset
611
92703
0905c6be13b6 (makefile-mode-abbrev-table): Add menu
Dan Nicolaescu <dann@ics.uci.edu>
parents: 79717
diff changeset
612 (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
613 (cons "Switch Makefile Type" opt-map))
0905c6be13b6 (makefile-mode-abbrev-table): Add menu
Dan Nicolaescu <dann@ics.uci.edu>
parents: 79717
diff changeset
614 (define-key opt-map [makefile-makepp-mode]
0905c6be13b6 (makefile-mode-abbrev-table): Add menu
Dan Nicolaescu <dann@ics.uci.edu>
parents: 79717
diff changeset
615 '(menu-item "Makepp" makefile-makepp-mode
0905c6be13b6 (makefile-mode-abbrev-table): Add menu
Dan Nicolaescu <dann@ics.uci.edu>
parents: 79717
diff changeset
616 :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
617 :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
618 (define-key opt-map [makefile-imake-mode]
0905c6be13b6 (makefile-mode-abbrev-table): Add menu
Dan Nicolaescu <dann@ics.uci.edu>
parents: 79717
diff changeset
619 '(menu-item "Imake" makefile-imake-mode
0905c6be13b6 (makefile-mode-abbrev-table): Add menu
Dan Nicolaescu <dann@ics.uci.edu>
parents: 79717
diff changeset
620 :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
621 :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
622 (define-key opt-map [makefile-mode]
0905c6be13b6 (makefile-mode-abbrev-table): Add menu
Dan Nicolaescu <dann@ics.uci.edu>
parents: 79717
diff changeset
623 '(menu-item "Classic" makefile-mode
0905c6be13b6 (makefile-mode-abbrev-table): Add menu
Dan Nicolaescu <dann@ics.uci.edu>
parents: 79717
diff changeset
624 :help "`makefile-mode' with no special functionality"
0905c6be13b6 (makefile-mode-abbrev-table): Add menu
Dan Nicolaescu <dann@ics.uci.edu>
parents: 79717
diff changeset
625 :button (:radio . (eq major-mode 'makefile-mode))))
0905c6be13b6 (makefile-mode-abbrev-table): Add menu
Dan Nicolaescu <dann@ics.uci.edu>
parents: 79717
diff changeset
626 (define-key opt-map [makefile-bsdmake-mode]
0905c6be13b6 (makefile-mode-abbrev-table): Add menu
Dan Nicolaescu <dann@ics.uci.edu>
parents: 79717
diff changeset
627 '(menu-item "BSD" makefile-bsdmake-mode
0905c6be13b6 (makefile-mode-abbrev-table): Add menu
Dan Nicolaescu <dann@ics.uci.edu>
parents: 79717
diff changeset
628 :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
629 :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
630 (define-key opt-map [makefile-automake-mode]
0905c6be13b6 (makefile-mode-abbrev-table): Add menu
Dan Nicolaescu <dann@ics.uci.edu>
parents: 79717
diff changeset
631 '(menu-item "Automake" makefile-automake-mode
0905c6be13b6 (makefile-mode-abbrev-table): Add menu
Dan Nicolaescu <dann@ics.uci.edu>
parents: 79717
diff changeset
632 :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
633 :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
634 (define-key opt-map [makefile-gmake-mode]
0905c6be13b6 (makefile-mode-abbrev-table): Add menu
Dan Nicolaescu <dann@ics.uci.edu>
parents: 79717
diff changeset
635 '(menu-item "GNU make" makefile-gmake-mode
0905c6be13b6 (makefile-mode-abbrev-table): Add menu
Dan Nicolaescu <dann@ics.uci.edu>
parents: 79717
diff changeset
636 :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
637 :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
638 (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
639 '(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
640 ;; 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
641 :help "Pop up Makefile Browser"))
0905c6be13b6 (makefile-mode-abbrev-table): Add menu
Dan Nicolaescu <dann@ics.uci.edu>
parents: 79717
diff changeset
642 (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
643 '(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
644 :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
645 ;; Target related
0905c6be13b6 (makefile-mode-abbrev-table): Add menu
Dan Nicolaescu <dann@ics.uci.edu>
parents: 79717
diff changeset
646 (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
647 (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
648 '(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
649 :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
650 (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
651 '(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
652 :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
653 (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
654 '(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
655 :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
656 (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
657 '(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
658 :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
659 (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
660 '(menu-item "Backslash Region" makefile-backslash-region
0905c6be13b6 (makefile-mode-abbrev-table): Add menu
Dan Nicolaescu <dann@ics.uci.edu>
parents: 79717
diff changeset
661 :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
662 ;; Motion
0905c6be13b6 (makefile-mode-abbrev-table): Add menu
Dan Nicolaescu <dann@ics.uci.edu>
parents: 79717
diff changeset
663 (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
664 (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
665 '(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
666 :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
667 (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
668 '(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
669 :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
670 map)
c1e4bf9803aa (makefile-targets-face, makefile-shell-face, makefile-makepp-perl-face): New faces.
Daniel Pfeiffer <occitan@esperanto.org>
parents: 62082
diff changeset
671 "The keymap that is used in Makefile mode.")
809
8a0066235d56 Initial revision
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
diff changeset
672
71030
6e1192ac395f (makefile-browser-map, makefile-mode-syntax-table): Move init inside decl.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 70812
diff changeset
673
6e1192ac395f (makefile-browser-map, makefile-mode-syntax-table): Move init inside decl.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 70812
diff changeset
674 (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
675 (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
676 (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
677 (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
678 (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
679 (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
680 (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
681 (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
682 (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
683 (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
684 (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
685 ;; 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
686 (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
687 (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
688 map)
809
8a0066235d56 Initial revision
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
diff changeset
689 "The keymap that is used in the macro- and target browser.")
8a0066235d56 Initial revision
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
diff changeset
690
8a0066235d56 Initial revision
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
diff changeset
691
71030
6e1192ac395f (makefile-browser-map, makefile-mode-syntax-table): Move init inside decl.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 70812
diff changeset
692 (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
693 (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
694 (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
695 (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
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 ?\n "> " st)
6e1192ac395f (makefile-browser-map, makefile-mode-syntax-table): Move init inside decl.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 70812
diff changeset
704 st))
9454
40340d39257d (makefile-mode-name): Removed.
Richard M. Stallman <rms@gnu.org>
parents: 7639
diff changeset
705
107540
bdfbbc1e8374 Misc cleanup.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 107536
diff changeset
706 (defvar makefile-imake-mode-syntax-table
bdfbbc1e8374 Misc cleanup.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 107536
diff changeset
707 (let ((st (make-syntax-table makefile-mode-syntax-table)))
bdfbbc1e8374 Misc cleanup.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 107536
diff changeset
708 (modify-syntax-entry ?/ ". 14" st)
bdfbbc1e8374 Misc cleanup.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 107536
diff changeset
709 (modify-syntax-entry ?* ". 23" st)
bdfbbc1e8374 Misc cleanup.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 107536
diff changeset
710 (modify-syntax-entry ?# "'" st)
bdfbbc1e8374 Misc cleanup.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 107536
diff changeset
711 (modify-syntax-entry ?\n ". b" st)
bdfbbc1e8374 Misc cleanup.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 107536
diff changeset
712 st))
9454
40340d39257d (makefile-mode-name): Removed.
Richard M. Stallman <rms@gnu.org>
parents: 7639
diff changeset
713
809
8a0066235d56 Initial revision
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
diff changeset
714 ;;; ------------------------------------------------------------
8a0066235d56 Initial revision
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
diff changeset
715 ;;; Internal variables.
8a0066235d56 Initial revision
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
diff changeset
716 ;;; You don't need to configure below this line.
8a0066235d56 Initial revision
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
diff changeset
717 ;;; ------------------------------------------------------------
8a0066235d56 Initial revision
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
diff changeset
718
8a0066235d56 Initial revision
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
diff changeset
719 (defvar makefile-target-table nil
9758
b9084912762f Changed almost every doc string.
Richard M. Stallman <rms@gnu.org>
parents: 9477
diff changeset
720 "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
721 (put 'makefile-target-table 'risky-local-variable t)
809
8a0066235d56 Initial revision
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
diff changeset
722
8a0066235d56 Initial revision
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
diff changeset
723 (defvar makefile-macro-table nil
9758
b9084912762f Changed almost every doc string.
Richard M. Stallman <rms@gnu.org>
parents: 9477
diff changeset
724 "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
725 (put 'makefile-macro-table 'risky-local-variable t)
809
8a0066235d56 Initial revision
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
diff changeset
726
8a0066235d56 Initial revision
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
diff changeset
727 (defvar makefile-browser-client
12936
1548eeb34926 Doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 12912
diff changeset
728 "A buffer in Makefile mode that is currently using the browser.")
809
8a0066235d56 Initial revision
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
diff changeset
729
8a0066235d56 Initial revision
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
diff changeset
730 (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
731 (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
732 (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
733 (defvar makefile-need-macro-pickup t)
809
8a0066235d56 Initial revision
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
diff changeset
734
8a0066235d56 Initial revision
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
diff changeset
735 (defvar makefile-mode-hook '())
8a0066235d56 Initial revision
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
diff changeset
736
9758
b9084912762f Changed almost every doc string.
Richard M. Stallman <rms@gnu.org>
parents: 9477
diff changeset
737 ;; 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
738 ;; Each "ARG" is used as a prompt for a required argument.
809
8a0066235d56 Initial revision
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
diff changeset
739 (defconst makefile-gnumake-functions-alist
8a0066235d56 Initial revision
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
diff changeset
740 '(
8a0066235d56 Initial revision
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
diff changeset
741 ;; Text functions
8a0066235d56 Initial revision
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
diff changeset
742 ("subst" "From" "To" "In")
8a0066235d56 Initial revision
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
diff changeset
743 ("patsubst" "Pattern" "Replacement" "In")
8a0066235d56 Initial revision
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
diff changeset
744 ("strip" "Text")
8a0066235d56 Initial revision
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
diff changeset
745 ("findstring" "Find what" "In")
8a0066235d56 Initial revision
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
diff changeset
746 ("filter" "Pattern" "Text")
8a0066235d56 Initial revision
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
diff changeset
747 ("filter-out" "Pattern" "Text")
8a0066235d56 Initial revision
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
diff changeset
748 ("sort" "List")
8a0066235d56 Initial revision
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
diff changeset
749 ;; Filename functions
8a0066235d56 Initial revision
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
diff changeset
750 ("dir" "Names")
8a0066235d56 Initial revision
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
diff changeset
751 ("notdir" "Names")
8a0066235d56 Initial revision
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
diff changeset
752 ("suffix" "Names")
8a0066235d56 Initial revision
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
diff changeset
753 ("basename" "Names")
15523
682a3d405c49 (makefile-gnumake-functions-alist): Add `addprefix'.
Richard M. Stallman <rms@gnu.org>
parents: 14688
diff changeset
754 ("addprefix" "Prefix" "Names")
809
8a0066235d56 Initial revision
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
diff changeset
755 ("addsuffix" "Suffix" "Names")
8a0066235d56 Initial revision
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
diff changeset
756 ("join" "List 1" "List 2")
8a0066235d56 Initial revision
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
diff changeset
757 ("word" "Index" "Text")
8a0066235d56 Initial revision
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
diff changeset
758 ("words" "Text")
8a0066235d56 Initial revision
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
diff changeset
759 ("firstword" "Text")
8a0066235d56 Initial revision
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
diff changeset
760 ("wildcard" "Pattern")
8a0066235d56 Initial revision
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
diff changeset
761 ;; Misc functions
8a0066235d56 Initial revision
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
diff changeset
762 ("foreach" "Variable" "List" "Text")
8a0066235d56 Initial revision
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
diff changeset
763 ("origin" "Variable")
9758
b9084912762f Changed almost every doc string.
Richard M. Stallman <rms@gnu.org>
parents: 9477
diff changeset
764 ("shell" "Command")))
809
8a0066235d56 Initial revision
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
diff changeset
765
8a0066235d56 Initial revision
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
diff changeset
766
8a0066235d56 Initial revision
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
diff changeset
767 ;;; ------------------------------------------------------------
8a0066235d56 Initial revision
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
diff changeset
768 ;;; The mode function itself.
8a0066235d56 Initial revision
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
diff changeset
769 ;;; ------------------------------------------------------------
8a0066235d56 Initial revision
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
diff changeset
770
2534
0099d6be2b11 (makefile-mode): Fix typo in autoload cookie.
Richard M. Stallman <rms@gnu.org>
parents: 2400
diff changeset
771 ;;;###autoload
109561
d7a517f1b312 Derive programming modes from prog-mode.
Juanma Barranquero <lekktu@gmail.com>
parents: 107540
diff changeset
772 (define-derived-mode makefile-mode prog-mode "Makefile"
62276
c1e4bf9803aa (makefile-targets-face, makefile-shell-face, makefile-makepp-perl-face): New faces.
Daniel Pfeiffer <occitan@esperanto.org>
parents: 62082
diff changeset
773 "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
774
c1e4bf9803aa (makefile-targets-face, makefile-shell-face, makefile-makepp-perl-face): New faces.
Daniel Pfeiffer <occitan@esperanto.org>
parents: 62082
diff changeset
775 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
776 variants `makefile-automake-mode', `makefile-gmake-mode',
70780
1921a3870365 (makefile-mode): Doc fix.
Eli Zaretskii <eliz@gnu.org>
parents: 68773
diff changeset
777 `makefile-makepp-mode', `makefile-bsdmake-mode' or,
1921a3870365 (makefile-mode): Doc fix.
Eli Zaretskii <eliz@gnu.org>
parents: 68773
diff changeset
778 `makefile-imake-mode'. All but the last should be correctly
1921a3870365 (makefile-mode): Doc fix.
Eli Zaretskii <eliz@gnu.org>
parents: 68773
diff changeset
779 chosen based on the file name, except if it is *.mk. This
1921a3870365 (makefile-mode): Doc fix.
Eli Zaretskii <eliz@gnu.org>
parents: 68773
diff changeset
780 function ends by invoking the function(s) `makefile-mode-hook'.
809
8a0066235d56 Initial revision
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
diff changeset
781
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
782 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
783 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
784 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
785 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
786
809
8a0066235d56 Initial revision
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
diff changeset
787 \\{makefile-mode-map}
8a0066235d56 Initial revision
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
diff changeset
788
8a0066235d56 Initial revision
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
diff changeset
789 In the browser, use the following keys:
8a0066235d56 Initial revision
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
diff changeset
790
8a0066235d56 Initial revision
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
diff changeset
791 \\{makefile-browser-map}
8a0066235d56 Initial revision
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
diff changeset
792
12936
1548eeb34926 Doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 12912
diff changeset
793 Makefile mode can be configured by modifying the following variables:
809
8a0066235d56 Initial revision
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
diff changeset
794
41641
66c7637cbf17 Use line-(end|beginning)-position.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 38600
diff changeset
795 `makefile-browser-buffer-name':
809
8a0066235d56 Initial revision
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
diff changeset
796 Name of the macro- and target browser buffer.
8a0066235d56 Initial revision
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
diff changeset
797
41641
66c7637cbf17 Use line-(end|beginning)-position.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 38600
diff changeset
798 `makefile-target-colon':
809
8a0066235d56 Initial revision
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
diff changeset
799 The string that gets appended to all target names
12936
1548eeb34926 Doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 12912
diff changeset
800 inserted by `makefile-insert-target'.
809
8a0066235d56 Initial revision
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
diff changeset
801 \":\" or \"::\" are quite common values.
8a0066235d56 Initial revision
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
diff changeset
802
41641
66c7637cbf17 Use line-(end|beginning)-position.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 38600
diff changeset
803 `makefile-macro-assign':
809
8a0066235d56 Initial revision
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
diff changeset
804 The string that gets appended to all macro names
12936
1548eeb34926 Doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 12912
diff changeset
805 inserted by `makefile-insert-macro'.
809
8a0066235d56 Initial revision
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
diff changeset
806 The normal value should be \" = \", since this is what
26136
6e87dd221598 Minor doc fixes.
Dave Love <fx@gnu.org>
parents: 24271
diff changeset
807 standard make expects. However, newer makes such as dmake
809
8a0066235d56 Initial revision
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
diff changeset
808 allow a larger variety of different macro assignments, so you
8a0066235d56 Initial revision
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
diff changeset
809 might prefer to use \" += \" or \" := \" .
8a0066235d56 Initial revision
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
diff changeset
810
41641
66c7637cbf17 Use line-(end|beginning)-position.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 38600
diff changeset
811 `makefile-tab-after-target-colon':
809
8a0066235d56 Initial revision
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
diff changeset
812 If you want a TAB (instead of a space) to be appended after the
8a0066235d56 Initial revision
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
diff changeset
813 target colon, then set this to a non-nil value.
8a0066235d56 Initial revision
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
diff changeset
814
41641
66c7637cbf17 Use line-(end|beginning)-position.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 38600
diff changeset
815 `makefile-browser-leftmost-column':
809
8a0066235d56 Initial revision
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
diff changeset
816 Number of blanks to the left of the browser selection mark.
8a0066235d56 Initial revision
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
diff changeset
817
41641
66c7637cbf17 Use line-(end|beginning)-position.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 38600
diff changeset
818 `makefile-browser-cursor-column':
809
8a0066235d56 Initial revision
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
diff changeset
819 Column in which the cursor is positioned when it moves
8a0066235d56 Initial revision
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
diff changeset
820 up or down in the browser.
8a0066235d56 Initial revision
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
diff changeset
821
41641
66c7637cbf17 Use line-(end|beginning)-position.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 38600
diff changeset
822 `makefile-browser-selected-mark':
809
8a0066235d56 Initial revision
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
diff changeset
823 String used to mark selected entries in the browser.
8a0066235d56 Initial revision
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
diff changeset
824
41641
66c7637cbf17 Use line-(end|beginning)-position.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 38600
diff changeset
825 `makefile-browser-unselected-mark':
809
8a0066235d56 Initial revision
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
diff changeset
826 String used to mark unselected entries in the browser.
8a0066235d56 Initial revision
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
diff changeset
827
41641
66c7637cbf17 Use line-(end|beginning)-position.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 38600
diff changeset
828 `makefile-browser-auto-advance-after-selection-p':
809
8a0066235d56 Initial revision
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
diff changeset
829 If this variable is set to a non-nil value the cursor
8a0066235d56 Initial revision
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
diff changeset
830 will automagically advance to the next line after an item
8a0066235d56 Initial revision
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
diff changeset
831 has been selected in the browser.
8a0066235d56 Initial revision
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
diff changeset
832
41641
66c7637cbf17 Use line-(end|beginning)-position.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 38600
diff changeset
833 `makefile-pickup-everything-picks-up-filenames-p':
809
8a0066235d56 Initial revision
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
diff changeset
834 If this variable is set to a non-nil value then
12936
1548eeb34926 Doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 12912
diff changeset
835 `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
836 (i.e. it calls `makefile-pickup-filenames-as-targets'), otherwise
809
8a0066235d56 Initial revision
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
diff changeset
837 filenames are omitted.
8a0066235d56 Initial revision
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
diff changeset
838
47546
2c7b4003c5ad (makefile-cleanup-continuations-p): Rename to makefile-cleanup-continuations.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 47527
diff changeset
839 `makefile-cleanup-continuations':
26136
6e87dd221598 Minor doc fixes.
Dave Love <fx@gnu.org>
parents: 24271
diff changeset
840 If this variable is set to a non-nil value then Makefile mode
809
8a0066235d56 Initial revision
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
diff changeset
841 will assure that no line in the file ends with a backslash
8a0066235d56 Initial revision
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
diff changeset
842 (the continuation character) followed by any whitespace.
8a0066235d56 Initial revision
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
diff changeset
843 This is done by silently removing the trailing whitespace, leaving
8a0066235d56 Initial revision
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
diff changeset
844 the backslash itself intact.
26136
6e87dd221598 Minor doc fixes.
Dave Love <fx@gnu.org>
parents: 24271
diff changeset
845 IMPORTANT: Please note that enabling this option causes Makefile mode
12936
1548eeb34926 Doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 12912
diff changeset
846 to MODIFY A FILE WITHOUT YOUR CONFIRMATION when \"it seems necessary\".
809
8a0066235d56 Initial revision
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
diff changeset
847
41641
66c7637cbf17 Use line-(end|beginning)-position.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 38600
diff changeset
848 `makefile-browser-hook':
809
8a0066235d56 Initial revision
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
diff changeset
849 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
850 browser is entered. This is executed in the makefile buffer.
809
8a0066235d56 Initial revision
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
diff changeset
851
41641
66c7637cbf17 Use line-(end|beginning)-position.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 38600
diff changeset
852 `makefile-special-targets-list':
809
8a0066235d56 Initial revision
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
diff changeset
853 List of special targets. You will be offered to complete
12936
1548eeb34926 Doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 12912
diff changeset
854 on one of those in the minibuffer whenever you enter a `.'.
1548eeb34926 Doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 12912
diff changeset
855 at the beginning of a line in Makefile mode."
47546
2c7b4003c5ad (makefile-cleanup-continuations-p): Rename to makefile-cleanup-continuations.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 47527
diff changeset
856 (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
857 '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
858 (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
859 'makefile-warn-continuations nil t)
1117d26eaae0 (makefile-cleanup-continuations): Default for variable is nil.
Richard M. Stallman <rms@gnu.org>
parents: 47546
diff changeset
860 (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
861 '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
862 (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
863 (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
864 (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
865 (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
866 (make-local-variable 'makefile-need-macro-pickup)
9454
40340d39257d (makefile-mode-name): Removed.
Richard M. Stallman <rms@gnu.org>
parents: 7639
diff changeset
867
40340d39257d (makefile-mode-name): Removed.
Richard M. Stallman <rms@gnu.org>
parents: 7639
diff changeset
868 ;; Font lock.
107540
bdfbbc1e8374 Misc cleanup.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 107536
diff changeset
869 (set (make-local-variable 'font-lock-defaults)
bdfbbc1e8374 Misc cleanup.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 107536
diff changeset
870 ;; SYNTAX-BEGIN set to backward-paragraph to avoid slow-down
bdfbbc1e8374 Misc cleanup.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 107536
diff changeset
871 ;; near the end of a large buffer, due to parse-partial-sexp's
bdfbbc1e8374 Misc cleanup.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 107536
diff changeset
872 ;; trying to parse all the way till the beginning of buffer.
bdfbbc1e8374 Misc cleanup.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 107536
diff changeset
873 '(makefile-font-lock-keywords
bdfbbc1e8374 Misc cleanup.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 107536
diff changeset
874 nil nil
bdfbbc1e8374 Misc cleanup.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 107536
diff changeset
875 ((?$ . "."))
110305
b10051866f51 New syntax-propertize functionality.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 109954
diff changeset
876 backward-paragraph))
b10051866f51 New syntax-propertize functionality.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 109954
diff changeset
877 (set (make-local-variable 'syntax-propertize-function)
b10051866f51 New syntax-propertize functionality.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 109954
diff changeset
878 makefile-syntax-propertize-function)
9454
40340d39257d (makefile-mode-name): Removed.
Richard M. Stallman <rms@gnu.org>
parents: 7639
diff changeset
879
40340d39257d (makefile-mode-name): Removed.
Richard M. Stallman <rms@gnu.org>
parents: 7639
diff changeset
880 ;; Add-log.
107540
bdfbbc1e8374 Misc cleanup.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 107536
diff changeset
881 (set (make-local-variable 'add-log-current-defun-function)
bdfbbc1e8374 Misc cleanup.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 107536
diff changeset
882 'makefile-add-log-defun)
9454
40340d39257d (makefile-mode-name): Removed.
Richard M. Stallman <rms@gnu.org>
parents: 7639
diff changeset
883
40340d39257d (makefile-mode-name): Removed.
Richard M. Stallman <rms@gnu.org>
parents: 7639
diff changeset
884 ;; Imenu.
107540
bdfbbc1e8374 Misc cleanup.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 107536
diff changeset
885 (set (make-local-variable 'imenu-generic-expression)
bdfbbc1e8374 Misc cleanup.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 107536
diff changeset
886 makefile-imenu-generic-expression)
9454
40340d39257d (makefile-mode-name): Removed.
Richard M. Stallman <rms@gnu.org>
parents: 7639
diff changeset
887
11638
2b1d5f2e99cc (makefile-mode): Set dabbrev-abbrev-skip-leading-regexp.
Richard M. Stallman <rms@gnu.org>
parents: 9758
diff changeset
888 ;; Dabbrev.
107540
bdfbbc1e8374 Misc cleanup.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 107536
diff changeset
889 (set (make-local-variable 'dabbrev-abbrev-skip-leading-regexp) "\\$")
11638
2b1d5f2e99cc (makefile-mode): Set dabbrev-abbrev-skip-leading-regexp.
Richard M. Stallman <rms@gnu.org>
parents: 9758
diff changeset
890
28503
a8184f890df4 Some doc fixes.
Gerd Moellmann <gerd@gnu.org>
parents: 28277
diff changeset
891 ;; Other abbrevs.
a8184f890df4 Some doc fixes.
Gerd Moellmann <gerd@gnu.org>
parents: 28277
diff changeset
892 (setq local-abbrev-table makefile-mode-abbrev-table)
a8184f890df4 Some doc fixes.
Gerd Moellmann <gerd@gnu.org>
parents: 28277
diff changeset
893
17240
9e236e540a59 (makefile-backslash-align): New variable.
Richard M. Stallman <rms@gnu.org>
parents: 17142
diff changeset
894 ;; Filling.
107540
bdfbbc1e8374 Misc cleanup.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 107536
diff changeset
895 (set (make-local-variable 'fill-paragraph-function) 'makefile-fill-paragraph)
17240
9e236e540a59 (makefile-backslash-align): New variable.
Richard M. Stallman <rms@gnu.org>
parents: 17142
diff changeset
896
9454
40340d39257d (makefile-mode-name): Removed.
Richard M. Stallman <rms@gnu.org>
parents: 7639
diff changeset
897 ;; Comment stuff.
107540
bdfbbc1e8374 Misc cleanup.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 107536
diff changeset
898 (set (make-local-variable 'comment-start) "#")
bdfbbc1e8374 Misc cleanup.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 107536
diff changeset
899 (set (make-local-variable 'comment-end) "")
bdfbbc1e8374 Misc cleanup.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 107536
diff changeset
900 (set (make-local-variable 'comment-start-skip) "#+[ \t]*")
9454
40340d39257d (makefile-mode-name): Removed.
Richard M. Stallman <rms@gnu.org>
parents: 7639
diff changeset
901
41641
66c7637cbf17 Use line-(end|beginning)-position.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 38600
diff changeset
902 ;; Make sure TAB really inserts \t.
66c7637cbf17 Use line-(end|beginning)-position.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 38600
diff changeset
903 (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
904
9454
40340d39257d (makefile-mode-name): Removed.
Richard M. Stallman <rms@gnu.org>
parents: 7639
diff changeset
905 ;; Real TABs are important in makefiles
107540
bdfbbc1e8374 Misc cleanup.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 107536
diff changeset
906 (setq indent-tabs-mode t))
9454
40340d39257d (makefile-mode-name): Removed.
Richard M. Stallman <rms@gnu.org>
parents: 7639
diff changeset
907
62276
c1e4bf9803aa (makefile-targets-face, makefile-shell-face, makefile-makepp-perl-face): New faces.
Daniel Pfeiffer <occitan@esperanto.org>
parents: 62082
diff changeset
908 ;; 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
909 ;;;###autoload
c1e4bf9803aa (makefile-targets-face, makefile-shell-face, makefile-makepp-perl-face): New faces.
Daniel Pfeiffer <occitan@esperanto.org>
parents: 62082
diff changeset
910 (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
911 "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
912 (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
913 `(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
914
c1e4bf9803aa (makefile-targets-face, makefile-shell-face, makefile-makepp-perl-face): New faces.
Daniel Pfeiffer <occitan@esperanto.org>
parents: 62082
diff changeset
915 ;;;###autoload
c1e4bf9803aa (makefile-targets-face, makefile-shell-face, makefile-makepp-perl-face): New faces.
Daniel Pfeiffer <occitan@esperanto.org>
parents: 62082
diff changeset
916 (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
917 "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
918 (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
919 `(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
920
c1e4bf9803aa (makefile-targets-face, makefile-shell-face, makefile-makepp-perl-face): New faces.
Daniel Pfeiffer <occitan@esperanto.org>
parents: 62082
diff changeset
921 ;;;###autoload
c1e4bf9803aa (makefile-targets-face, makefile-shell-face, makefile-makepp-perl-face): New faces.
Daniel Pfeiffer <occitan@esperanto.org>
parents: 62082
diff changeset
922 (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
923 "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
924 (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
925 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
926 (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
927 `(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
928 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
929 `(("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
930 ,@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
931
c1e4bf9803aa (makefile-targets-face, makefile-shell-face, makefile-makepp-perl-face): New faces.
Daniel Pfeiffer <occitan@esperanto.org>
parents: 62082
diff changeset
932 ;;;###autoload
c1e4bf9803aa (makefile-targets-face, makefile-shell-face, makefile-makepp-perl-face): New faces.
Daniel Pfeiffer <occitan@esperanto.org>
parents: 62082
diff changeset
933 (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
934 "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
935 (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
936 makefile-bsdmake-dependency-regex)
62444
24bf25fa47db (makefile-dependency-skip): New variable.
Daniel Pfeiffer <occitan@esperanto.org>
parents: 62412
diff changeset
937 (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
938 (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
939 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
940 (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
941 `(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
942
68239
e08826f8b714 Added makefile-imake-mode.
Masatake YAMATO <jet@gyve.org>
parents: 67835
diff changeset
943 ;;;###autoload
e08826f8b714 Added makefile-imake-mode.
Masatake YAMATO <jet@gyve.org>
parents: 67835
diff changeset
944 (define-derived-mode makefile-imake-mode makefile-mode "Imakefile"
e08826f8b714 Added makefile-imake-mode.
Masatake YAMATO <jet@gyve.org>
parents: 67835
diff changeset
945 "An adapted `makefile-mode' that knows about imake."
e08826f8b714 Added makefile-imake-mode.
Masatake YAMATO <jet@gyve.org>
parents: 67835
diff changeset
946 :syntax-table makefile-imake-mode-syntax-table
110305
b10051866f51 New syntax-propertize functionality.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 109954
diff changeset
947 (set (make-local-variable 'syntax-propertize-function) nil)
b10051866f51 New syntax-propertize functionality.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 109954
diff changeset
948 (setq font-lock-defaults
b10051866f51 New syntax-propertize functionality.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 109954
diff changeset
949 `(makefile-imake-font-lock-keywords ,@(cdr font-lock-defaults))))
68239
e08826f8b714 Added makefile-imake-mode.
Masatake YAMATO <jet@gyve.org>
parents: 67835
diff changeset
950
9454
40340d39257d (makefile-mode-name): Removed.
Richard M. Stallman <rms@gnu.org>
parents: 7639
diff changeset
951
40340d39257d (makefile-mode-name): Removed.
Richard M. Stallman <rms@gnu.org>
parents: 7639
diff changeset
952
40340d39257d (makefile-mode-name): Removed.
Richard M. Stallman <rms@gnu.org>
parents: 7639
diff changeset
953 ;;; Motion code.
809
8a0066235d56 Initial revision
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
diff changeset
954
8a0066235d56 Initial revision
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
diff changeset
955 (defun makefile-next-dependency ()
12936
1548eeb34926 Doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 12912
diff changeset
956 "Move point to the beginning of the next dependency line."
809
8a0066235d56 Initial revision
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
diff changeset
957 (interactive)
8a0066235d56 Initial revision
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
diff changeset
958 (let ((here (point)))
8a0066235d56 Initial revision
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
diff changeset
959 (end-of-line)
62444
24bf25fa47db (makefile-dependency-skip): New variable.
Daniel Pfeiffer <occitan@esperanto.org>
parents: 62412
diff changeset
960 (if (makefile-match-dependency nil)
809
8a0066235d56 Initial revision
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
diff changeset
961 (progn (beginning-of-line) t) ; indicate success
8a0066235d56 Initial revision
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
diff changeset
962 (goto-char here) nil)))
9454
40340d39257d (makefile-mode-name): Removed.
Richard M. Stallman <rms@gnu.org>
parents: 7639
diff changeset
963
809
8a0066235d56 Initial revision
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
diff changeset
964 (defun makefile-previous-dependency ()
12936
1548eeb34926 Doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 12912
diff changeset
965 "Move point to the beginning of the previous dependency line."
809
8a0066235d56 Initial revision
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
diff changeset
966 (interactive)
62444
24bf25fa47db (makefile-dependency-skip): New variable.
Daniel Pfeiffer <occitan@esperanto.org>
parents: 62412
diff changeset
967 (let ((pt (point)))
809
8a0066235d56 Initial revision
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
diff changeset
968 (beginning-of-line)
62444
24bf25fa47db (makefile-dependency-skip): New variable.
Daniel Pfeiffer <occitan@esperanto.org>
parents: 62412
diff changeset
969 ;; makefile-match-dependency done backwards:
24bf25fa47db (makefile-dependency-skip): New variable.
Daniel Pfeiffer <occitan@esperanto.org>
parents: 62412
diff changeset
970 (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
971 (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
972 (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
973 (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
974 (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
975 (get-text-property (point) 'face)
62444
24bf25fa47db (makefile-dependency-skip): New variable.
Daniel Pfeiffer <occitan@esperanto.org>
parents: 62412
diff changeset
976 (beginning-of-line)
63444
cc4a71461921 (makefile-space, makefile-makepp-perl): Eliminate "-face" suffix.
Daniel Pfeiffer <occitan@esperanto.org>
parents: 63138
diff changeset
977 (if (> (point) (+ (point-min) 2))
cc4a71461921 (makefile-space, makefile-makepp-perl): Eliminate "-face" suffix.
Daniel Pfeiffer <occitan@esperanto.org>
parents: 63138
diff changeset
978 (eq (char-before (1- (point))) ?\\))
62444
24bf25fa47db (makefile-dependency-skip): New variable.
Daniel Pfeiffer <occitan@esperanto.org>
parents: 62412
diff changeset
979 (if (looking-at makefile-dependency-regex)
24bf25fa47db (makefile-dependency-skip): New variable.
Daniel Pfeiffer <occitan@esperanto.org>
parents: 62412
diff changeset
980 (throw 'found t))))
24bf25fa47db (makefile-dependency-skip): New variable.
Daniel Pfeiffer <occitan@esperanto.org>
parents: 62412
diff changeset
981 (goto-char pt)
24bf25fa47db (makefile-dependency-skip): New variable.
Daniel Pfeiffer <occitan@esperanto.org>
parents: 62412
diff changeset
982 nil)))
809
8a0066235d56 Initial revision
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
diff changeset
983
9454
40340d39257d (makefile-mode-name): Removed.
Richard M. Stallman <rms@gnu.org>
parents: 7639
diff changeset
984
809
8a0066235d56 Initial revision
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
diff changeset
985
9454
40340d39257d (makefile-mode-name): Removed.
Richard M. Stallman <rms@gnu.org>
parents: 7639
diff changeset
986 ;;; 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
987
9454
40340d39257d (makefile-mode-name): Removed.
Richard M. Stallman <rms@gnu.org>
parents: 7639
diff changeset
988 (defun makefile-electric-dot (arg)
40340d39257d (makefile-mode-name): Removed.
Richard M. Stallman <rms@gnu.org>
parents: 7639
diff changeset
989 "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
990 Only does electric insertion at beginning of line.
40340d39257d (makefile-mode-name): Removed.
Richard M. Stallman <rms@gnu.org>
parents: 7639
diff changeset
991 Anywhere else just self-inserts."
40340d39257d (makefile-mode-name): Removed.
Richard M. Stallman <rms@gnu.org>
parents: 7639
diff changeset
992 (interactive "p")
809
8a0066235d56 Initial revision
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
diff changeset
993 (if (bolp)
8a0066235d56 Initial revision
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
diff changeset
994 (makefile-insert-special-target)
9454
40340d39257d (makefile-mode-name): Removed.
Richard M. Stallman <rms@gnu.org>
parents: 7639
diff changeset
995 (self-insert-command arg)))
809
8a0066235d56 Initial revision
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
diff changeset
996
8a0066235d56 Initial revision
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
diff changeset
997 (defun makefile-insert-special-target ()
13995
33b51573611f (makefile-insert-special-target,
Karl Heuer <kwzh@gnu.org>
parents: 13847
diff changeset
998 "Prompt for and insert a special target name.
9454
40340d39257d (makefile-mode-name): Removed.
Richard M. Stallman <rms@gnu.org>
parents: 7639
diff changeset
999 Uses `makefile-special-targets' list."
809
8a0066235d56 Initial revision
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
diff changeset
1000 (interactive)
2559
5f2c2994cbca Rewritten and simplified, commentary added. It now will usually
Eric S. Raymond <esr@snark.thyrsus.com>
parents: 2534
diff changeset
1001 (makefile-pickup-targets)
9454
40340d39257d (makefile-mode-name): Removed.
Richard M. Stallman <rms@gnu.org>
parents: 7639
diff changeset
1002 (let ((special-target
40340d39257d (makefile-mode-name): Removed.
Richard M. Stallman <rms@gnu.org>
parents: 7639
diff changeset
1003 (completing-read "Special target: "
40340d39257d (makefile-mode-name): Removed.
Richard M. Stallman <rms@gnu.org>
parents: 7639
diff changeset
1004 makefile-special-targets-list nil nil nil)))
809
8a0066235d56 Initial revision
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
diff changeset
1005 (if (zerop (length special-target))
8a0066235d56 Initial revision
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
diff changeset
1006 ()
9454
40340d39257d (makefile-mode-name): Removed.
Richard M. Stallman <rms@gnu.org>
parents: 7639
diff changeset
1007 (insert "." special-target ":")
809
8a0066235d56 Initial revision
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
diff changeset
1008 (makefile-forward-after-target-colon))))
8a0066235d56 Initial revision
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
diff changeset
1009
9454
40340d39257d (makefile-mode-name): Removed.
Richard M. Stallman <rms@gnu.org>
parents: 7639
diff changeset
1010 (defun makefile-electric-equal (arg)
40340d39257d (makefile-mode-name): Removed.
Richard M. Stallman <rms@gnu.org>
parents: 7639
diff changeset
1011 "Prompt for name of a macro to insert.
40340d39257d (makefile-mode-name): Removed.
Richard M. Stallman <rms@gnu.org>
parents: 7639
diff changeset
1012 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
1013 Anywhere else just self-inserts."
40340d39257d (makefile-mode-name): Removed.
Richard M. Stallman <rms@gnu.org>
parents: 7639
diff changeset
1014 (interactive "p")
2559
5f2c2994cbca Rewritten and simplified, commentary added. It now will usually
Eric S. Raymond <esr@snark.thyrsus.com>
parents: 2534
diff changeset
1015 (makefile-pickup-macros)
809
8a0066235d56 Initial revision
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
diff changeset
1016 (if (bolp)
8a0066235d56 Initial revision
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
diff changeset
1017 (call-interactively 'makefile-insert-macro)
9454
40340d39257d (makefile-mode-name): Removed.
Richard M. Stallman <rms@gnu.org>
parents: 7639
diff changeset
1018 (self-insert-command arg)))
809
8a0066235d56 Initial revision
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
diff changeset
1019
8a0066235d56 Initial revision
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
diff changeset
1020 (defun makefile-insert-macro (macro-name)
8a0066235d56 Initial revision
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
diff changeset
1021 "Prepare definition of a new macro."
8a0066235d56 Initial revision
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
diff changeset
1022 (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
1023 (makefile-pickup-macros)
809
8a0066235d56 Initial revision
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
diff changeset
1024 (if (not (zerop (length macro-name)))
8a0066235d56 Initial revision
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
diff changeset
1025 (progn
8a0066235d56 Initial revision
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
diff changeset
1026 (beginning-of-line)
9454
40340d39257d (makefile-mode-name): Removed.
Richard M. Stallman <rms@gnu.org>
parents: 7639
diff changeset
1027 (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
1028 (setq makefile-need-macro-pickup t)
809
8a0066235d56 Initial revision
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
diff changeset
1029 (makefile-remember-macro macro-name))))
8a0066235d56 Initial revision
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
diff changeset
1030
8a0066235d56 Initial revision
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
diff changeset
1031 (defun makefile-insert-macro-ref (macro-name)
12936
1548eeb34926 Doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 12912
diff changeset
1032 "Complete on a list of known macros, then insert complete ref at point."
809
8a0066235d56 Initial revision
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
diff changeset
1033 (interactive
8a0066235d56 Initial revision
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
diff changeset
1034 (list
2559
5f2c2994cbca Rewritten and simplified, commentary added. It now will usually
Eric S. Raymond <esr@snark.thyrsus.com>
parents: 2534
diff changeset
1035 (progn
5f2c2994cbca Rewritten and simplified, commentary added. It now will usually
Eric S. Raymond <esr@snark.thyrsus.com>
parents: 2534
diff changeset
1036 (makefile-pickup-macros)
5f2c2994cbca Rewritten and simplified, commentary added. It now will usually
Eric S. Raymond <esr@snark.thyrsus.com>
parents: 2534
diff changeset
1037 (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
1038 (makefile-do-macro-insertion macro-name))
809
8a0066235d56 Initial revision
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
diff changeset
1039
8a0066235d56 Initial revision
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
diff changeset
1040 (defun makefile-insert-target (target-name)
8a0066235d56 Initial revision
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
diff changeset
1041 "Prepare definition of a new target (dependency line)."
8a0066235d56 Initial revision
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
diff changeset
1042 (interactive "sTarget: ")
8a0066235d56 Initial revision
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
diff changeset
1043 (if (not (zerop (length target-name)))
8a0066235d56 Initial revision
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
diff changeset
1044 (progn
8a0066235d56 Initial revision
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
diff changeset
1045 (beginning-of-line)
9454
40340d39257d (makefile-mode-name): Removed.
Richard M. Stallman <rms@gnu.org>
parents: 7639
diff changeset
1046 (insert target-name makefile-target-colon)
809
8a0066235d56 Initial revision
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
diff changeset
1047 (makefile-forward-after-target-colon)
8a0066235d56 Initial revision
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
diff changeset
1048 (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
1049 (setq makefile-need-target-pickup t)
809
8a0066235d56 Initial revision
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
diff changeset
1050 (makefile-remember-target target-name))))
8a0066235d56 Initial revision
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
diff changeset
1051
8a0066235d56 Initial revision
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
diff changeset
1052 (defun makefile-insert-target-ref (target-name)
26136
6e87dd221598 Minor doc fixes.
Dave Love <fx@gnu.org>
parents: 24271
diff changeset
1053 "Complete on a list of known targets, then insert TARGET-NAME at point."
809
8a0066235d56 Initial revision
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
diff changeset
1054 (interactive
8a0066235d56 Initial revision
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
diff changeset
1055 (list
5312
aad805608eec (makefile-ignored-files-in-pickup-regex): Supply missing \\.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
1056 (progn
2559
5f2c2994cbca Rewritten and simplified, commentary added. It now will usually
Eric S. Raymond <esr@snark.thyrsus.com>
parents: 2534
diff changeset
1057 (makefile-pickup-targets)
5f2c2994cbca Rewritten and simplified, commentary added. It now will usually
Eric S. Raymond <esr@snark.thyrsus.com>
parents: 2534
diff changeset
1058 (completing-read "Refer to target: " makefile-target-table nil nil nil))))
809
8a0066235d56 Initial revision
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
diff changeset
1059 (if (not (zerop (length target-name)))
9454
40340d39257d (makefile-mode-name): Removed.
Richard M. Stallman <rms@gnu.org>
parents: 7639
diff changeset
1060 (insert target-name " ")))
809
8a0066235d56 Initial revision
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
diff changeset
1061
9454
40340d39257d (makefile-mode-name): Removed.
Richard M. Stallman <rms@gnu.org>
parents: 7639
diff changeset
1062 (defun makefile-electric-colon (arg)
40340d39257d (makefile-mode-name): Removed.
Richard M. Stallman <rms@gnu.org>
parents: 7639
diff changeset
1063 "Prompt for name of new target.
40340d39257d (makefile-mode-name): Removed.
Richard M. Stallman <rms@gnu.org>
parents: 7639
diff changeset
1064 Prompting only happens at beginning of line.
40340d39257d (makefile-mode-name): Removed.
Richard M. Stallman <rms@gnu.org>
parents: 7639
diff changeset
1065 Anywhere else just self-inserts."
40340d39257d (makefile-mode-name): Removed.
Richard M. Stallman <rms@gnu.org>
parents: 7639
diff changeset
1066 (interactive "p")
809
8a0066235d56 Initial revision
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
diff changeset
1067 (if (bolp)
8a0066235d56 Initial revision
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
diff changeset
1068 (call-interactively 'makefile-insert-target)
9454
40340d39257d (makefile-mode-name): Removed.
Richard M. Stallman <rms@gnu.org>
parents: 7639
diff changeset
1069 (self-insert-command arg)))
40340d39257d (makefile-mode-name): Removed.
Richard M. Stallman <rms@gnu.org>
parents: 7639
diff changeset
1070
40340d39257d (makefile-mode-name): Removed.
Richard M. Stallman <rms@gnu.org>
parents: 7639
diff changeset
1071
809
8a0066235d56 Initial revision
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
diff changeset
1072
8a0066235d56 Initial revision
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
diff changeset
1073 ;;; ------------------------------------------------------------
8a0066235d56 Initial revision
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
diff changeset
1074 ;;; Extracting targets and macros from an existing makefile
8a0066235d56 Initial revision
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
diff changeset
1075 ;;; ------------------------------------------------------------
8a0066235d56 Initial revision
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
diff changeset
1076
8a0066235d56 Initial revision
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
diff changeset
1077 (defun makefile-pickup-targets ()
9758
b9084912762f Changed almost every doc string.
Richard M. Stallman <rms@gnu.org>
parents: 9477
diff changeset
1078 "Notice names of all target definitions in Makefile."
809
8a0066235d56 Initial revision
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
diff changeset
1079 (interactive)
62503
c50200e8e7e8 (makefile-add-this-line-targets): Simplify and integrate into `makefile-pickup-targets'.
Daniel Pfeiffer <occitan@esperanto.org>
parents: 62491
diff changeset
1080 (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
1081 (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
1082 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
1083 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
1084 (save-excursion
5f2c2994cbca Rewritten and simplified, commentary added. It now will usually
Eric S. Raymond <esr@snark.thyrsus.com>
parents: 2534
diff changeset
1085 (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
1086 (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
1087 (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
1088 (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
1089 (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
1090 (progn
c50200e8e7e8 (makefile-add-this-line-targets): Simplify and integrate into `makefile-pickup-targets'.
Daniel Pfeiffer <occitan@esperanto.org>
parents: 62491
diff changeset
1091 (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
1092 (point))))
2559
5f2c2994cbca Rewritten and simplified, commentary added. It now will usually
Eric S. Raymond <esr@snark.thyrsus.com>
parents: 2534
diff changeset
1093 (has-prereqs
5f2c2994cbca Rewritten and simplified, commentary added. It now will usually
Eric S. Raymond <esr@snark.thyrsus.com>
parents: 2534
diff changeset
1094 (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
1095 (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
1096 (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
1097 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
1098 (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
1099 (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
1100 (forward-line)))
c50200e8e7e8 (makefile-add-this-line-targets): Simplify and integrate into `makefile-pickup-targets'.
Daniel Pfeiffer <occitan@esperanto.org>
parents: 62491
diff changeset
1101 (message "Read targets OK.")))
809
8a0066235d56 Initial revision
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
diff changeset
1102
8a0066235d56 Initial revision
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
diff changeset
1103 (defun makefile-pickup-macros ()
9758
b9084912762f Changed almost every doc string.
Richard M. Stallman <rms@gnu.org>
parents: 9477
diff changeset
1104 "Notice names of all macro definitions in Makefile."
809
8a0066235d56 Initial revision
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
diff changeset
1105 (interactive)
62503
c50200e8e7e8 (makefile-add-this-line-targets): Simplify and integrate into `makefile-pickup-targets'.
Daniel Pfeiffer <occitan@esperanto.org>
parents: 62491
diff changeset
1106 (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
1107 (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
1108 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
1109 (save-excursion
5f2c2994cbca Rewritten and simplified, commentary added. It now will usually
Eric S. Raymond <esr@snark.thyrsus.com>
parents: 2534
diff changeset
1110 (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
1111 (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
1112 (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
1113 (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
1114 (progn
c50200e8e7e8 (makefile-add-this-line-targets): Simplify and integrate into `makefile-pickup-targets'.
Daniel Pfeiffer <occitan@esperanto.org>
parents: 62491
diff changeset
1115 (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
1116 (point)))))
c50200e8e7e8 (makefile-add-this-line-targets): Simplify and integrate into `makefile-pickup-targets'.
Daniel Pfeiffer <occitan@esperanto.org>
parents: 62491
diff changeset
1117 (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
1118 (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
1119 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
1120 (forward-line)))
2559
5f2c2994cbca Rewritten and simplified, commentary added. It now will usually
Eric S. Raymond <esr@snark.thyrsus.com>
parents: 2534
diff changeset
1121 (message "Read macros OK.")))
809
8a0066235d56 Initial revision
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
diff changeset
1122
9454
40340d39257d (makefile-mode-name): Removed.
Richard M. Stallman <rms@gnu.org>
parents: 7639
diff changeset
1123 (defun makefile-pickup-everything (arg)
9758
b9084912762f Changed almost every doc string.
Richard M. Stallman <rms@gnu.org>
parents: 9477
diff changeset
1124 "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
1125 Prefix arg means force pickups to be redone."
40340d39257d (makefile-mode-name): Removed.
Richard M. Stallman <rms@gnu.org>
parents: 7639
diff changeset
1126 (interactive "P")
40340d39257d (makefile-mode-name): Removed.
Richard M. Stallman <rms@gnu.org>
parents: 7639
diff changeset
1127 (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
1128 (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
1129 makefile-need-macro-pickup t))
809
8a0066235d56 Initial revision
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
diff changeset
1130 (makefile-pickup-macros)
8a0066235d56 Initial revision
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
diff changeset
1131 (makefile-pickup-targets)
8a0066235d56 Initial revision
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
diff changeset
1132 (if makefile-pickup-everything-picks-up-filenames-p
8a0066235d56 Initial revision
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
diff changeset
1133 (makefile-pickup-filenames-as-targets)))
8a0066235d56 Initial revision
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
diff changeset
1134
8a0066235d56 Initial revision
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
diff changeset
1135 (defun makefile-pickup-filenames-as-targets ()
9758
b9084912762f Changed almost every doc string.
Richard M. Stallman <rms@gnu.org>
parents: 9477
diff changeset
1136 "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
1137 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
1138 and adds all qualifying names to the list of known targets."
809
8a0066235d56 Initial revision
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
diff changeset
1139 (interactive)
62503
c50200e8e7e8 (makefile-add-this-line-targets): Simplify and integrate into `makefile-pickup-targets'.
Daniel Pfeiffer <occitan@esperanto.org>
parents: 62491
diff changeset
1140 (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
1141 (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
1142 (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
1143 (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
1144 (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
1145 (file-name-all-completions "" (or (file-name-directory (buffer-file-name)) ""))))
809
8a0066235d56 Initial revision
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
diff changeset
1146
9454
40340d39257d (makefile-mode-name): Removed.
Richard M. Stallman <rms@gnu.org>
parents: 7639
diff changeset
1147
40340d39257d (makefile-mode-name): Removed.
Richard M. Stallman <rms@gnu.org>
parents: 7639
diff changeset
1148
40340d39257d (makefile-mode-name): Removed.
Richard M. Stallman <rms@gnu.org>
parents: 7639
diff changeset
1149 ;;; Completion.
40340d39257d (makefile-mode-name): Removed.
Richard M. Stallman <rms@gnu.org>
parents: 7639
diff changeset
1150
40340d39257d (makefile-mode-name): Removed.
Richard M. Stallman <rms@gnu.org>
parents: 7639
diff changeset
1151 (defun makefile-complete ()
40340d39257d (makefile-mode-name): Removed.
Richard M. Stallman <rms@gnu.org>
parents: 7639
diff changeset
1152 "Perform completion on Makefile construct preceding point.
40340d39257d (makefile-mode-name): Removed.
Richard M. Stallman <rms@gnu.org>
parents: 7639
diff changeset
1153 Can complete variable and target names.
40340d39257d (makefile-mode-name): Removed.
Richard M. Stallman <rms@gnu.org>
parents: 7639
diff changeset
1154 The context determines which are considered."
40340d39257d (makefile-mode-name): Removed.
Richard M. Stallman <rms@gnu.org>
parents: 7639
diff changeset
1155 (interactive)
40340d39257d (makefile-mode-name): Removed.
Richard M. Stallman <rms@gnu.org>
parents: 7639
diff changeset
1156 (let* ((beg (save-excursion
40340d39257d (makefile-mode-name): Removed.
Richard M. Stallman <rms@gnu.org>
parents: 7639
diff changeset
1157 (skip-chars-backward "^$(){}:#= \t\n")
40340d39257d (makefile-mode-name): Removed.
Richard M. Stallman <rms@gnu.org>
parents: 7639
diff changeset
1158 (point)))
40340d39257d (makefile-mode-name): Removed.
Richard M. Stallman <rms@gnu.org>
parents: 7639
diff changeset
1159 (try (buffer-substring beg (point)))
106381
752b44ae030c (makefile-special-targets-list): No need for it to be an alist any more.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 104778
diff changeset
1160 (paren nil)
752b44ae030c (makefile-special-targets-list): No need for it to be an alist any more.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 104778
diff changeset
1161 (do-macros
752b44ae030c (makefile-special-targets-list): No need for it to be an alist any more.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 104778
diff changeset
1162 (save-excursion
752b44ae030c (makefile-special-targets-list): No need for it to be an alist any more.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 104778
diff changeset
1163 (goto-char beg)
752b44ae030c (makefile-special-targets-list): No need for it to be an alist any more.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 104778
diff changeset
1164 (let ((pc (preceding-char)))
752b44ae030c (makefile-special-targets-list): No need for it to be an alist any more.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 104778
diff changeset
1165 (cond
752b44ae030c (makefile-special-targets-list): No need for it to be an alist any more.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 104778
diff changeset
1166 ;; Preceding "$" means macros only.
752b44ae030c (makefile-special-targets-list): No need for it to be an alist any more.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 104778
diff changeset
1167 ((= pc ?$)
752b44ae030c (makefile-special-targets-list): No need for it to be an alist any more.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 104778
diff changeset
1168 t)
9454
40340d39257d (makefile-mode-name): Removed.
Richard M. Stallman <rms@gnu.org>
parents: 7639
diff changeset
1169
106381
752b44ae030c (makefile-special-targets-list): No need for it to be an alist any more.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 104778
diff changeset
1170 ;; Preceding "$(" or "${" means macros only.
752b44ae030c (makefile-special-targets-list): No need for it to be an alist any more.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 104778
diff changeset
1171 ((and (memq pc '(?\{ ?\())
752b44ae030c (makefile-special-targets-list): No need for it to be an alist any more.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 104778
diff changeset
1172 (progn
752b44ae030c (makefile-special-targets-list): No need for it to be an alist any more.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 104778
diff changeset
1173 (setq paren (if (eq paren ?\{) ?\} ?\)))
752b44ae030c (makefile-special-targets-list): No need for it to be an alist any more.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 104778
diff changeset
1174 (backward-char)
752b44ae030c (makefile-special-targets-list): No need for it to be an alist any more.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 104778
diff changeset
1175 (= (preceding-char) ?$)))
752b44ae030c (makefile-special-targets-list): No need for it to be an alist any more.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 104778
diff changeset
1176 t)))))
9454
40340d39257d (makefile-mode-name): Removed.
Richard M. Stallman <rms@gnu.org>
parents: 7639
diff changeset
1177
106381
752b44ae030c (makefile-special-targets-list): No need for it to be an alist any more.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 104778
diff changeset
1178 (table (apply-partially 'completion-table-with-terminator
752b44ae030c (makefile-special-targets-list): No need for it to be an alist any more.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 104778
diff changeset
1179 (cond
752b44ae030c (makefile-special-targets-list): No need for it to be an alist any more.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 104778
diff changeset
1180 (do-macros (or paren ""))
752b44ae030c (makefile-special-targets-list): No need for it to be an alist any more.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 104778
diff changeset
1181 ((save-excursion (goto-char beg) (bolp)) ":")
752b44ae030c (makefile-special-targets-list): No need for it to be an alist any more.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 104778
diff changeset
1182 (t " "))
752b44ae030c (makefile-special-targets-list): No need for it to be an alist any more.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 104778
diff changeset
1183 (append (if do-macros
752b44ae030c (makefile-special-targets-list): No need for it to be an alist any more.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 104778
diff changeset
1184 '()
752b44ae030c (makefile-special-targets-list): No need for it to be an alist any more.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 104778
diff changeset
1185 makefile-target-table)
752b44ae030c (makefile-special-targets-list): No need for it to be an alist any more.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 104778
diff changeset
1186 makefile-macro-table))))
752b44ae030c (makefile-special-targets-list): No need for it to be an alist any more.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 104778
diff changeset
1187 (completion-in-region beg (point) table)))
9454
40340d39257d (makefile-mode-name): Removed.
Richard M. Stallman <rms@gnu.org>
parents: 7639
diff changeset
1188
40340d39257d (makefile-mode-name): Removed.
Richard M. Stallman <rms@gnu.org>
parents: 7639
diff changeset
1189
40340d39257d (makefile-mode-name): Removed.
Richard M. Stallman <rms@gnu.org>
parents: 7639
diff changeset
1190
9758
b9084912762f Changed almost every doc string.
Richard M. Stallman <rms@gnu.org>
parents: 9477
diff changeset
1191 ;; Backslashification. Stolen from cc-mode.el.
b9084912762f Changed almost every doc string.
Richard M. Stallman <rms@gnu.org>
parents: 9477
diff changeset
1192
17240
9e236e540a59 (makefile-backslash-align): New variable.
Richard M. Stallman <rms@gnu.org>
parents: 17142
diff changeset
1193 (defun makefile-backslash-region (from to delete-flag)
9e236e540a59 (makefile-backslash-align): New variable.
Richard M. Stallman <rms@gnu.org>
parents: 17142
diff changeset
1194 "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
1195 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
1196 With an argument, deletes the backslashes.
9758
b9084912762f Changed almost every doc string.
Richard M. Stallman <rms@gnu.org>
parents: 9477
diff changeset
1197
26136
6e87dd221598 Minor doc fixes.
Dave Love <fx@gnu.org>
parents: 24271
diff changeset
1198 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
1199 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
1200 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
1201 definition and conveniently use this command."
9758
b9084912762f Changed almost every doc string.
Richard M. Stallman <rms@gnu.org>
parents: 9477
diff changeset
1202 (interactive "r\nP")
b9084912762f Changed almost every doc string.
Richard M. Stallman <rms@gnu.org>
parents: 9477
diff changeset
1203 (save-excursion
17240
9e236e540a59 (makefile-backslash-align): New variable.
Richard M. Stallman <rms@gnu.org>
parents: 17142
diff changeset
1204 (goto-char from)
9e236e540a59 (makefile-backslash-align): New variable.
Richard M. Stallman <rms@gnu.org>
parents: 17142
diff changeset
1205 (let ((column makefile-backslash-column)
9e236e540a59 (makefile-backslash-align): New variable.
Richard M. Stallman <rms@gnu.org>
parents: 17142
diff changeset
1206 (endmark (make-marker)))
9e236e540a59 (makefile-backslash-align): New variable.
Richard M. Stallman <rms@gnu.org>
parents: 17142
diff changeset
1207 (move-marker endmark to)
9e236e540a59 (makefile-backslash-align): New variable.
Richard M. Stallman <rms@gnu.org>
parents: 17142
diff changeset
1208 ;; 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
1209 (if makefile-backslash-align
9e236e540a59 (makefile-backslash-align): New variable.
Richard M. Stallman <rms@gnu.org>
parents: 17142
diff changeset
1210 (progn
9e236e540a59 (makefile-backslash-align): New variable.
Richard M. Stallman <rms@gnu.org>
parents: 17142
diff changeset
1211 (if (not delete-flag)
9e236e540a59 (makefile-backslash-align): New variable.
Richard M. Stallman <rms@gnu.org>
parents: 17142
diff changeset
1212 (while (< (point) to)
9e236e540a59 (makefile-backslash-align): New variable.
Richard M. Stallman <rms@gnu.org>
parents: 17142
diff changeset
1213 (end-of-line)
9e236e540a59 (makefile-backslash-align): New variable.
Richard M. Stallman <rms@gnu.org>
parents: 17142
diff changeset
1214 (if (= (preceding-char) ?\\)
9e236e540a59 (makefile-backslash-align): New variable.
Richard M. Stallman <rms@gnu.org>
parents: 17142
diff changeset
1215 (progn (forward-char -1)
9e236e540a59 (makefile-backslash-align): New variable.
Richard M. Stallman <rms@gnu.org>
parents: 17142
diff changeset
1216 (skip-chars-backward " \t")))
9e236e540a59 (makefile-backslash-align): New variable.
Richard M. Stallman <rms@gnu.org>
parents: 17142
diff changeset
1217 (setq column (max column (1+ (current-column))))
9e236e540a59 (makefile-backslash-align): New variable.
Richard M. Stallman <rms@gnu.org>
parents: 17142
diff changeset
1218 (forward-line 1)))
9e236e540a59 (makefile-backslash-align): New variable.
Richard M. Stallman <rms@gnu.org>
parents: 17142
diff changeset
1219 ;; 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
1220 ;; past the margin.
9e236e540a59 (makefile-backslash-align): New variable.
Richard M. Stallman <rms@gnu.org>
parents: 17142
diff changeset
1221 (if (> (% column tab-width) 0)
9e236e540a59 (makefile-backslash-align): New variable.
Richard M. Stallman <rms@gnu.org>
parents: 17142
diff changeset
1222 (let ((adjusted (* (/ (+ column tab-width -1) tab-width)
9e236e540a59 (makefile-backslash-align): New variable.
Richard M. Stallman <rms@gnu.org>
parents: 17142
diff changeset
1223 tab-width)))
9e236e540a59 (makefile-backslash-align): New variable.
Richard M. Stallman <rms@gnu.org>
parents: 17142
diff changeset
1224 (if (< adjusted (window-width))
9e236e540a59 (makefile-backslash-align): New variable.
Richard M. Stallman <rms@gnu.org>
parents: 17142
diff changeset
1225 (setq column adjusted))))))
9e236e540a59 (makefile-backslash-align): New variable.
Richard M. Stallman <rms@gnu.org>
parents: 17142
diff changeset
1226 ;; 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
1227 (goto-char from)
9e236e540a59 (makefile-backslash-align): New variable.
Richard M. Stallman <rms@gnu.org>
parents: 17142
diff changeset
1228 (while (and (< (point) endmark) (eolp))
9e236e540a59 (makefile-backslash-align): New variable.
Richard M. Stallman <rms@gnu.org>
parents: 17142
diff changeset
1229 (forward-line 1))
9e236e540a59 (makefile-backslash-align): New variable.
Richard M. Stallman <rms@gnu.org>
parents: 17142
diff changeset
1230 ;; Add or remove backslashes on all the lines.
9e236e540a59 (makefile-backslash-align): New variable.
Richard M. Stallman <rms@gnu.org>
parents: 17142
diff changeset
1231 (while (and (< (point) endmark)
9e236e540a59 (makefile-backslash-align): New variable.
Richard M. Stallman <rms@gnu.org>
parents: 17142
diff changeset
1232 ;; Don't backslashify the last line
9e236e540a59 (makefile-backslash-align): New variable.
Richard M. Stallman <rms@gnu.org>
parents: 17142
diff changeset
1233 ;; 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
1234 (save-excursion
9e236e540a59 (makefile-backslash-align): New variable.
Richard M. Stallman <rms@gnu.org>
parents: 17142
diff changeset
1235 (forward-line 1)
9e236e540a59 (makefile-backslash-align): New variable.
Richard M. Stallman <rms@gnu.org>
parents: 17142
diff changeset
1236 (< (point) endmark)))
9e236e540a59 (makefile-backslash-align): New variable.
Richard M. Stallman <rms@gnu.org>
parents: 17142
diff changeset
1237 (if (not delete-flag)
9e236e540a59 (makefile-backslash-align): New variable.
Richard M. Stallman <rms@gnu.org>
parents: 17142
diff changeset
1238 (makefile-append-backslash column)
9e236e540a59 (makefile-backslash-align): New variable.
Richard M. Stallman <rms@gnu.org>
parents: 17142
diff changeset
1239 (makefile-delete-backslash))
9e236e540a59 (makefile-backslash-align): New variable.
Richard M. Stallman <rms@gnu.org>
parents: 17142
diff changeset
1240 (forward-line 1))
9e236e540a59 (makefile-backslash-align): New variable.
Richard M. Stallman <rms@gnu.org>
parents: 17142
diff changeset
1241 (move-marker endmark nil))))
9e236e540a59 (makefile-backslash-align): New variable.
Richard M. Stallman <rms@gnu.org>
parents: 17142
diff changeset
1242
9e236e540a59 (makefile-backslash-align): New variable.
Richard M. Stallman <rms@gnu.org>
parents: 17142
diff changeset
1243 (defun makefile-append-backslash (column)
9e236e540a59 (makefile-backslash-align): New variable.
Richard M. Stallman <rms@gnu.org>
parents: 17142
diff changeset
1244 (end-of-line)
9e236e540a59 (makefile-backslash-align): New variable.
Richard M. Stallman <rms@gnu.org>
parents: 17142
diff changeset
1245 ;; Note that "\\\\" is needed to get one backslash.
9e236e540a59 (makefile-backslash-align): New variable.
Richard M. Stallman <rms@gnu.org>
parents: 17142
diff changeset
1246 (if (= (preceding-char) ?\\)
9e236e540a59 (makefile-backslash-align): New variable.
Richard M. Stallman <rms@gnu.org>
parents: 17142
diff changeset
1247 (progn (forward-char -1)
9e236e540a59 (makefile-backslash-align): New variable.
Richard M. Stallman <rms@gnu.org>
parents: 17142
diff changeset
1248 (delete-horizontal-space)
9e236e540a59 (makefile-backslash-align): New variable.
Richard M. Stallman <rms@gnu.org>
parents: 17142
diff changeset
1249 (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
1250 (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
1251 (insert "\\")))
9e236e540a59 (makefile-backslash-align): New variable.
Richard M. Stallman <rms@gnu.org>
parents: 17142
diff changeset
1252
9e236e540a59 (makefile-backslash-align): New variable.
Richard M. Stallman <rms@gnu.org>
parents: 17142
diff changeset
1253 (defun makefile-delete-backslash ()
9e236e540a59 (makefile-backslash-align): New variable.
Richard M. Stallman <rms@gnu.org>
parents: 17142
diff changeset
1254 (end-of-line)
9e236e540a59 (makefile-backslash-align): New variable.
Richard M. Stallman <rms@gnu.org>
parents: 17142
diff changeset
1255 (or (bolp)
9e236e540a59 (makefile-backslash-align): New variable.
Richard M. Stallman <rms@gnu.org>
parents: 17142
diff changeset
1256 (progn
9e236e540a59 (makefile-backslash-align): New variable.
Richard M. Stallman <rms@gnu.org>
parents: 17142
diff changeset
1257 (forward-char -1)
9e236e540a59 (makefile-backslash-align): New variable.
Richard M. Stallman <rms@gnu.org>
parents: 17142
diff changeset
1258 (if (looking-at "\\\\")
9e236e540a59 (makefile-backslash-align): New variable.
Richard M. Stallman <rms@gnu.org>
parents: 17142
diff changeset
1259 (delete-region (1+ (point))
9e236e540a59 (makefile-backslash-align): New variable.
Richard M. Stallman <rms@gnu.org>
parents: 17142
diff changeset
1260 (progn (skip-chars-backward " \t") (point)))))))
9e236e540a59 (makefile-backslash-align): New variable.
Richard M. Stallman <rms@gnu.org>
parents: 17142
diff changeset
1261
9e236e540a59 (makefile-backslash-align): New variable.
Richard M. Stallman <rms@gnu.org>
parents: 17142
diff changeset
1262
9e236e540a59 (makefile-backslash-align): New variable.
Richard M. Stallman <rms@gnu.org>
parents: 17142
diff changeset
1263
9e236e540a59 (makefile-backslash-align): New variable.
Richard M. Stallman <rms@gnu.org>
parents: 17142
diff changeset
1264 ;; Filling
9e236e540a59 (makefile-backslash-align): New variable.
Richard M. Stallman <rms@gnu.org>
parents: 17142
diff changeset
1265
9e236e540a59 (makefile-backslash-align): New variable.
Richard M. Stallman <rms@gnu.org>
parents: 17142
diff changeset
1266 (defun makefile-fill-paragraph (arg)
9e236e540a59 (makefile-backslash-align): New variable.
Richard M. Stallman <rms@gnu.org>
parents: 17142
diff changeset
1267 ;; Fill comments, backslashed lines, and variable definitions
9e236e540a59 (makefile-backslash-align): New variable.
Richard M. Stallman <rms@gnu.org>
parents: 17142
diff changeset
1268 ;; specially.
9e236e540a59 (makefile-backslash-align): New variable.
Richard M. Stallman <rms@gnu.org>
parents: 17142
diff changeset
1269 (save-excursion
9e236e540a59 (makefile-backslash-align): New variable.
Richard M. Stallman <rms@gnu.org>
parents: 17142
diff changeset
1270 (beginning-of-line)
9e236e540a59 (makefile-backslash-align): New variable.
Richard M. Stallman <rms@gnu.org>
parents: 17142
diff changeset
1271 (cond
80508
5a66e871f1e0 (makefile-fill-paragraph): Treat indented comments like unindented ones.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 79717
diff changeset
1272 ((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
1273 ;; 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
1274 nil)
17240
9e236e540a59 (makefile-backslash-align): New variable.
Richard M. Stallman <rms@gnu.org>
parents: 17142
diff changeset
1275
9e236e540a59 (makefile-backslash-align): New variable.
Richard M. Stallman <rms@gnu.org>
parents: 17142
diff changeset
1276 ;; 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
1277 ;; assignment.
47546
2c7b4003c5ad (makefile-cleanup-continuations-p): Rename to makefile-cleanup-continuations.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 47527
diff changeset
1278 ((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
1279 (eq (char-before (line-end-position 0)) ?\\))
17240
9e236e540a59 (makefile-backslash-align): New variable.
Richard M. Stallman <rms@gnu.org>
parents: 17142
diff changeset
1280 ;; A backslash region. Find beginning and end, remove
9e236e540a59 (makefile-backslash-align): New variable.
Richard M. Stallman <rms@gnu.org>
parents: 17142
diff changeset
1281 ;; backslashes, fill, and then reapply backslahes.
9e236e540a59 (makefile-backslash-align): New variable.
Richard M. Stallman <rms@gnu.org>
parents: 17142
diff changeset
1282 (end-of-line)
9e236e540a59 (makefile-backslash-align): New variable.
Richard M. Stallman <rms@gnu.org>
parents: 17142
diff changeset
1283 (let ((beginning
9e236e540a59 (makefile-backslash-align): New variable.
Richard M. Stallman <rms@gnu.org>
parents: 17142
diff changeset
1284 (save-excursion
9e236e540a59 (makefile-backslash-align): New variable.
Richard M. Stallman <rms@gnu.org>
parents: 17142
diff changeset
1285 (end-of-line 0)
9e236e540a59 (makefile-backslash-align): New variable.
Richard M. Stallman <rms@gnu.org>
parents: 17142
diff changeset
1286 (while (= (preceding-char) ?\\)
9e236e540a59 (makefile-backslash-align): New variable.
Richard M. Stallman <rms@gnu.org>
parents: 17142
diff changeset
1287 (end-of-line 0))
9e236e540a59 (makefile-backslash-align): New variable.
Richard M. Stallman <rms@gnu.org>
parents: 17142
diff changeset
1288 (forward-char)
9e236e540a59 (makefile-backslash-align): New variable.
Richard M. Stallman <rms@gnu.org>
parents: 17142
diff changeset
1289 (point)))
9e236e540a59 (makefile-backslash-align): New variable.
Richard M. Stallman <rms@gnu.org>
parents: 17142
diff changeset
1290 (end
9e236e540a59 (makefile-backslash-align): New variable.
Richard M. Stallman <rms@gnu.org>
parents: 17142
diff changeset
1291 (save-excursion
9e236e540a59 (makefile-backslash-align): New variable.
Richard M. Stallman <rms@gnu.org>
parents: 17142
diff changeset
1292 (while (= (preceding-char) ?\\)
9e236e540a59 (makefile-backslash-align): New variable.
Richard M. Stallman <rms@gnu.org>
parents: 17142
diff changeset
1293 (end-of-line 2))
9e236e540a59 (makefile-backslash-align): New variable.
Richard M. Stallman <rms@gnu.org>
parents: 17142
diff changeset
1294 (point))))
9e236e540a59 (makefile-backslash-align): New variable.
Richard M. Stallman <rms@gnu.org>
parents: 17142
diff changeset
1295 (save-restriction
9e236e540a59 (makefile-backslash-align): New variable.
Richard M. Stallman <rms@gnu.org>
parents: 17142
diff changeset
1296 (narrow-to-region beginning end)
9e236e540a59 (makefile-backslash-align): New variable.
Richard M. Stallman <rms@gnu.org>
parents: 17142
diff changeset
1297 (makefile-backslash-region (point-min) (point-max) t)
109944
48114bfd2ed3 * progmodes/make-mode.el (makefile-fill-paragraph): Account for the
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 107536
diff changeset
1298 (let ((fill-paragraph-function nil)
48114bfd2ed3 * progmodes/make-mode.el (makefile-fill-paragraph): Account for the
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 107536
diff changeset
1299 ;; Adjust fill-column to allow space for the backslash.
48114bfd2ed3 * progmodes/make-mode.el (makefile-fill-paragraph): Account for the
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 107536
diff changeset
1300 (fill-column (- fill-column 1)))
17240
9e236e540a59 (makefile-backslash-align): New variable.
Richard M. Stallman <rms@gnu.org>
parents: 17142
diff changeset
1301 (fill-paragraph nil))
9e236e540a59 (makefile-backslash-align): New variable.
Richard M. Stallman <rms@gnu.org>
parents: 17142
diff changeset
1302 (makefile-backslash-region (point-min) (point-max) nil)
9e236e540a59 (makefile-backslash-align): New variable.
Richard M. Stallman <rms@gnu.org>
parents: 17142
diff changeset
1303 (goto-char (point-max))
9e236e540a59 (makefile-backslash-align): New variable.
Richard M. Stallman <rms@gnu.org>
parents: 17142
diff changeset
1304 (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
1305 (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
1306 ;; 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
1307 t)
17240
9e236e540a59 (makefile-backslash-align): New variable.
Richard M. Stallman <rms@gnu.org>
parents: 17142
diff changeset
1308
9e236e540a59 (makefile-backslash-align): New variable.
Richard M. Stallman <rms@gnu.org>
parents: 17142
diff changeset
1309 ((looking-at makefile-macroassign-regex)
9e236e540a59 (makefile-backslash-align): New variable.
Richard M. Stallman <rms@gnu.org>
parents: 17142
diff changeset
1310 ;; 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
1311 ;; resulting region.
9758
b9084912762f Changed almost every doc string.
Richard M. Stallman <rms@gnu.org>
parents: 9477
diff changeset
1312 (save-restriction
41641
66c7637cbf17 Use line-(end|beginning)-position.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 38600
diff changeset
1313 (narrow-to-region (point) (line-beginning-position 2))
109944
48114bfd2ed3 * progmodes/make-mode.el (makefile-fill-paragraph): Account for the
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 107536
diff changeset
1314 (let ((fill-paragraph-function nil)
48114bfd2ed3 * progmodes/make-mode.el (makefile-fill-paragraph): Account for the
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 107536
diff changeset
1315 ;; Adjust fill-column to allow space for the backslash.
48114bfd2ed3 * progmodes/make-mode.el (makefile-fill-paragraph): Account for the
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 107536
diff changeset
1316 (fill-column (- fill-column 1)))
17240
9e236e540a59 (makefile-backslash-align): New variable.
Richard M. Stallman <rms@gnu.org>
parents: 17142
diff changeset
1317 (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
1318 (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
1319 ;; 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
1320 t)
17240
9e236e540a59 (makefile-backslash-align): New variable.
Richard M. Stallman <rms@gnu.org>
parents: 17142
diff changeset
1321
71030
6e1192ac395f (makefile-browser-map, makefile-mode-syntax-table): Move init inside decl.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 70812
diff changeset
1322 (t
6e1192ac395f (makefile-browser-map, makefile-mode-syntax-table): Move init inside decl.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 70812
diff changeset
1323 ;; 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
1324 t))))
9758
b9084912762f Changed almost every doc string.
Richard M. Stallman <rms@gnu.org>
parents: 9477
diff changeset
1325
b9084912762f Changed almost every doc string.
Richard M. Stallman <rms@gnu.org>
parents: 9477
diff changeset
1326
b9084912762f Changed almost every doc string.
Richard M. Stallman <rms@gnu.org>
parents: 9477
diff changeset
1327
809
8a0066235d56 Initial revision
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
diff changeset
1328 ;;; ------------------------------------------------------------
9454
40340d39257d (makefile-mode-name): Removed.
Richard M. Stallman <rms@gnu.org>
parents: 7639
diff changeset
1329 ;;; Browser mode.
809
8a0066235d56 Initial revision
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
diff changeset
1330 ;;; ------------------------------------------------------------
8a0066235d56 Initial revision
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
diff changeset
1331
8a0066235d56 Initial revision
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
diff changeset
1332 (defun makefile-browser-format-target-line (target selected)
8a0066235d56 Initial revision
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
diff changeset
1333 (format
8a0066235d56 Initial revision
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
diff changeset
1334 (concat (make-string makefile-browser-leftmost-column ?\ )
8a0066235d56 Initial revision
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
diff changeset
1335 (if selected
8a0066235d56 Initial revision
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
diff changeset
1336 makefile-browser-selected-mark
8a0066235d56 Initial revision
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
diff changeset
1337 makefile-browser-unselected-mark)
8a0066235d56 Initial revision
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
diff changeset
1338 "%s%s")
8a0066235d56 Initial revision
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
diff changeset
1339 target makefile-target-colon))
8a0066235d56 Initial revision
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
diff changeset
1340
8a0066235d56 Initial revision
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
diff changeset
1341 (defun makefile-browser-format-macro-line (macro selected)
8a0066235d56 Initial revision
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
diff changeset
1342 (format
8a0066235d56 Initial revision
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
diff changeset
1343 (concat (make-string makefile-browser-leftmost-column ?\ )
8a0066235d56 Initial revision
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
diff changeset
1344 (if selected
8a0066235d56 Initial revision
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
diff changeset
1345 makefile-browser-selected-mark
8a0066235d56 Initial revision
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
diff changeset
1346 makefile-browser-unselected-mark)
8a0066235d56 Initial revision
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
diff changeset
1347 (makefile-format-macro-ref macro))))
8a0066235d56 Initial revision
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
diff changeset
1348
8a0066235d56 Initial revision
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
diff changeset
1349 (defun makefile-browser-fill (targets macros)
5820
3443820118a0 (makefile-browser-fill, makefile-browser-toggle):
Richard M. Stallman <rms@gnu.org>
parents: 5464
diff changeset
1350 (let ((inhibit-read-only t))
3443820118a0 (makefile-browser-fill, makefile-browser-toggle):
Richard M. Stallman <rms@gnu.org>
parents: 5464
diff changeset
1351 (goto-char (point-min))
3443820118a0 (makefile-browser-fill, makefile-browser-toggle):
Richard M. Stallman <rms@gnu.org>
parents: 5464
diff changeset
1352 (erase-buffer)
3443820118a0 (makefile-browser-fill, makefile-browser-toggle):
Richard M. Stallman <rms@gnu.org>
parents: 5464
diff changeset
1353 (mapconcat
3443820118a0 (makefile-browser-fill, makefile-browser-toggle):
Richard M. Stallman <rms@gnu.org>
parents: 5464
diff changeset
1354 (function
3443820118a0 (makefile-browser-fill, makefile-browser-toggle):
Richard M. Stallman <rms@gnu.org>
parents: 5464
diff changeset
1355 (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
1356 targets
3443820118a0 (makefile-browser-fill, makefile-browser-toggle):
Richard M. Stallman <rms@gnu.org>
parents: 5464
diff changeset
1357 "")
3443820118a0 (makefile-browser-fill, makefile-browser-toggle):
Richard M. Stallman <rms@gnu.org>
parents: 5464
diff changeset
1358 (mapconcat
3443820118a0 (makefile-browser-fill, makefile-browser-toggle):
Richard M. Stallman <rms@gnu.org>
parents: 5464
diff changeset
1359 (function
3443820118a0 (makefile-browser-fill, makefile-browser-toggle):
Richard M. Stallman <rms@gnu.org>
parents: 5464
diff changeset
1360 (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
1361 macros
3443820118a0 (makefile-browser-fill, makefile-browser-toggle):
Richard M. Stallman <rms@gnu.org>
parents: 5464
diff changeset
1362 "")
3443820118a0 (makefile-browser-fill, makefile-browser-toggle):
Richard M. Stallman <rms@gnu.org>
parents: 5464
diff changeset
1363 (sort-lines nil (point-min) (point-max))
3443820118a0 (makefile-browser-fill, makefile-browser-toggle):
Richard M. Stallman <rms@gnu.org>
parents: 5464
diff changeset
1364 (goto-char (1- (point-max)))
3443820118a0 (makefile-browser-fill, makefile-browser-toggle):
Richard M. Stallman <rms@gnu.org>
parents: 5464
diff changeset
1365 (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
1366 (goto-char (point-min))
3443820118a0 (makefile-browser-fill, makefile-browser-toggle):
Richard M. Stallman <rms@gnu.org>
parents: 5464
diff changeset
1367 (forward-char makefile-browser-cursor-column)))
809
8a0066235d56 Initial revision
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
diff changeset
1368
8a0066235d56 Initial revision
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
diff changeset
1369 ;;;
8a0066235d56 Initial revision
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
diff changeset
1370 ;;; Moving up and down in the browser
8a0066235d56 Initial revision
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
diff changeset
1371 ;;;
8a0066235d56 Initial revision
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
diff changeset
1372
8a0066235d56 Initial revision
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
diff changeset
1373 (defun makefile-browser-next-line ()
8a0066235d56 Initial revision
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
diff changeset
1374 "Move the browser selection cursor to the next line."
8a0066235d56 Initial revision
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
diff changeset
1375 (interactive)
8a0066235d56 Initial revision
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
diff changeset
1376 (if (not (makefile-last-line-p))
8a0066235d56 Initial revision
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
diff changeset
1377 (progn
8a0066235d56 Initial revision
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
diff changeset
1378 (forward-line 1)
8a0066235d56 Initial revision
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
diff changeset
1379 (forward-char makefile-browser-cursor-column))))
8a0066235d56 Initial revision
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
diff changeset
1380
8a0066235d56 Initial revision
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
diff changeset
1381 (defun makefile-browser-previous-line ()
8a0066235d56 Initial revision
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
diff changeset
1382 "Move the browser selection cursor to the previous line."
8a0066235d56 Initial revision
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
diff changeset
1383 (interactive)
8a0066235d56 Initial revision
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
diff changeset
1384 (if (not (makefile-first-line-p))
8a0066235d56 Initial revision
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
diff changeset
1385 (progn
8a0066235d56 Initial revision
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
diff changeset
1386 (forward-line -1)
8a0066235d56 Initial revision
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
diff changeset
1387 (forward-char makefile-browser-cursor-column))))
8a0066235d56 Initial revision
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
diff changeset
1388
8a0066235d56 Initial revision
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
diff changeset
1389 ;;;
8a0066235d56 Initial revision
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
diff changeset
1390 ;;; Quitting the browser (returns to client buffer)
8a0066235d56 Initial revision
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
diff changeset
1391 ;;;
8a0066235d56 Initial revision
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
diff changeset
1392
8a0066235d56 Initial revision
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
diff changeset
1393 (defun makefile-browser-quit ()
9758
b9084912762f Changed almost every doc string.
Richard M. Stallman <rms@gnu.org>
parents: 9477
diff changeset
1394 "Leave the browser and return to the makefile buffer."
809
8a0066235d56 Initial revision
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
diff changeset
1395 (interactive)
8a0066235d56 Initial revision
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
diff changeset
1396 (let ((my-client makefile-browser-client))
8a0066235d56 Initial revision
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
diff changeset
1397 (setq makefile-browser-client nil) ; we quitted, so NO client!
8a0066235d56 Initial revision
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
diff changeset
1398 (set-buffer-modified-p nil)
21096
712fd7860b32 (makefile-browser-quit): Use quit-window.
Richard M. Stallman <rms@gnu.org>
parents: 21000
diff changeset
1399 (quit-window t)
809
8a0066235d56 Initial revision
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
diff changeset
1400 (pop-to-buffer my-client)))
8a0066235d56 Initial revision
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
diff changeset
1401
8a0066235d56 Initial revision
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
diff changeset
1402 ;;;
8a0066235d56 Initial revision
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
diff changeset
1403 ;;; Toggle state of a browser item
8a0066235d56 Initial revision
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
diff changeset
1404 ;;;
8a0066235d56 Initial revision
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
diff changeset
1405
8a0066235d56 Initial revision
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
diff changeset
1406 (defun makefile-browser-toggle ()
8a0066235d56 Initial revision
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
diff changeset
1407 "Toggle the selection state of the browser item at the cursor position."
8a0066235d56 Initial revision
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
diff changeset
1408 (interactive)
8a0066235d56 Initial revision
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
diff changeset
1409 (let ((this-line (count-lines (point-min) (point))))
8a0066235d56 Initial revision
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
diff changeset
1410 (setq this-line (max 1 this-line))
8a0066235d56 Initial revision
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
diff changeset
1411 (makefile-browser-toggle-state-for-line this-line)
104541
f54e4dfe90e2 (makefile-browser-toggle): Use forward-line rather than goto-line.
Glenn Morris <rgm@gnu.org>
parents: 100908
diff changeset
1412 (goto-char (point-min))
f54e4dfe90e2 (makefile-browser-toggle): Use forward-line rather than goto-line.
Glenn Morris <rgm@gnu.org>
parents: 100908
diff changeset
1413 (forward-line (1- this-line))
5820
3443820118a0 (makefile-browser-fill, makefile-browser-toggle):
Richard M. Stallman <rms@gnu.org>
parents: 5464
diff changeset
1414 (let ((inhibit-read-only t))
104541
f54e4dfe90e2 (makefile-browser-toggle): Use forward-line rather than goto-line.
Glenn Morris <rgm@gnu.org>
parents: 100908
diff changeset
1415 (beginning-of-line) ; redundant?
5820
3443820118a0 (makefile-browser-fill, makefile-browser-toggle):
Richard M. Stallman <rms@gnu.org>
parents: 5464
diff changeset
1416 (if (makefile-browser-on-macro-line-p)
3443820118a0 (makefile-browser-fill, makefile-browser-toggle):
Richard M. Stallman <rms@gnu.org>
parents: 5464
diff changeset
1417 (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
1418 (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
1419 (insert
3443820118a0 (makefile-browser-fill, makefile-browser-toggle):
Richard M. Stallman <rms@gnu.org>
parents: 5464
diff changeset
1420 (makefile-browser-format-macro-line
3443820118a0 (makefile-browser-fill, makefile-browser-toggle):
Richard M. Stallman <rms@gnu.org>
parents: 5464
diff changeset
1421 macro-name
3443820118a0 (makefile-browser-fill, makefile-browser-toggle):
Richard M. Stallman <rms@gnu.org>
parents: 5464
diff changeset
1422 (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
1423 (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
1424 (delete-region (point) (progn (end-of-line) (point)))
809
8a0066235d56 Initial revision
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
diff changeset
1425 (insert
5820
3443820118a0 (makefile-browser-fill, makefile-browser-toggle):
Richard M. Stallman <rms@gnu.org>
parents: 5464
diff changeset
1426 (makefile-browser-format-target-line
3443820118a0 (makefile-browser-fill, makefile-browser-toggle):
Richard M. Stallman <rms@gnu.org>
parents: 5464
diff changeset
1427 target-name
3443820118a0 (makefile-browser-fill, makefile-browser-toggle):
Richard M. Stallman <rms@gnu.org>
parents: 5464
diff changeset
1428 (makefile-browser-get-state-for-line this-line))))))
809
8a0066235d56 Initial revision
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
diff changeset
1429 (beginning-of-line)
8a0066235d56 Initial revision
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
diff changeset
1430 (forward-char makefile-browser-cursor-column)
8a0066235d56 Initial revision
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
diff changeset
1431 (if makefile-browser-auto-advance-after-selection-p
8a0066235d56 Initial revision
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
diff changeset
1432 (makefile-browser-next-line))))
8a0066235d56 Initial revision
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
diff changeset
1433
8a0066235d56 Initial revision
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
diff changeset
1434 ;;;
8a0066235d56 Initial revision
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
diff changeset
1435 ;;; Making insertions into the client buffer
8a0066235d56 Initial revision
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
diff changeset
1436 ;;;
8a0066235d56 Initial revision
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
diff changeset
1437
8a0066235d56 Initial revision
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
diff changeset
1438 (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
1439 "Insert a makefile continuation.
9758
b9084912762f Changed almost every doc string.
Richard M. Stallman <rms@gnu.org>
parents: 9477
diff changeset
1440 In the makefile buffer, go to (end-of-line), insert a \'\\\'
809
8a0066235d56 Initial revision
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
diff changeset
1441 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
1442 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
1443 large dependencies from the browser to the client buffer.
7639
67b7d1ea7b2e Doc fix.
Richard M. Stallman <rms@gnu.org>
parents: 7024
diff changeset
1444 \(point) advances accordingly in the client buffer."
809
8a0066235d56 Initial revision
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
diff changeset
1445 (interactive)
41641
66c7637cbf17 Use line-(end|beginning)-position.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 38600
diff changeset
1446 (with-current-buffer makefile-browser-client
809
8a0066235d56 Initial revision
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
diff changeset
1447 (end-of-line)
8a0066235d56 Initial revision
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
diff changeset
1448 (insert "\\\n\t")))
8a0066235d56 Initial revision
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
diff changeset
1449
8a0066235d56 Initial revision
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
diff changeset
1450 (defun makefile-browser-insert-selection ()
9758
b9084912762f Changed almost every doc string.
Richard M. Stallman <rms@gnu.org>
parents: 9477
diff changeset
1451 "Insert all selected targets and/or macros in the makefile buffer.
12936
1548eeb34926 Doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 12912
diff changeset
1452 Insertion takes place at point."
809
8a0066235d56 Initial revision
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
diff changeset
1453 (interactive)
8a0066235d56 Initial revision
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
diff changeset
1454 (save-excursion
104541
f54e4dfe90e2 (makefile-browser-toggle): Use forward-line rather than goto-line.
Glenn Morris <rgm@gnu.org>
parents: 100908
diff changeset
1455 (goto-char (point-min))
809
8a0066235d56 Initial revision
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
diff changeset
1456 (let ((current-line 1))
8a0066235d56 Initial revision
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
diff changeset
1457 (while (not (eobp))
8a0066235d56 Initial revision
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
diff changeset
1458 (if (makefile-browser-get-state-for-line current-line)
8a0066235d56 Initial revision
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
diff changeset
1459 (makefile-browser-send-this-line-item))
8a0066235d56 Initial revision
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
diff changeset
1460 (forward-line 1)
8a0066235d56 Initial revision
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
diff changeset
1461 (setq current-line (1+ current-line))))))
8a0066235d56 Initial revision
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
diff changeset
1462
8a0066235d56 Initial revision
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
diff changeset
1463 (defun makefile-browser-insert-selection-and-quit ()
8a0066235d56 Initial revision
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
diff changeset
1464 (interactive)
8a0066235d56 Initial revision
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
diff changeset
1465 (makefile-browser-insert-selection)
8a0066235d56 Initial revision
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
diff changeset
1466 (makefile-browser-quit))
8a0066235d56 Initial revision
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
diff changeset
1467
8a0066235d56 Initial revision
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
diff changeset
1468 (defun makefile-browser-send-this-line-item ()
8a0066235d56 Initial revision
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
diff changeset
1469 (if (makefile-browser-on-macro-line-p)
8a0066235d56 Initial revision
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
diff changeset
1470 (save-excursion
8a0066235d56 Initial revision
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
diff changeset
1471 (let ((macro-name (makefile-browser-this-line-macro-name)))
8a0066235d56 Initial revision
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
diff changeset
1472 (set-buffer makefile-browser-client)
8a0066235d56 Initial revision
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
diff changeset
1473 (insert (makefile-format-macro-ref macro-name) " ")))
8a0066235d56 Initial revision
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
diff changeset
1474 (save-excursion
8a0066235d56 Initial revision
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
diff changeset
1475 (let ((target-name (makefile-browser-this-line-target-name)))
8a0066235d56 Initial revision
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
diff changeset
1476 (set-buffer makefile-browser-client)
8a0066235d56 Initial revision
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
diff changeset
1477 (insert target-name " ")))))
8a0066235d56 Initial revision
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
diff changeset
1478
8a0066235d56 Initial revision
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
diff changeset
1479 (defun makefile-browser-start-interaction ()
8a0066235d56 Initial revision
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
diff changeset
1480 (use-local-map makefile-browser-map)
8a0066235d56 Initial revision
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
diff changeset
1481 (setq buffer-read-only t))
8a0066235d56 Initial revision
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
diff changeset
1482
8a0066235d56 Initial revision
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
diff changeset
1483 (defun makefile-browse (targets macros)
8a0066235d56 Initial revision
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
diff changeset
1484 (interactive)
8a0066235d56 Initial revision
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
diff changeset
1485 (if (zerop (+ (length targets) (length macros)))
8a0066235d56 Initial revision
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
diff changeset
1486 (progn
8a0066235d56 Initial revision
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
diff changeset
1487 (beep)
8a0066235d56 Initial revision
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
diff changeset
1488 (message "No macros or targets to browse! Consider running 'makefile-pickup-everything\'"))
8a0066235d56 Initial revision
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
diff changeset
1489 (let ((browser-buffer (get-buffer-create makefile-browser-buffer-name)))
8a0066235d56 Initial revision
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
diff changeset
1490 (pop-to-buffer browser-buffer)
8a0066235d56 Initial revision
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
diff changeset
1491 (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
1492 (shrink-window-if-larger-than-buffer)
38418
336177767929 (makefile-browse): Use make-local-variable.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 37469
diff changeset
1493 (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
1494 (make-vector (+ (length targets) (length macros)) nil))
809
8a0066235d56 Initial revision
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
diff changeset
1495 (makefile-browser-start-interaction))))
8a0066235d56 Initial revision
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
diff changeset
1496
8a0066235d56 Initial revision
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
diff changeset
1497 (defun makefile-switch-to-browser ()
8a0066235d56 Initial revision
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
diff changeset
1498 (interactive)
8a0066235d56 Initial revision
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
diff changeset
1499 (run-hooks 'makefile-browser-hook)
8a0066235d56 Initial revision
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
diff changeset
1500 (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
1501 (makefile-pickup-targets)
5f2c2994cbca Rewritten and simplified, commentary added. It now will usually
Eric S. Raymond <esr@snark.thyrsus.com>
parents: 2534
diff changeset
1502 (makefile-pickup-macros)
809
8a0066235d56 Initial revision
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
diff changeset
1503 (makefile-browse makefile-target-table makefile-macro-table))
8a0066235d56 Initial revision
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
diff changeset
1504
9454
40340d39257d (makefile-mode-name): Removed.
Richard M. Stallman <rms@gnu.org>
parents: 7639
diff changeset
1505
809
8a0066235d56 Initial revision
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
diff changeset
1506
8a0066235d56 Initial revision
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
diff changeset
1507 ;;; ------------------------------------------------------------
8a0066235d56 Initial revision
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
diff changeset
1508 ;;; Up-to-date overview buffer
8a0066235d56 Initial revision
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
diff changeset
1509 ;;; ------------------------------------------------------------
8a0066235d56 Initial revision
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
diff changeset
1510
8a0066235d56 Initial revision
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
diff changeset
1511 (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
1512 "Create a buffer containing an overview of the state of all known targets.
809
8a0066235d56 Initial revision
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
diff changeset
1513 Known targets are targets that are explicitly defined in that makefile;
8a0066235d56 Initial revision
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
diff changeset
1514 in other words, all targets that appear on the left hand side of a
8a0066235d56 Initial revision
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
diff changeset
1515 dependency in the makefile."
8a0066235d56 Initial revision
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
diff changeset
1516 (interactive)
8a0066235d56 Initial revision
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
diff changeset
1517 (if (y-or-n-p "Are you sure that the makefile being edited is consistent? ")
8a0066235d56 Initial revision
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
diff changeset
1518 ;;
8a0066235d56 Initial revision
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
diff changeset
1519 ;; The rest of this function operates on a temporary makefile, created by
8a0066235d56 Initial revision
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
diff changeset
1520 ;; writing the current contents of the makefile buffer.
8a0066235d56 Initial revision
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
diff changeset
1521 ;;
8a0066235d56 Initial revision
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
diff changeset
1522 (let ((saved-target-table makefile-target-table)
8a0066235d56 Initial revision
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
diff changeset
1523 (this-buffer (current-buffer))
8a0066235d56 Initial revision
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
diff changeset
1524 (makefile-up-to-date-buffer
8a0066235d56 Initial revision
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
diff changeset
1525 (get-buffer-create makefile-up-to-date-buffer-name))
8a0066235d56 Initial revision
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
diff changeset
1526 (filename (makefile-save-temporary))
8a0066235d56 Initial revision
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
diff changeset
1527 ;;
8a0066235d56 Initial revision
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
diff changeset
1528 ;; Forget the target table because it may contain picked-up filenames
8a0066235d56 Initial revision
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
diff changeset
1529 ;; that are not really targets in the current makefile.
8a0066235d56 Initial revision
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
diff changeset
1530 ;; We don't want to query these, so get a new target-table with just the
8a0066235d56 Initial revision
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
diff changeset
1531 ;; targets that can be found in the makefile buffer.
8a0066235d56 Initial revision
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
diff changeset
1532 ;; The 'old' target table will be restored later.
8a0066235d56 Initial revision
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
diff changeset
1533 ;;
8a0066235d56 Initial revision
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
diff changeset
1534 (real-targets (progn
8a0066235d56 Initial revision
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
diff changeset
1535 (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
1536 makefile-target-table))
5f2c2994cbca Rewritten and simplified, commentary added. It now will usually
Eric S. Raymond <esr@snark.thyrsus.com>
parents: 2534
diff changeset
1537 (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
1538 )
809
8a0066235d56 Initial revision
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
diff changeset
1539
8a0066235d56 Initial revision
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
diff changeset
1540 (set-buffer makefile-up-to-date-buffer)
8a0066235d56 Initial revision
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
diff changeset
1541 (setq buffer-read-only nil)
8a0066235d56 Initial revision
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
diff changeset
1542 (erase-buffer)
2559
5f2c2994cbca Rewritten and simplified, commentary added. It now will usually
Eric S. Raymond <esr@snark.thyrsus.com>
parents: 2534
diff changeset
1543 (makefile-query-targets filename real-targets prereqs)
809
8a0066235d56 Initial revision
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
diff changeset
1544 (if (zerop (buffer-size)) ; if it did not get us anything
8a0066235d56 Initial revision
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
diff changeset
1545 (progn
8a0066235d56 Initial revision
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
diff changeset
1546 (kill-buffer (current-buffer))
8a0066235d56 Initial revision
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
diff changeset
1547 (message "No overview created!")))
8a0066235d56 Initial revision
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
diff changeset
1548 (set-buffer this-buffer)
8a0066235d56 Initial revision
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
diff changeset
1549 (setq makefile-target-table saved-target-table)
8a0066235d56 Initial revision
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
diff changeset
1550 (if (get-buffer makefile-up-to-date-buffer-name)
8a0066235d56 Initial revision
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
diff changeset
1551 (progn
8a0066235d56 Initial revision
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
diff changeset
1552 (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
1553 (shrink-window-if-larger-than-buffer)
809
8a0066235d56 Initial revision
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
diff changeset
1554 (sort-lines nil (point-min) (point-max))
8a0066235d56 Initial revision
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
diff changeset
1555 (setq buffer-read-only t))))))
8a0066235d56 Initial revision
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
diff changeset
1556
8a0066235d56 Initial revision
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
diff changeset
1557 (defun makefile-save-temporary ()
8a0066235d56 Initial revision
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
diff changeset
1558 "Create a temporary file from the current makefile buffer."
8a0066235d56 Initial revision
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
diff changeset
1559 (let ((filename (makefile-generate-temporary-filename)))
8a0066235d56 Initial revision
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
diff changeset
1560 (write-region (point-min) (point-max) filename nil 0)
8a0066235d56 Initial revision
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
diff changeset
1561 filename)) ; return the filename
8a0066235d56 Initial revision
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
diff changeset
1562
8a0066235d56 Initial revision
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
diff changeset
1563 (defun makefile-generate-temporary-filename ()
9758
b9084912762f Changed almost every doc string.
Richard M. Stallman <rms@gnu.org>
parents: 9477
diff changeset
1564 "Create a filename suitable for use in `makefile-save-temporary'.
809
8a0066235d56 Initial revision
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
diff changeset
1565 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
1566 with the generated name!"
809
8a0066235d56 Initial revision
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
diff changeset
1567 (let ((my-name (user-login-name))
8a0066235d56 Initial revision
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
diff changeset
1568 (my-uid (int-to-string (user-uid))))
8a0066235d56 Initial revision
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
diff changeset
1569 (concat "mktmp"
8a0066235d56 Initial revision
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
diff changeset
1570 (if (> (length my-name) 3)
8a0066235d56 Initial revision
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
diff changeset
1571 (substring my-name 0 3)
8a0066235d56 Initial revision
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
diff changeset
1572 my-name)
8a0066235d56 Initial revision
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
diff changeset
1573 "."
8a0066235d56 Initial revision
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
diff changeset
1574 (if (> (length my-uid) 3)
8a0066235d56 Initial revision
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
diff changeset
1575 (substring my-uid 0 3)
8a0066235d56 Initial revision
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
diff changeset
1576 my-uid))))
8a0066235d56 Initial revision
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
diff changeset
1577
2559
5f2c2994cbca Rewritten and simplified, commentary added. It now will usually
Eric S. Raymond <esr@snark.thyrsus.com>
parents: 2534
diff changeset
1578 (defun makefile-query-targets (filename target-table prereq-list)
12936
1548eeb34926 Doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 12912
diff changeset
1579 "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
1580 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
1581 `makefile-query-one-target-method-function'
809
8a0066235d56 Initial revision
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
diff changeset
1582 and generates the overview, one line per target name."
8a0066235d56 Initial revision
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
diff changeset
1583 (insert
2559
5f2c2994cbca Rewritten and simplified, commentary added. It now will usually
Eric S. Raymond <esr@snark.thyrsus.com>
parents: 2534
diff changeset
1584 (mapconcat
5f2c2994cbca Rewritten and simplified, commentary added. It now will usually
Eric S. Raymond <esr@snark.thyrsus.com>
parents: 2534
diff changeset
1585 (function (lambda (item)
5f2c2994cbca Rewritten and simplified, commentary added. It now will usually
Eric S. Raymond <esr@snark.thyrsus.com>
parents: 2534
diff changeset
1586 (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
1587 (no-prereqs (not (member target-name prereq-list)))
26136
6e87dd221598 Minor doc fixes.
Dave Love <fx@gnu.org>
parents: 24271
diff changeset
1588 (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
1589 (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
1590 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
1591 target-name
5f2c2994cbca Rewritten and simplified, commentary added. It now will usually
Eric S. Raymond <esr@snark.thyrsus.com>
parents: 2534
diff changeset
1592 filename))))
5f2c2994cbca Rewritten and simplified, commentary added. It now will usually
Eric S. Raymond <esr@snark.thyrsus.com>
parents: 2534
diff changeset
1593 (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
1594 target-name
5f2c2994cbca Rewritten and simplified, commentary added. It now will usually
Eric S. Raymond <esr@snark.thyrsus.com>
parents: 2534
diff changeset
1595 (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
1596 (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
1597 (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
1598 ))
5f2c2994cbca Rewritten and simplified, commentary added. It now will usually
Eric S. Raymond <esr@snark.thyrsus.com>
parents: 2534
diff changeset
1599 target-table "\n"))
809
8a0066235d56 Initial revision
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
diff changeset
1600 (goto-char (point-min))
8a0066235d56 Initial revision
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
diff changeset
1601 (delete-file filename)) ; remove the tmpfile
8a0066235d56 Initial revision
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
diff changeset
1602
8a0066235d56 Initial revision
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
diff changeset
1603 (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
1604 (not (eq 0
9758
b9084912762f Changed almost every doc string.
Richard M. Stallman <rms@gnu.org>
parents: 9477
diff changeset
1605 (call-process makefile-brave-make nil nil nil
b9084912762f Changed almost every doc string.
Richard M. Stallman <rms@gnu.org>
parents: 9477
diff changeset
1606 "-f" filename "-q" target))))
809
8a0066235d56 Initial revision
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
diff changeset
1607
9454
40340d39257d (makefile-mode-name): Removed.
Richard M. Stallman <rms@gnu.org>
parents: 7639
diff changeset
1608
40340d39257d (makefile-mode-name): Removed.
Richard M. Stallman <rms@gnu.org>
parents: 7639
diff changeset
1609
809
8a0066235d56 Initial revision
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
diff changeset
1610 ;;; ------------------------------------------------------------
8a0066235d56 Initial revision
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
diff changeset
1611 ;;; Continuation cleanup
8a0066235d56 Initial revision
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
diff changeset
1612 ;;; ------------------------------------------------------------
8a0066235d56 Initial revision
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
diff changeset
1613
8a0066235d56 Initial revision
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
diff changeset
1614 (defun makefile-cleanup-continuations ()
95520
29370595f9cc (makefile-cleanup-continuations, makefile-warn-suspicious-lines):
John Paul Wallington <jpw@pobox.com>
parents: 94673
diff changeset
1615 (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
1616 (if (and makefile-cleanup-continuations
809
8a0066235d56 Initial revision
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
diff changeset
1617 (not buffer-read-only))
8a0066235d56 Initial revision
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
diff changeset
1618 (save-excursion
8a0066235d56 Initial revision
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
diff changeset
1619 (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
1620 (while (re-search-forward "\\\\[ \t]+$" nil t)
809
8a0066235d56 Initial revision
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
diff changeset
1621 (replace-match "\\" t t))))))
8a0066235d56 Initial revision
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
diff changeset
1622
6146
1a2a8ef9b4af (makefile-mode): Set local-write-file-hooks, not write-file-hooks.
Richard M. Stallman <rms@gnu.org>
parents: 5820
diff changeset
1623
1a2a8ef9b4af (makefile-mode): Set local-write-file-hooks, not write-file-hooks.
Richard M. Stallman <rms@gnu.org>
parents: 5820
diff changeset
1624 ;;; ------------------------------------------------------------
1a2a8ef9b4af (makefile-mode): Set local-write-file-hooks, not write-file-hooks.
Richard M. Stallman <rms@gnu.org>
parents: 5820
diff changeset
1625 ;;; 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
1626 ;;; ------------------------------------------------------------
1a2a8ef9b4af (makefile-mode): Set local-write-file-hooks, not write-file-hooks.
Richard M. Stallman <rms@gnu.org>
parents: 5820
diff changeset
1627
1a2a8ef9b4af (makefile-mode): Set local-write-file-hooks, not write-file-hooks.
Richard M. Stallman <rms@gnu.org>
parents: 5820
diff changeset
1628 (defun makefile-warn-suspicious-lines ()
28277
18aaefd4bc8f (makefile-warn-suspicious-lines): clean
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 26621
diff changeset
1629 ;; 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
1630 (if (derived-mode-p 'makefile-mode)
28277
18aaefd4bc8f (makefile-warn-suspicious-lines): clean
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 26621
diff changeset
1631 (save-excursion
18aaefd4bc8f (makefile-warn-suspicious-lines): clean
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 26621
diff changeset
1632 (goto-char (point-min))
18aaefd4bc8f (makefile-warn-suspicious-lines): clean
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 26621
diff changeset
1633 (if (re-search-forward "^\\(\t+$\\| +\t\\)" nil t)
18aaefd4bc8f (makefile-warn-suspicious-lines): clean
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 26621
diff changeset
1634 (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
1635 (format "Suspicious line %d. Save anyway? "
28277
18aaefd4bc8f (makefile-warn-suspicious-lines): clean
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 26621
diff changeset
1636 (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
1637
1117d26eaae0 (makefile-cleanup-continuations): Default for variable is nil.
Richard M. Stallman <rms@gnu.org>
parents: 47546
diff changeset
1638 (defun makefile-warn-continuations ()
95520
29370595f9cc (makefile-cleanup-continuations, makefile-warn-suspicious-lines):
John Paul Wallington <jpw@pobox.com>
parents: 94673
diff changeset
1639 (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
1640 (save-excursion
1117d26eaae0 (makefile-cleanup-continuations): Default for variable is nil.
Richard M. Stallman <rms@gnu.org>
parents: 47546
diff changeset
1641 (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
1642 (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
1643 (not (y-or-n-p
1117d26eaae0 (makefile-cleanup-continuations): Default for variable is nil.
Richard M. Stallman <rms@gnu.org>
parents: 47546
diff changeset
1644 (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
1645 (count-lines (point-min) (point)))))))))
9454
40340d39257d (makefile-mode-name): Removed.
Richard M. Stallman <rms@gnu.org>
parents: 7639
diff changeset
1646
6146
1a2a8ef9b4af (makefile-mode): Set local-write-file-hooks, not write-file-hooks.
Richard M. Stallman <rms@gnu.org>
parents: 5820
diff changeset
1647
809
8a0066235d56 Initial revision
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
diff changeset
1648 ;;; ------------------------------------------------------------
8a0066235d56 Initial revision
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
diff changeset
1649 ;;; GNU make function support
8a0066235d56 Initial revision
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
diff changeset
1650 ;;; ------------------------------------------------------------
8a0066235d56 Initial revision
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
diff changeset
1651
8a0066235d56 Initial revision
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
diff changeset
1652 (defun makefile-insert-gmake-function ()
9758
b9084912762f Changed almost every doc string.
Richard M. Stallman <rms@gnu.org>
parents: 9477
diff changeset
1653 "Insert a GNU make function call.
b9084912762f Changed almost every doc string.
Richard M. Stallman <rms@gnu.org>
parents: 9477
diff changeset
1654 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
1655 Then prompts for all required parameters."
809
8a0066235d56 Initial revision
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
diff changeset
1656 (interactive)
8a0066235d56 Initial revision
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
diff changeset
1657 (let* ((gm-function-name (completing-read
8a0066235d56 Initial revision
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
diff changeset
1658 "Function: "
8a0066235d56 Initial revision
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
diff changeset
1659 makefile-gnumake-functions-alist
8a0066235d56 Initial revision
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
diff changeset
1660 nil t nil))
8a0066235d56 Initial revision
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
diff changeset
1661 (gm-function-prompts
8a0066235d56 Initial revision
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
diff changeset
1662 (cdr (assoc gm-function-name makefile-gnumake-functions-alist))))
8a0066235d56 Initial revision
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
diff changeset
1663 (if (not (zerop (length gm-function-name)))
8a0066235d56 Initial revision
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
diff changeset
1664 (insert (makefile-format-macro-ref
8a0066235d56 Initial revision
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
diff changeset
1665 (concat gm-function-name " "
8a0066235d56 Initial revision
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
diff changeset
1666 (makefile-prompt-for-gmake-funargs
8a0066235d56 Initial revision
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
diff changeset
1667 gm-function-name gm-function-prompts)))
8a0066235d56 Initial revision
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
diff changeset
1668 " "))))
8a0066235d56 Initial revision
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
diff changeset
1669
8a0066235d56 Initial revision
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
diff changeset
1670 (defun makefile-prompt-for-gmake-funargs (function-name prompt-list)
8a0066235d56 Initial revision
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
diff changeset
1671 (mapconcat
8a0066235d56 Initial revision
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
diff changeset
1672 (function (lambda (one-prompt)
9758
b9084912762f Changed almost every doc string.
Richard M. Stallman <rms@gnu.org>
parents: 9477
diff changeset
1673 (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
1674 nil)))
809
8a0066235d56 Initial revision
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
diff changeset
1675 prompt-list
8a0066235d56 Initial revision
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
diff changeset
1676 ","))
9758
b9084912762f Changed almost every doc string.
Richard M. Stallman <rms@gnu.org>
parents: 9477
diff changeset
1677
9454
40340d39257d (makefile-mode-name): Removed.
Richard M. Stallman <rms@gnu.org>
parents: 7639
diff changeset
1678
809
8a0066235d56 Initial revision
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
diff changeset
1679
8a0066235d56 Initial revision
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
diff changeset
1680 ;;; ------------------------------------------------------------
8a0066235d56 Initial revision
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
diff changeset
1681 ;;; Utility functions
8a0066235d56 Initial revision
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
diff changeset
1682 ;;; ------------------------------------------------------------
8a0066235d56 Initial revision
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
diff changeset
1683
62276
c1e4bf9803aa (makefile-targets-face, makefile-shell-face, makefile-makepp-perl-face): New faces.
Daniel Pfeiffer <occitan@esperanto.org>
parents: 62082
diff changeset
1684 (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
1685 "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
1686 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
1687 (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
1688 ;; 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
1689 (if (setq s (cond ((string= s "(") ")")
5ac5a5adc028 (makefile-match-function-end): Move point. (Bug#983)
Glenn Morris <rgm@gnu.org>
parents: 95520
diff changeset
1690 ((string= s "{") "}")
5ac5a5adc028 (makefile-match-function-end): Move point. (Bug#983)
Glenn Morris <rgm@gnu.org>
parents: 95520
diff changeset
1691 ((string= s "((") "))")
5ac5a5adc028 (makefile-match-function-end): Move point. (Bug#983)
Glenn Morris <rgm@gnu.org>
parents: 95520
diff changeset
1692 ((string= s "{{") "}}")))
5ac5a5adc028 (makefile-match-function-end): Move point. (Bug#983)
Glenn Morris <rgm@gnu.org>
parents: 95520
diff changeset
1693 (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
1694
62444
24bf25fa47db (makefile-dependency-skip): New variable.
Daniel Pfeiffer <occitan@esperanto.org>
parents: 62412
diff changeset
1695 (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
1696 "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
1697 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
1698 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
1699 (catch 'found
62444
24bf25fa47db (makefile-dependency-skip): New variable.
Daniel Pfeiffer <occitan@esperanto.org>
parents: 62412
diff changeset
1700 (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
1701 (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
1702 (< (point) (or bound (point-max))))
62444
24bf25fa47db (makefile-dependency-skip): New variable.
Daniel Pfeiffer <occitan@esperanto.org>
parents: 62412
diff changeset
1703 (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
1704 (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
1705 (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
1706 (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
1707 (eq (char-before (line-end-position 0)) ?\\))
62444
24bf25fa47db (makefile-dependency-skip): New variable.
Daniel Pfeiffer <occitan@esperanto.org>
parents: 62412
diff changeset
1708 (when (save-excursion
24bf25fa47db (makefile-dependency-skip): New variable.
Daniel Pfeiffer <occitan@esperanto.org>
parents: 62412
diff changeset
1709 (beginning-of-line)
24bf25fa47db (makefile-dependency-skip): New variable.
Daniel Pfeiffer <occitan@esperanto.org>
parents: 62412
diff changeset
1710 (looking-at makefile-dependency-regex))
63067
7738d9700f66 (makefile-dependency-regex): Handle whitespace
Richard M. Stallman <rms@gnu.org>
parents: 62965
diff changeset
1711 (save-excursion
7738d9700f66 (makefile-dependency-regex): Handle whitespace
Richard M. Stallman <rms@gnu.org>
parents: 62965
diff changeset
1712 (let ((deps-end (match-end 1))
7738d9700f66 (makefile-dependency-regex): Handle whitespace
Richard M. Stallman <rms@gnu.org>
parents: 62965
diff changeset
1713 (match-data (match-data)))
7738d9700f66 (makefile-dependency-regex): Handle whitespace
Richard M. Stallman <rms@gnu.org>
parents: 62965
diff changeset
1714 (goto-char deps-end)
7738d9700f66 (makefile-dependency-regex): Handle whitespace
Richard M. Stallman <rms@gnu.org>
parents: 62965
diff changeset
1715 (skip-chars-backward " \t")
7738d9700f66 (makefile-dependency-regex): Handle whitespace
Richard M. Stallman <rms@gnu.org>
parents: 62965
diff changeset
1716 (setq deps-end (point))
7738d9700f66 (makefile-dependency-regex): Handle whitespace
Richard M. Stallman <rms@gnu.org>
parents: 62965
diff changeset
1717 (beginning-of-line)
7738d9700f66 (makefile-dependency-regex): Handle whitespace
Richard M. Stallman <rms@gnu.org>
parents: 62965
diff changeset
1718 (skip-chars-forward " \t")
7738d9700f66 (makefile-dependency-regex): Handle whitespace
Richard M. Stallman <rms@gnu.org>
parents: 62965
diff changeset
1719 ;; Alter the bounds recorded for subexp 1,
7738d9700f66 (makefile-dependency-regex): Handle whitespace
Richard M. Stallman <rms@gnu.org>
parents: 62965
diff changeset
1720 ;; 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
1721 (setcar (nthcdr 2 match-data) (point))
7738d9700f66 (makefile-dependency-regex): Handle whitespace
Richard M. Stallman <rms@gnu.org>
parents: 62965
diff changeset
1722 (setcar (nthcdr 3 match-data) deps-end)
7738d9700f66 (makefile-dependency-regex): Handle whitespace
Richard M. Stallman <rms@gnu.org>
parents: 62965
diff changeset
1723 (store-match-data match-data)))
62444
24bf25fa47db (makefile-dependency-skip): New variable.
Daniel Pfeiffer <occitan@esperanto.org>
parents: 62412
diff changeset
1724 (end-of-line)
24bf25fa47db (makefile-dependency-skip): New variable.
Daniel Pfeiffer <occitan@esperanto.org>
parents: 62412
diff changeset
1725 (throw 'found (point)))))
24bf25fa47db (makefile-dependency-skip): New variable.
Daniel Pfeiffer <occitan@esperanto.org>
parents: 62412
diff changeset
1726 (goto-char pt))
24bf25fa47db (makefile-dependency-skip): New variable.
Daniel Pfeiffer <occitan@esperanto.org>
parents: 62412
diff changeset
1727 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
1728
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
1729 (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
1730 (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
1731 (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
1732 (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
1733 (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
1734
9454
40340d39257d (makefile-mode-name): Removed.
Richard M. Stallman <rms@gnu.org>
parents: 7639
diff changeset
1735 (defun makefile-do-macro-insertion (macro-name)
40340d39257d (makefile-mode-name): Removed.
Richard M. Stallman <rms@gnu.org>
parents: 7639
diff changeset
1736 "Insert a macro reference."
40340d39257d (makefile-mode-name): Removed.
Richard M. Stallman <rms@gnu.org>
parents: 7639
diff changeset
1737 (if (not (zerop (length macro-name)))
40340d39257d (makefile-mode-name): Removed.
Richard M. Stallman <rms@gnu.org>
parents: 7639
diff changeset
1738 (if (assoc macro-name makefile-runtime-macros-list)
40340d39257d (makefile-mode-name): Removed.
Richard M. Stallman <rms@gnu.org>
parents: 7639
diff changeset
1739 (insert "$" macro-name)
40340d39257d (makefile-mode-name): Removed.
Richard M. Stallman <rms@gnu.org>
parents: 7639
diff changeset
1740 (insert (makefile-format-macro-ref macro-name)))))
40340d39257d (makefile-mode-name): Removed.
Richard M. Stallman <rms@gnu.org>
parents: 7639
diff changeset
1741
2559
5f2c2994cbca Rewritten and simplified, commentary added. It now will usually
Eric S. Raymond <esr@snark.thyrsus.com>
parents: 2534
diff changeset
1742 (defun makefile-remember-target (target-name &optional has-prereqs)
809
8a0066235d56 Initial revision
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
diff changeset
1743 "Remember a given target if it is not already remembered for this buffer."
8a0066235d56 Initial revision
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
diff changeset
1744 (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
1745 (progn
809
8a0066235d56 Initial revision
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
diff changeset
1746 (if (not (assoc target-name makefile-target-table))
8a0066235d56 Initial revision
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
diff changeset
1747 (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
1748 (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
1749 (if has-prereqs
5f2c2994cbca Rewritten and simplified, commentary added. It now will usually
Eric S. Raymond <esr@snark.thyrsus.com>
parents: 2534
diff changeset
1750 (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
1751 (cons target-name makefile-has-prereqs))))))
809
8a0066235d56 Initial revision
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
diff changeset
1752
8a0066235d56 Initial revision
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
diff changeset
1753 (defun makefile-remember-macro (macro-name)
8a0066235d56 Initial revision
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
diff changeset
1754 "Remember a given macro if it is not already remembered for this buffer."
8a0066235d56 Initial revision
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
diff changeset
1755 (if (not (zerop (length macro-name)))
8a0066235d56 Initial revision
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
diff changeset
1756 (if (not (assoc macro-name makefile-macro-table))
8a0066235d56 Initial revision
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
diff changeset
1757 (setq makefile-macro-table
8a0066235d56 Initial revision
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
diff changeset
1758 (cons (list macro-name) makefile-macro-table)))))
8a0066235d56 Initial revision
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
diff changeset
1759
8a0066235d56 Initial revision
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
diff changeset
1760 (defun makefile-forward-after-target-colon ()
9758
b9084912762f Changed almost every doc string.
Richard M. Stallman <rms@gnu.org>
parents: 9477
diff changeset
1761 "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
1762 This acts according to the value of `makefile-tab-after-target-colon'."
809
8a0066235d56 Initial revision
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
diff changeset
1763 (if makefile-tab-after-target-colon
8a0066235d56 Initial revision
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
diff changeset
1764 (insert "\t")
8a0066235d56 Initial revision
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
diff changeset
1765 (insert " ")))
8a0066235d56 Initial revision
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
diff changeset
1766
8a0066235d56 Initial revision
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
diff changeset
1767 (defun makefile-browser-on-macro-line-p ()
8a0066235d56 Initial revision
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
diff changeset
1768 "Determine if point is on a macro line in the browser."
8a0066235d56 Initial revision
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
diff changeset
1769 (save-excursion
8a0066235d56 Initial revision
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
diff changeset
1770 (beginning-of-line)
41641
66c7637cbf17 Use line-(end|beginning)-position.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 38600
diff changeset
1771 (re-search-forward "\\$[{(]" (line-end-position) t)))
809
8a0066235d56 Initial revision
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
diff changeset
1772
8a0066235d56 Initial revision
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
diff changeset
1773 (defun makefile-browser-this-line-target-name ()
8a0066235d56 Initial revision
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
diff changeset
1774 "Extract the target name from a line in the browser."
8a0066235d56 Initial revision
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
diff changeset
1775 (save-excursion
8a0066235d56 Initial revision
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
diff changeset
1776 (end-of-line)
8a0066235d56 Initial revision
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
diff changeset
1777 (skip-chars-backward "^ \t")
41641
66c7637cbf17 Use line-(end|beginning)-position.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 38600
diff changeset
1778 (buffer-substring (point) (1- (line-end-position)))))
809
8a0066235d56 Initial revision
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
diff changeset
1779
8a0066235d56 Initial revision
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
diff changeset
1780 (defun makefile-browser-this-line-macro-name ()
8a0066235d56 Initial revision
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
diff changeset
1781 "Extract the macro name from a line in the browser."
8a0066235d56 Initial revision
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
diff changeset
1782 (save-excursion
8a0066235d56 Initial revision
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
diff changeset
1783 (beginning-of-line)
41641
66c7637cbf17 Use line-(end|beginning)-position.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 38600
diff changeset
1784 (re-search-forward "\\$[{(]" (line-end-position) t)
809
8a0066235d56 Initial revision
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
diff changeset
1785 (let ((macro-start (point)))
8a0066235d56 Initial revision
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
diff changeset
1786 (skip-chars-forward "^})")
8a0066235d56 Initial revision
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
diff changeset
1787 (buffer-substring macro-start (point)))))
8a0066235d56 Initial revision
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
diff changeset
1788
8a0066235d56 Initial revision
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
diff changeset
1789 (defun makefile-format-macro-ref (macro-name)
9758
b9084912762f Changed almost every doc string.
Richard M. Stallman <rms@gnu.org>
parents: 9477
diff changeset
1790 "Format a macro reference.
b9084912762f Changed almost every doc string.
Richard M. Stallman <rms@gnu.org>
parents: 9477
diff changeset
1791 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
1792 (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
1793 (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
1794 (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
1795 (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
1796 (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
1797 (format "$(%s)" macro-name))))
809
8a0066235d56 Initial revision
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
diff changeset
1798
8a0066235d56 Initial revision
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
diff changeset
1799 (defun makefile-browser-get-state-for-line (n)
8a0066235d56 Initial revision
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
diff changeset
1800 (aref makefile-browser-selection-vector (1- n)))
8a0066235d56 Initial revision
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
diff changeset
1801
8a0066235d56 Initial revision
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
diff changeset
1802 (defun makefile-browser-set-state-for-line (n to-state)
8a0066235d56 Initial revision
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
diff changeset
1803 (aset makefile-browser-selection-vector (1- n) to-state))
8a0066235d56 Initial revision
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
diff changeset
1804
8a0066235d56 Initial revision
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
diff changeset
1805 (defun makefile-browser-toggle-state-for-line (n)
8a0066235d56 Initial revision
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
diff changeset
1806 (makefile-browser-set-state-for-line n (not (makefile-browser-get-state-for-line n))))
8a0066235d56 Initial revision
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
diff changeset
1807
8a0066235d56 Initial revision
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
diff changeset
1808 (defun makefile-last-line-p ()
41641
66c7637cbf17 Use line-(end|beginning)-position.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 38600
diff changeset
1809 (= (line-end-position) (point-max)))
809
8a0066235d56 Initial revision
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
diff changeset
1810
8a0066235d56 Initial revision
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
diff changeset
1811 (defun makefile-first-line-p ()
41641
66c7637cbf17 Use line-(end|beginning)-position.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 38600
diff changeset
1812 (= (line-beginning-position) (point-min)))
809
8a0066235d56 Initial revision
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
diff changeset
1813
9454
40340d39257d (makefile-mode-name): Removed.
Richard M. Stallman <rms@gnu.org>
parents: 7639
diff changeset
1814
40340d39257d (makefile-mode-name): Removed.
Richard M. Stallman <rms@gnu.org>
parents: 7639
diff changeset
1815
24271
bab606b16c3c Comment changes.
Richard M. Stallman <rms@gnu.org>
parents: 24248
diff changeset
1816 ;;; Support for other packages, like add-log.
9454
40340d39257d (makefile-mode-name): Removed.
Richard M. Stallman <rms@gnu.org>
parents: 7639
diff changeset
1817
40340d39257d (makefile-mode-name): Removed.
Richard M. Stallman <rms@gnu.org>
parents: 7639
diff changeset
1818 (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
1819 "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
1820 If it isn't in one, return nil."
9454
40340d39257d (makefile-mode-name): Removed.
Richard M. Stallman <rms@gnu.org>
parents: 7639
diff changeset
1821 (save-excursion
13847
36556403b62b (makefile-add-log-defun): Rewrite to scan back
Richard M. Stallman <rms@gnu.org>
parents: 13804
diff changeset
1822 (let (found)
36556403b62b (makefile-add-log-defun): Rewrite to scan back
Richard M. Stallman <rms@gnu.org>
parents: 13804
diff changeset
1823 (beginning-of-line)
36556403b62b (makefile-add-log-defun): Rewrite to scan back
Richard M. Stallman <rms@gnu.org>
parents: 13804
diff changeset
1824 ;; 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
1825 ;; 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
1826 ;; 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
1827 (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
1828 (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
1829 (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
1830 (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
1831 ;; 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
1832 (looking-at "$\\|#")
2c7b4003c5ad (makefile-cleanup-continuations-p): Rename to makefile-cleanup-continuations.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 47527
diff changeset
1833 (not (zerop (forward-line -1))))))
65383
4dadc0d80d76 (makefile-add-log-defun): Trim the result.
Richard M. Stallman <rms@gnu.org>
parents: 64699
diff changeset
1834 ;; Remove leading and trailing whitespace.
4dadc0d80d76 (makefile-add-log-defun): Trim the result.
Richard M. Stallman <rms@gnu.org>
parents: 64699
diff changeset
1835 (when found
4dadc0d80d76 (makefile-add-log-defun): Trim the result.
Richard M. Stallman <rms@gnu.org>
parents: 64699
diff changeset
1836 (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
1837 (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
1838 found)))
9454
40340d39257d (makefile-mode-name): Removed.
Richard M. Stallman <rms@gnu.org>
parents: 7639
diff changeset
1839
41642
d00b43e2316c Move `provide' to the end.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 41641
diff changeset
1840 (provide 'make-mode)
d00b43e2316c Move `provide' to the end.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 41641
diff changeset
1841
71030
6e1192ac395f (makefile-browser-map, makefile-mode-syntax-table): Move init inside decl.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 70812
diff changeset
1842 ;; 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
1843 ;;; make-mode.el ends here