aboutsummaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
-rw-r--r--lisp/ChangeLog8
-rw-r--r--lisp/simple.el7
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
123522006-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
123602006-02-04 Eli Zaretskii <eliz@gnu.org> 123522006-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
1911Optional arguments NOT-THIS-WINDOW and FRAME are as for `display-buffer', 1911Optional arguments NOT-THIS-WINDOW and FRAME are as for `display-buffer',
1912and only used if a buffer is displayed." 1912and 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