aboutsummaryrefslogtreecommitdiffstats
path: root/src
diff options
context:
space:
mode:
authorRichard M. Stallman1998-10-13 23:54:54 +0000
committerRichard M. Stallman1998-10-13 23:54:54 +0000
commit4b37311e137bdcc4e52daf48fb7a0d9e1878209a (patch)
tree0e75292b3b518223b59c6e0ee3950f4aee60e543 /src
parent5744fa7c021b199cabb80510c7de6a6fae25ca89 (diff)
downloademacs-4b37311e137bdcc4e52daf48fb7a0d9e1878209a.tar.gz
emacs-4b37311e137bdcc4e52daf48fb7a0d9e1878209a.zip
Fix previous change.
Diffstat (limited to 'src')
-rw-r--r--src/minibuf.c27
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;