diff options
Diffstat (limited to 'src')
| -rw-r--r-- | src/ChangeLog | 27 | ||||
| -rw-r--r-- | src/dired.c | 3 | ||||
| -rw-r--r-- | src/keymap.c | 7 | ||||
| -rw-r--r-- | src/minibuf.c | 4 |
4 files changed, 29 insertions, 12 deletions
diff --git a/src/ChangeLog b/src/ChangeLog index 7da9270555a..3432652dbe5 100644 --- a/src/ChangeLog +++ b/src/ChangeLog | |||
| @@ -1,4 +1,4 @@ | |||
| 1 | 2011-09-30 Paul Eggert <eggert@cs.ucla.edu> | 1 | 2011-10-02 Paul Eggert <eggert@cs.ucla.edu> |
| 2 | 2 | ||
| 3 | * alloc.c (pure_bytes_used_lisp, pure_bytes_used_non_lisp): | 3 | * alloc.c (pure_bytes_used_lisp, pure_bytes_used_non_lisp): |
| 4 | (allocate_vectorlike, buffer_memory_full, struct sdata, SDATA_SIZE) | 4 | (allocate_vectorlike, buffer_memory_full, struct sdata, SDATA_SIZE) |
| @@ -780,6 +780,21 @@ | |||
| 780 | rather than rolling our own approximation. | 780 | rather than rolling our own approximation. |
| 781 | (SCROLL_BAR_VEC_SIZE): Remove; not used. | 781 | (SCROLL_BAR_VEC_SIZE): Remove; not used. |
| 782 | 782 | ||
| 783 | 2011-10-02 Stefan Monnier <monnier@iro.umontreal.ca> | ||
| 784 | |||
| 785 | * dired.c (file_name_completion): Don't expand file name. | ||
| 786 | (Ffile_name_completion, Ffile_name_all_completions): Expand file name | ||
| 787 | before checking file name handler. | ||
| 788 | |||
| 789 | * minibuf.c (Finternal_complete_buffer): Only show internal buffers if | ||
| 790 | they've been requested explicitly (bug#9591). | ||
| 791 | |||
| 792 | 2011-10-01 Andreas Schwab <schwab@linux-m68k.org> | ||
| 793 | |||
| 794 | * keymap.c (Fsingle_key_description): Use make_specified_string | ||
| 795 | instead of build_string to build string from push_key_description. | ||
| 796 | (Bug#5193) | ||
| 797 | |||
| 783 | 2011-09-30 Paul Eggert <eggert@cs.ucla.edu> | 798 | 2011-09-30 Paul Eggert <eggert@cs.ucla.edu> |
| 784 | 799 | ||
| 785 | * buffer.h (struct buffer): Use time_t, not int, for a time stamp. | 800 | * buffer.h (struct buffer): Use time_t, not int, for a time stamp. |
| @@ -857,8 +872,8 @@ | |||
| 857 | * xdisp.c (handle_invisible_prop): If invisible text ends on a | 872 | * xdisp.c (handle_invisible_prop): If invisible text ends on a |
| 858 | newline, reseat the iterator instead of bidi-iterating there one | 873 | newline, reseat the iterator instead of bidi-iterating there one |
| 859 | character at a time. (Bug#9610) | 874 | character at a time. (Bug#9610) |
| 860 | (BUFFER_POS_REACHED_P, move_it_in_display_line_to): Bail out when | 875 | (BUFFER_POS_REACHED_P, move_it_in_display_line_to): Bail when past |
| 861 | past TO_CHARPOS if the bidi iterator is at base embedding level. | 876 | TO_CHARPOS if the bidi iterator is at base embedding level. |
| 862 | 877 | ||
| 863 | 2011-09-27 Andreas Schwab <schwab@linux-m68k.org> | 878 | 2011-09-27 Andreas Schwab <schwab@linux-m68k.org> |
| 864 | 879 | ||
| @@ -895,9 +910,9 @@ | |||
| 895 | value is now t. Doc fix. | 910 | value is now t. Doc fix. |
| 896 | 911 | ||
| 897 | * indent.c (Fvertical_motion): Compute and apply the overshoot | 912 | * indent.c (Fvertical_motion): Compute and apply the overshoot |
| 898 | logic also when moving up, not only when moving down. Fix the | 913 | logic when moving up, not only when moving down. Fix the |
| 899 | confusing name and values of the it_overshoot_expected variable; | 914 | confusing name and values of the it_overshoot_expected variable; |
| 900 | logic changed accordingly. (Bug#9254) (Bug#9549) | 915 | logic changes accordingly. (Bug#9254) (Bug#9549) |
| 901 | 916 | ||
| 902 | * xdisp.c (pos_visible_p): Produce correct pixel coordinates when | 917 | * xdisp.c (pos_visible_p): Produce correct pixel coordinates when |
| 903 | CHARPOS is covered by a display string which includes newlines. | 918 | CHARPOS is covered by a display string which includes newlines. |
| @@ -913,7 +928,7 @@ | |||
| 913 | 928 | ||
| 914 | 2011-09-24 Jim Meyering <meyering@redhat.com> | 929 | 2011-09-24 Jim Meyering <meyering@redhat.com> |
| 915 | 930 | ||
| 916 | Do not ignore write error for any output size. | 931 | do not ignore write error for any output size |
| 917 | The previous change was incomplete. | 932 | The previous change was incomplete. |
| 918 | While it makes emacs --batch detect the vast majority of stdout | 933 | While it makes emacs --batch detect the vast majority of stdout |
| 919 | write failures, errors were still ignored whenever the output size is | 934 | write failures, errors were still ignored whenever the output size is |
diff --git a/src/dired.c b/src/dired.c index d1b4d410428..db07bc61e7d 100644 --- a/src/dired.c +++ b/src/dired.c | |||
| @@ -401,6 +401,7 @@ determined by the variable `completion-ignored-extensions', which see. */) | |||
| 401 | (Lisp_Object file, Lisp_Object directory, Lisp_Object predicate) | 401 | (Lisp_Object file, Lisp_Object directory, Lisp_Object predicate) |
| 402 | { | 402 | { |
| 403 | Lisp_Object handler; | 403 | Lisp_Object handler; |
| 404 | directory = Fexpand_file_name (directory, Qnil); | ||
| 404 | 405 | ||
| 405 | /* If the directory name has special constructs in it, | 406 | /* If the directory name has special constructs in it, |
| 406 | call the corresponding file handler. */ | 407 | call the corresponding file handler. */ |
| @@ -424,6 +425,7 @@ These are all file names in directory DIRECTORY which begin with FILE. */) | |||
| 424 | (Lisp_Object file, Lisp_Object directory) | 425 | (Lisp_Object file, Lisp_Object directory) |
| 425 | { | 426 | { |
| 426 | Lisp_Object handler; | 427 | Lisp_Object handler; |
| 428 | directory = Fexpand_file_name (directory, Qnil); | ||
| 427 | 429 | ||
| 428 | /* If the directory name has special constructs in it, | 430 | /* If the directory name has special constructs in it, |
| 429 | call the corresponding file handler. */ | 431 | call the corresponding file handler. */ |
| @@ -474,7 +476,6 @@ file_name_completion (Lisp_Object file, Lisp_Object dirname, int all_flag, int v | |||
| 474 | bestmatch = Qnil; | 476 | bestmatch = Qnil; |
| 475 | encoded_file = encoded_dir = Qnil; | 477 | encoded_file = encoded_dir = Qnil; |
| 476 | GCPRO5 (file, dirname, bestmatch, encoded_file, encoded_dir); | 478 | GCPRO5 (file, dirname, bestmatch, encoded_file, encoded_dir); |
| 477 | dirname = Fexpand_file_name (dirname, Qnil); | ||
| 478 | specbind (Qdefault_directory, dirname); | 479 | specbind (Qdefault_directory, dirname); |
| 479 | 480 | ||
| 480 | /* Do completion on the encoded file name | 481 | /* Do completion on the encoded file name |
diff --git a/src/keymap.c b/src/keymap.c index 6287f6a4a44..54134c67043 100644 --- a/src/keymap.c +++ b/src/keymap.c | |||
| @@ -2292,10 +2292,11 @@ around function keys and event symbols. */) | |||
| 2292 | 2292 | ||
| 2293 | if (INTEGERP (key)) /* Normal character */ | 2293 | if (INTEGERP (key)) /* Normal character */ |
| 2294 | { | 2294 | { |
| 2295 | char tem[KEY_DESCRIPTION_SIZE]; | 2295 | char tem[KEY_DESCRIPTION_SIZE], *p; |
| 2296 | 2296 | ||
| 2297 | *push_key_description (XINT (key), tem, 1) = 0; | 2297 | p = push_key_description (XINT (key), tem, 1); |
| 2298 | return build_string (tem); | 2298 | *p = 0; |
| 2299 | return make_specified_string (tem, -1, p - tem, 1); | ||
| 2299 | } | 2300 | } |
| 2300 | else if (SYMBOLP (key)) /* Function key or event-symbol */ | 2301 | else if (SYMBOLP (key)) /* Function key or event-symbol */ |
| 2301 | { | 2302 | { |
diff --git a/src/minibuf.c b/src/minibuf.c index 76443fcf214..9b905f748bb 100644 --- a/src/minibuf.c +++ b/src/minibuf.c | |||
| @@ -1859,8 +1859,8 @@ The arguments STRING and PREDICATE are as in `try-completion', | |||
| 1859 | /* First, look for a non-internal buffer in `res'. */ | 1859 | /* First, look for a non-internal buffer in `res'. */ |
| 1860 | while (CONSP (bufs) && SREF (XCAR (bufs), 0) == ' ') | 1860 | while (CONSP (bufs) && SREF (XCAR (bufs), 0) == ' ') |
| 1861 | bufs = XCDR (bufs); | 1861 | bufs = XCDR (bufs); |
| 1862 | if (NILP (bufs)) | 1862 | if (NILP (bufs) && EQ (Flength (res), Flength (Vbuffer_alist))) |
| 1863 | /* All bufs in `res' are internal, so don't trip them out. */ | 1863 | /* All bufs are internal, so don't trip them out. */ |
| 1864 | return res; | 1864 | return res; |
| 1865 | res = bufs; | 1865 | res = bufs; |
| 1866 | while (CONSP (XCDR (bufs))) | 1866 | while (CONSP (XCDR (bufs))) |