diff options
| -rw-r--r-- | lisp/ChangeLog | 8 | ||||
| -rw-r--r-- | lisp/simple.el | 7 |
2 files changed, 2 insertions, 13 deletions
diff --git a/lisp/ChangeLog b/lisp/ChangeLog index 1a43823920c..b119505d032 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog | |||
| @@ -12349,14 +12349,6 @@ | |||
| 12349 | * files.el (magic-mode-regexp-match-limit): New defvar. | 12349 | * files.el (magic-mode-regexp-match-limit): New defvar. |
| 12350 | (set-auto-mode): Use it to limit magic-mode-alist matching. | 12350 | (set-auto-mode): Use it to limit magic-mode-alist matching. |
| 12351 | 12351 | ||
| 12352 | 2006-02-04 Kevin Rodgers <ihs_4664@yahoo.com> | ||
| 12353 | |||
| 12354 | * simple.el (display-message-or-buffer): Compare the number of | ||
| 12355 | characters to the frame width when determining whether a 1-line | ||
| 12356 | message string will fit in the echo area. Count screen lines | ||
| 12357 | instead of buffer lines when determining whether a multi-line | ||
| 12358 | message will fit in the echo area/minibuffer window. | ||
| 12359 | |||
| 12360 | 2006-02-04 Eli Zaretskii <eliz@gnu.org> | 12352 | 2006-02-04 Eli Zaretskii <eliz@gnu.org> |
| 12361 | 12353 | ||
| 12362 | * info.el (Info-index, Info-mode): Improve the description of the | 12354 | * info.el (Info-index, Info-mode): Improve the description of the |
diff --git a/lisp/simple.el b/lisp/simple.el index 1f233de9857..5bbfa317958 100644 --- a/lisp/simple.el +++ b/lisp/simple.el | |||
| @@ -1910,14 +1910,11 @@ the contents are inserted into the buffer anyway. | |||
| 1910 | 1910 | ||
| 1911 | Optional arguments NOT-THIS-WINDOW and FRAME are as for `display-buffer', | 1911 | Optional arguments NOT-THIS-WINDOW and FRAME are as for `display-buffer', |
| 1912 | and only used if a buffer is displayed." | 1912 | and only used if a buffer is displayed." |
| 1913 | (cond ((and (stringp message) | 1913 | (cond ((and (stringp message) (not (string-match "\n" message))) |
| 1914 | (not (string-match "\n" message)) | ||
| 1915 | (<= (length message) (frame-width))) | ||
| 1916 | ;; Trivial case where we can use the echo area | 1914 | ;; Trivial case where we can use the echo area |
| 1917 | (message "%s" message)) | 1915 | (message "%s" message)) |
| 1918 | ((and (stringp message) | 1916 | ((and (stringp message) |
| 1919 | (= (string-match "\n" message) (1- (length message))) | 1917 | (= (string-match "\n" message) (1- (length message)))) |
| 1920 | (<= (1- (length message)) (frame-width))) | ||
| 1921 | ;; Trivial case where we can just remove single trailing newline | 1918 | ;; Trivial case where we can just remove single trailing newline |
| 1922 | (message "%s" (substring message 0 (1- (length message))))) | 1919 | (message "%s" (substring message 0 (1- (length message))))) |
| 1923 | (t | 1920 | (t |