diff options
| author | Stefan Monnier <monnier@iro.umontreal.ca> | 2014-03-20 12:00:17 -0400 |
|---|---|---|
| committer | Stefan Monnier <monnier@iro.umontreal.ca> | 2014-03-20 12:00:17 -0400 |
| commit | 049fac7c941e4b7afad0471c209dc15193460282 (patch) | |
| tree | c19fe03babc072525b5eddd0d137560c72c2d1f1 /src/doc.c | |
| parent | caecb91c581d4ec0fc008a35005d8009f43087ee (diff) | |
| download | emacs-049fac7c941e4b7afad0471c209dc15193460282.tar.gz | |
* lisp/emacs-lisp/nadvice.el (advice--make-docstring): Try harder to find
the docstring of functions advised before dumping.
* src/doc.c (store_function_docstring): Warn when we don't know where to
put a docstring.
(Fsubstitute_command_keys): Don't advertise the fact that
text-properties are dropped, since we think it's a bug that we'll fix
in 24.5.
Fixes: debbugs:16993
Diffstat (limited to 'src/doc.c')
| -rw-r--r-- | src/doc.c | 5 |
1 files changed, 4 insertions, 1 deletions
diff --git a/src/doc.c b/src/doc.c index a42874f4503..7e693165c6f 100644 --- a/src/doc.c +++ b/src/doc.c @@ -535,6 +535,9 @@ store_function_docstring (Lisp_Object obj, ptrdiff_t offset) docstring, since we've found a docstring for it. */ if ((ASIZE (fun) & PSEUDOVECTOR_SIZE_MASK) > COMPILED_DOC_STRING) ASET (fun, COMPILED_DOC_STRING, make_number (offset)); + else + message ("No docstring slot for %s", + SYMBOLP (obj) ? SDATA (SYMBOL_NAME (obj)) : "<anonymous>"); } } @@ -707,7 +710,7 @@ as the keymap for future \\=\\[COMMAND] substrings. thus, \\=\\=\\=\\= puts \\=\\= into the output, and \\=\\=\\=\\[ puts \\=\\[ into the output. Return the original STRING if no substitutions are made. -Otherwise, return a new string, without any text properties. */) +Otherwise, return a new string. */) (Lisp_Object string) { char *buf; |