diff options
| -rw-r--r-- | lisp/ChangeLog | 2 | ||||
| -rw-r--r-- | lisp/minibuffer.el | 2 |
2 files changed, 4 insertions, 0 deletions
diff --git a/lisp/ChangeLog b/lisp/ChangeLog index 4b3852bc3d5..12c9d3c7ec4 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog | |||
| @@ -1,5 +1,7 @@ | |||
| 1 | 2010-05-07 Juanma Barranquero <lekktu@gmail.com> | 1 | 2010-05-07 Juanma Barranquero <lekktu@gmail.com> |
| 2 | 2 | ||
| 3 | * minibuffer.el (comps): Declare for byte-compiler. | ||
| 4 | |||
| 3 | Fix use of `filter-buffer-substring' (4th arg NOPROPS removed). | 5 | Fix use of `filter-buffer-substring' (4th arg NOPROPS removed). |
| 4 | * emulation/cua-base.el (cua-repeat-replace-region): | 6 | * emulation/cua-base.el (cua-repeat-replace-region): |
| 5 | * emulation/cua-gmrk.el (cua-copy-region-to-global-mark) | 7 | * emulation/cua-gmrk.el (cua-copy-region-to-global-mark) |
diff --git a/lisp/minibuffer.el b/lisp/minibuffer.el index 31bdb6993fa..9ebaf52c886 100644 --- a/lisp/minibuffer.el +++ b/lisp/minibuffer.el | |||
| @@ -1987,6 +1987,8 @@ filter out additional entries (because TABLE migth not obey PRED)." | |||
| 1987 | "Like `reverse' but for a string STR rather than a list." | 1987 | "Like `reverse' but for a string STR rather than a list." |
| 1988 | (apply 'string (nreverse (mapcar 'identity str)))) | 1988 | (apply 'string (nreverse (mapcar 'identity str)))) |
| 1989 | 1989 | ||
| 1990 | (defvar comps) | ||
| 1991 | |||
| 1990 | (defun completion--common-suffix (strs) | 1992 | (defun completion--common-suffix (strs) |
| 1991 | "Return the common suffix of the strings STRS." | 1993 | "Return the common suffix of the strings STRS." |
| 1992 | (completion--sreverse | 1994 | (completion--sreverse |