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
a62f564f
Commit
a62f564f
authored
Sep 15, 2009
by
Glenn Morris
Browse files
(apropos-documentation-check-doc-file): Avoid assignment to free variable `doc'.
parent
077bf69b
Changes
2
Hide whitespace changes
Inline
Side-by-side
Showing
2 changed files
with
34 additions
and
1 deletion
+34
-1
lisp/ChangeLog
lisp/ChangeLog
+33
-0
lisp/apropos.el
lisp/apropos.el
+1
-1
No files found.
lisp/ChangeLog
View file @
a62f564f
2009-09-15 Glenn Morris <rgm@gnu.org>
* apropos.el (apropos-documentation-check-doc-file): Avoid assignment to
free variable `doc'.
* dired.el (dired-mode-map): Add menu entry for async shell command.
* help-fns.el (find-lisp-object-file-name): When looking for autoloaded
variables, also consider the .elc files, since the .el files are
normally gzipped (subsequent code locates the .el.gz from the .elc).
* calc/calc-prog.el (arglist): Define for compiler.
* calendar/diary-lib.el (diary-display-function): Change the default to
fancy display.
(body): Define for compiler.
* emacs-lisp/bytecomp.el (byte-compile-keep-pending)
(byte-compile-file-form, byte-compile-lambda)
(byte-compile-top-level-body, byte-compile-form)
(byte-compile-variable-ref, byte-compile-setq)
(byte-compile-setq-default, byte-compile-body)
(byte-compile-body-do-effect, byte-compile-and, byte-compile-or)
(batch-byte-compile): Give some more local variables with common names
a "bytecomp-" prefix to avoid masking warnings about free variables.
* mail/rmailmm.el (rmail-mime-save): If file exists, don't try to be
clever and add a suffix to make a unique name, just let the user decide
whether or not to overwrite it. If the input is a directory, write the
default filename to that directory. (Bug#4388)
(rmail-mime-bulk-handler): Ensure the save button's 'directory property
is a filename-as-a-directory.
2009-09-15 Stefan Monnier <monnier@iro.umontreal.ca>
* textmodes/page.el (what-page): Don't move to beginning of line.
...
...
lisp/apropos.el
View file @
a62f564f
...
...
@@ -821,7 +821,7 @@ Returns list of symbols and documentation found."
;; Finds all documentation related to APROPOS-REGEXP in internal-doc-file-name.
(
defun
apropos-documentation-check-doc-file
()
(
let
(
type
symbol
(
sepa
2
)
sepb
)
(
let
(
type
symbol
(
sepa
2
)
sepb
doc
)
(
insert
?\^_
)
(
backward-char
)
(
insert-file-contents
(
concat
doc-directory
internal-doc-file-name
))
...
...
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