Mercurial > emacs
diff src/doc.c @ 11252:f610f9d7e3ca
(get_doc_string): In (STRING . INTEGER), if INTEGER
is negative, negate it.
author | Richard M. Stallman <rms@gnu.org> |
---|---|
date | Fri, 07 Apr 1995 07:18:00 +0000 |
parents | 9952a5ab70d1 |
children | cee0510aa3aa |
line wrap: on
line diff
--- a/src/doc.c Fri Apr 07 07:17:19 1995 +0000 +++ b/src/doc.c Fri Apr 07 07:18:00 1995 +0000 @@ -72,7 +72,10 @@ /* Extract a doc string from a file. FILEPOS says where to get it. If it is an integer, use that position in the standard DOC-... file. If it is (FILE . INTEGER), use FILE as the file name - and INTEGER as the position in that file. */ + and INTEGER as the position in that file. + But if INTEGER is negative, make it positive. + (A negative integer is used for user variables, so we can distinguish + them without actually fetching the doc string.) */ static Lisp_Object get_doc_string (filepos) @@ -99,6 +102,8 @@ { file = XCONS (filepos)->car; position = XINT (XCONS (filepos)->cdr); + if (position < 0) + position = - position; } else return Qnil;