Skip to content
GitLab
Projects
Groups
Snippets
Help
Loading...
Help
Help
Support
Community forum
Keyboard shortcuts
?
Submit feedback
Contribute to GitLab
Sign in / Register
Toggle navigation
Open sidebar
emacs
emacs
Commits
f954e891
Commit
f954e891
authored
Nov 14, 2002
by
Markus Rost
Browse files
(custom-make-dependencies): Bind load-file-name.
parent
1b527a7e
Changes
2
Hide whitespace changes
Inline
Side-by-side
Showing
2 changed files
with
9 additions
and
1 deletion
+9
-1
lisp/ChangeLog
lisp/ChangeLog
+7
-0
lisp/cus-dep.el
lisp/cus-dep.el
+2
-1
No files found.
lisp/ChangeLog
View file @
f954e891
2002-11-14 Markus Rost <rost@math.ohio-state.edu>
* custom.el (custom-declare-group): Remove unnecessary line of
code.
* cus-dep.el (custom-make-dependencies): Bind load-file-name.
2002-11-14 Edward M. Reingold <reingold@emr.cs.iit.edu>
2002-11-14 Edward M. Reingold <reingold@emr.cs.iit.edu>
* calendar/diary-lib.el (make-diary-entry): Allow for local variables
* calendar/diary-lib.el (make-diary-entry): Allow for local variables
...
...
lisp/cus-dep.el
View file @
f954e891
...
@@ -54,7 +54,8 @@ Usage: emacs -batch -l ./cus-dep.el -f custom-make-dependencies DIRS"
...
@@ -54,7 +54,8 @@ Usage: emacs -batch -l ./cus-dep.el -f custom-make-dependencies DIRS"
(
insert-file-contents
file
)
(
insert-file-contents
file
)
(
goto-char
(
point-min
))
(
goto-char
(
point-min
))
(
string-match
"\\`\\(.*\\)\\.el\\'"
file
)
(
string-match
"\\`\\(.*\\)\\.el\\'"
file
)
(
let
((
name
(
file-name-nondirectory
(
match-string
1
file
))))
(
let
((
name
(
file-name-nondirectory
(
match-string
1
file
)))
(
load-file-name
file
))
(
if
(
save-excursion
(
if
(
save-excursion
(
re-search-forward
(
re-search-forward
(
concat
"(provide[ \t\n]+\\('\\|(quote[ \t\n]\\)[ \t\n]*"
(
concat
"(provide[ \t\n]+\\('\\|(quote[ \t\n]\\)[ \t\n]*"
...
...
Write
Preview
Markdown
is supported
0%
Try again
or
attach a new file
.
Attach a file
Cancel
You are about to add
0
people
to the discussion. Proceed with caution.
Finish editing this message first!
Cancel
Please
register
or
sign in
to comment