diff options
| author | Richard M. Stallman | 1998-10-13 23:54:54 +0000 |
|---|---|---|
| committer | Richard M. Stallman | 1998-10-13 23:54:54 +0000 |
| commit | 4b37311e137bdcc4e52daf48fb7a0d9e1878209a (patch) | |
| tree | 0e75292b3b518223b59c6e0ee3950f4aee60e543 | |
| parent | 5744fa7c021b199cabb80510c7de6a6fae25ca89 (diff) | |
| download | emacs-4b37311e137bdcc4e52daf48fb7a0d9e1878209a.tar.gz emacs-4b37311e137bdcc4e52daf48fb7a0d9e1878209a.zip | |
Fix previous change.
| -rw-r--r-- | src/minibuf.c | 27 |
1 files changed, 21 insertions, 6 deletions
diff --git a/src/minibuf.c b/src/minibuf.c index 9066f4d6d3e..b1950352d0d 100644 --- a/src/minibuf.c +++ b/src/minibuf.c | |||
| @@ -1934,15 +1934,13 @@ It can find the completion buffer in `standard-output'.") | |||
| 1934 | 1934 | ||
| 1935 | if (BUFFERP (Vstandard_output)) | 1935 | if (BUFFERP (Vstandard_output)) |
| 1936 | { | 1936 | { |
| 1937 | int startpos = BUF_PT (XBUFFER (Vstandard_output)); | 1937 | XSETINT (startpos, BUF_PT (XBUFFER (Vstandard_output))); |
| 1938 | int endpos; | ||
| 1939 | 1938 | ||
| 1940 | Fprinc (string, Qnil); | 1939 | Fprinc (string, Qnil); |
| 1941 | 1940 | ||
| 1942 | endpos = BUF_PT (XBUFFER (Vstandard_output)); | 1941 | XSETINT (endpos, BUF_PT (XBUFFER (Vstandard_output))); |
| 1943 | 1942 | ||
| 1944 | Fput_text_property (make_number (startpos), | 1943 | Fput_text_property (startpos, endpos, |
| 1945 | make_number (endpos), | ||
| 1946 | Qmouse_face, intern ("highlight"), | 1944 | Qmouse_face, intern ("highlight"), |
| 1947 | Vstandard_output); | 1945 | Vstandard_output); |
| 1948 | } | 1946 | } |
| @@ -1953,7 +1951,24 @@ It can find the completion buffer in `standard-output'.") | |||
| 1953 | 1951 | ||
| 1954 | /* Output the annotation for this element. */ | 1952 | /* Output the annotation for this element. */ |
| 1955 | if (CONSP (elt)) | 1953 | if (CONSP (elt)) |
| 1956 | Fprinc (Fcar (Fcdr (elt)), Qnil); | 1954 | { |
| 1955 | if (BUFFERP (Vstandard_output)) | ||
| 1956 | { | ||
| 1957 | XSETINT (startpos, BUF_PT (XBUFFER (Vstandard_output))); | ||
| 1958 | |||
| 1959 | Fprinc (Fcar (Fcdr (elt)), Qnil); | ||
| 1960 | |||
| 1961 | XSETINT (endpos, BUF_PT (XBUFFER (Vstandard_output))); | ||
| 1962 | |||
| 1963 | Fset_text_properties (startpos, endpos, Qnil, | ||
| 1964 | Vstandard_output); | ||
| 1965 | } | ||
| 1966 | else | ||
| 1967 | { | ||
| 1968 | Fprinc (Fcar (Fcdr (elt)), Qnil); | ||
| 1969 | } | ||
| 1970 | } | ||
| 1971 | |||
| 1957 | 1972 | ||
| 1958 | /* Update COLUMN for what we have output. */ | 1973 | /* Update COLUMN for what we have output. */ |
| 1959 | column += length; | 1974 | column += length; |