diff options
| author | Joakim Verona | 2012-08-15 21:49:40 +0200 |
|---|---|---|
| committer | Joakim Verona | 2012-08-15 21:49:40 +0200 |
| commit | b648c26ec642a1dc58c0bd7e59d6011b964dbe37 (patch) | |
| tree | f0f3b38ffa9054702f475fc53622e28da14f97b1 /src/doc.c | |
| parent | c8b0fc1999006af5a4317b44068fac13d9592143 (diff) | |
| parent | 94c9ece10275f8ca9323c38f93607f1046035c79 (diff) | |
| download | emacs-b648c26ec642a1dc58c0bd7e59d6011b964dbe37.tar.gz emacs-b648c26ec642a1dc58c0bd7e59d6011b964dbe37.zip | |
upstream
Diffstat (limited to 'src/doc.c')
| -rw-r--r-- | src/doc.c | 4 |
1 files changed, 2 insertions, 2 deletions
| @@ -123,7 +123,7 @@ get_doc_string (Lisp_Object filepos, int unibyte, int definition) | |||
| 123 | /* sizeof ("../etc/") == 8 */ | 123 | /* sizeof ("../etc/") == 8 */ |
| 124 | if (minsize < 8) | 124 | if (minsize < 8) |
| 125 | minsize = 8; | 125 | minsize = 8; |
| 126 | SAFE_ALLOCA (name, char *, minsize + SCHARS (file) + 8); | 126 | name = SAFE_ALLOCA (minsize + SCHARS (file) + 8); |
| 127 | strcpy (name, SSDATA (docdir)); | 127 | strcpy (name, SSDATA (docdir)); |
| 128 | strcat (name, SSDATA (file)); | 128 | strcat (name, SSDATA (file)); |
| 129 | } | 129 | } |
| @@ -508,7 +508,7 @@ store_function_docstring (Lisp_Object obj, ptrdiff_t offset) | |||
| 508 | { | 508 | { |
| 509 | /* Don't use indirect_function here, or defaliases will apply their | 509 | /* Don't use indirect_function here, or defaliases will apply their |
| 510 | docstrings to the base functions (Bug#2603). */ | 510 | docstrings to the base functions (Bug#2603). */ |
| 511 | Lisp_Object fun = SYMBOLP (obj) ? SVAR (XSYMBOL (obj), function) : obj; | 511 | Lisp_Object fun = SYMBOLP (obj) ? XSYMBOL (obj)->function : obj; |
| 512 | 512 | ||
| 513 | /* The type determines where the docstring is stored. */ | 513 | /* The type determines where the docstring is stored. */ |
| 514 | 514 | ||