1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
|
;;; hlvar.el --- Permits use of Hyperbole variables in local variable lists.
;; Copyright (C) 1985-1995 Free Software Foundation, Inc.
;; Developed with support from Motorola Inc.
;; Author: Bob Weiner, Brown U.
;; Maintainer: Mats Lidell <matsl@contactor.se>
;; Keywords: extensions, hypermedia
;; This file is part of GNU Hyperbole.
;; GNU Hyperbole is free software; you can redistribute it and/or
;; modify it under the terms of the GNU General Public License as
;; published by the Free Software Foundation; either version 2, or (at
;; your option) any later version.
;; GNU Hyperbole is distributed in the hope that it will be useful,
;; but WITHOUT ANY WARRANTY; without even the implied warranty of
;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
;; General Public License for more details.
;; You should have received a copy of the GNU General Public License
;; along with GNU Emacs; see the file COPYING. If not, write to the
;; Free Software Foundation, Inc., 51 Franklin Street, Fifth Floor,
;; Boston, MA 02110-1301, USA.
;;; Commentary:
;;
;; Hyperbole uses the colon character extensively in its variable names.
;; The standard GNU Emacs syntax for local variable setting does not allow
;; the use of this character, even though it is a valid symbol name
;; character. The code here is slightly modified to support local setting of
;; variables with colons in their names.
;;
;; Where the standard code allows: var:val
; This code requires one use: var: val (where var may include colons)
;;
;; So functionality is gained and none is lost, but a slight incompatibility
;; in protocol is introduced.
;;
;;; Code:
;;;
;;; Public functions
;;;
(defun hack-local-variables (&optional force)
"Parse, and bind or evaluate as appropriate, any local variables
for current buffer."
(if (fboundp 'hack-local-variables-prop-line)
(hack-local-variables-prop-line))
;; Look for "Local variables:" line in last page.
(save-excursion
(goto-char (point-max))
(search-backward "\n\^L" (max (- (point-max) 3000) (point-min)) 'move)
(let (local-start)
(if (let ((case-fold-search t)
(ignore nil))
(and (search-forward "Local Variables:" nil t)
(setq local-start (match-beginning 0))
(or (and (not (string-match "^19\\." emacs-version))
(not inhibit-local-variables))
force
(if (string-match "^19\\." emacs-version)
(cond ((eq enable-local-variables t) t)
((eq enable-local-variables nil)
(setq ignore t))))
(if ignore
nil
(save-window-excursion
(switch-to-buffer (current-buffer))
(save-excursion
(beginning-of-line)
(set-window-start (selected-window) (point)))
(y-or-n-p
(format "Set local variables as specified at end of %s? "
(file-name-nondirectory
buffer-file-name))))))))
(let ((continue t)
prefix prefixlen suffix beg
(enable-local-eval
(if (boundp 'enable-local-eval) enable-local-eval)))
;; The prefix is what comes before "local variables:" in its line.
;; The suffix is what comes after "local variables:" in its line.
(skip-chars-forward " \t")
(or (eolp)
(setq suffix (buffer-substring (point)
(progn (end-of-line) (point)))))
(goto-char local-start)
(or (bolp)
(setq prefix
(buffer-substring (point)
(progn (beginning-of-line) (point)))))
(if prefix (setq prefixlen (length prefix)
prefix (regexp-quote prefix)))
(if suffix (setq suffix (concat (regexp-quote suffix) "$")))
(while continue
;; Look at next local variable spec.
(if selective-display (re-search-forward "[\n\C-m]")
(forward-line 1))
;; Skip the prefix, if any.
(if prefix
(if (looking-at prefix)
(forward-char prefixlen)
(error "Local variables entry is missing the prefix")))
;; Find the variable name; strip whitespace.
(skip-chars-forward " \t")
(setq beg (point))
;;
;; Bob Weiner - changed here to allow colons in var names.
;;
(skip-chars-forward "^ \t\n")
(skip-chars-backward ":")
(or (looking-at "[ \t]*:")
(error "(hack-local-variables): Missing colon in local variables entry"))
;;
;; Bob Weiner - end changes.
;;
(let* ((str (buffer-substring beg (point)))
(var (read str))
val)
;; Setting variable named "end" means end of list.
(if (string-equal (downcase str) "end")
(setq continue nil)
;; Otherwise read the variable value.
(skip-chars-forward "^:")
(forward-char 1)
(setq val (read (current-buffer)))
(skip-chars-backward "\n")
(skip-chars-forward " \t")
(or (if suffix (looking-at suffix) (eolp))
(error "Local variables entry is terminated incorrectly"))
;; Set the variable. "Variables" mode and eval are funny.
(if (fboundp 'hack-one-local-variable)
(hack-one-local-variable var val)
(cond ((eq var 'mode)
(funcall (intern (concat (downcase (symbol-name val))
"-mode"))))
((eq var 'eval)
(if (string= (user-login-name) "root")
(message
"Ignoring `eval:' in file's local variables")
(eval val)))
(t (make-local-variable var)
(set var val))))))))))
(run-hooks 'hack-local-variables-hook)))
;; A new page avoids looking longer backwards for Local Variables
;; section which gets confusing in this file.
(provide 'hlvar)
;;; hlvar.el ends here
|
