--- lib/readline/bind.c | 55 ++++++++++++++++++++++++++++++++++++++++++++----------- lib/readline/doc/rluser.texi | 3 ++- lib/readline/rlconf.h | 2 +- 3 files changed, 47 insertions(+), 13 deletions(-) --- lib/readline/bind.c +++ lib/readline/bind.c 2022-04-28 12:11:29.254618915 +0000 @@ -962,6 +962,9 @@ rl_trim_arg_from_keyseq (const char *key /* The last key bindings file read. */ static char *last_readline_init_file = (char *)NULL; +/* Flag to read system init file */ +static int read_system_init_file = 0; + /* The file we're currently reading key bindings from. */ static const char *current_readline_init_file; static int current_readline_init_include_level; @@ -1029,11 +1032,14 @@ rl_re_read_init_file (int count, int ign return r; } +/* Forward declarations */ +static int sv_bell_style PARAMS((const char *)); + /* Do key bindings from a file. If FILENAME is NULL it defaults to the first non-null filename from this list: 1. the filename used for the previous call 2. the value of the shell variable `INPUTRC' - 3. ~/.inputrc + 3. /etc/inputrc and ~/.inputrc 4. /etc/inputrc If the file existed and could be opened and read, 0 is returned, otherwise errno is returned. */ @@ -1042,18 +1048,39 @@ rl_read_init_file (const char *filename) { /* Default the filename. */ if (filename == 0) - filename = last_readline_init_file; - if (filename == 0) - filename = sh_get_env_value ("INPUTRC"); - if (filename == 0 || *filename == 0) + { + filename = last_readline_init_file; + if (filename == 0) + { + filename = sh_get_env_value ("INPUTRC"); + read_system_init_file = 0; + } + if (filename == 0) + { + filename = DEFAULT_INPUTRC; + read_system_init_file = 1; + } + } + + if (*filename == 0) { filename = DEFAULT_INPUTRC; - /* Try to read DEFAULT_INPUTRC; fall back to SYS_INPUTRC on failure */ - if (_rl_read_init_file (filename, 0) == 0) - return 0; - filename = SYS_INPUTRC; + read_system_init_file = 1; } + sv_bell_style(sh_get_env_value("DEFAULT_BELL_STYLE")); + + if (read_system_init_file) + if (filename == last_readline_init_file) + { + filename = savestring (filename); + _rl_read_init_file (SYS_INPUTRC, 0); + free (last_readline_init_file); + last_readline_init_file = filename; + } + else + _rl_read_init_file (SYS_INPUTRC, 0); + #if defined (__MSDOS__) if (_rl_read_init_file (filename, 0) == 0) return 0; @@ -1809,7 +1836,14 @@ rl_parse_and_bind (char *string) rl_macro_bind (seq, &funname[1], _rl_keymap); } else - rl_bind_keyseq (seq, rl_named_function (funname)); + { +#if defined (PREFIX_META_HACK) + if (_rl_stricmp (funname, "prefix-meta") == 0) + rl_generic_bind (ISKMAP, seq, (char *)emacs_meta_keymap, _rl_keymap); + else +#endif + rl_bind_keyseq (seq, rl_named_function (funname)); + } xfree (seq); return 0; @@ -1983,7 +2017,6 @@ typedef int _rl_sv_func_t (const char *) /* Forward declarations */ static int sv_region_start_color (const char *); static int sv_region_end_color (const char *); -static int sv_bell_style (const char *); static int sv_combegin (const char *); static int sv_dispprefix (const char *); static int sv_compquery (const char *); --- lib/readline/doc/rluser.texi +++ lib/readline/doc/rluser.texi 2022-04-28 12:10:02.600171100 +0000 @@ -350,7 +350,8 @@ file is taken from the value of the envi @end ifclear that variable is unset, the default is @file{~/.inputrc}. If that file does not exist or cannot be read, the ultimate default is -@file{/etc/inputrc}. +@file{/etc/inputrc}. If both @file{~/.inputrc} and @file{/etc/inputrc} +exist Readline will read first @file{/etc/inputrc} and then @file{~/.inputrc}. @ifset BashFeatures The @w{@code{bind}} builtin command can also be used to set Readline keybindings and variables. --- lib/readline/rlconf.h +++ lib/readline/rlconf.h 2022-04-28 12:10:02.600171100 +0000 @@ -37,7 +37,7 @@ #define HANDLE_SIGNALS /* Ugly but working hack for binding prefix meta. */ -#define PREFIX_META_HACK +#undef PREFIX_META_HACK /* The next-to-last-ditch effort file name for a user-specific init file. */ #define DEFAULT_INPUTRC "~/.inputrc"