aboutsummaryrefslogtreecommitdiffstats
path: root/lisp
diff options
context:
space:
mode:
authorPaul Eggert2020-01-04 19:12:41 -0800
committerPaul Eggert2020-01-04 19:13:23 -0800
commit505ed064a090ff544abc1c7b496ebf7658b040ee (patch)
tree60470ee7147806003aa02b930f52f9892f520197 /lisp
parent39101173fe7434827e69fb92041fd857a9152509 (diff)
downloademacs-505ed064a090ff544abc1c7b496ebf7658b040ee.tar.gz
emacs-505ed064a090ff544abc1c7b496ebf7658b040ee.zip
; Some that->than fixes.
Diffstat (limited to 'lisp')
-rw-r--r--lisp/disp-table.el2
-rw-r--r--lisp/speedbar.el2
2 files changed, 2 insertions, 2 deletions
diff --git a/lisp/disp-table.el b/lisp/disp-table.el
index fe63573c0a3..2e88d350245 100644
--- a/lisp/disp-table.el
+++ b/lisp/disp-table.el
@@ -221,7 +221,7 @@ for a graphical frame."
221(defun make-glyph-code (char &optional face) 221(defun make-glyph-code (char &optional face)
222 "Return a glyph code representing char CHAR with face FACE." 222 "Return a glyph code representing char CHAR with face FACE."
223 ;; Due to limitations on Emacs integer values, faces with 223 ;; Due to limitations on Emacs integer values, faces with
224 ;; face id greater that 512 are silently ignored. 224 ;; face id greater than 512 are silently ignored.
225 (if (not face) 225 (if (not face)
226 char 226 char
227 (let ((fid (face-id face))) 227 (let ((fid (face-id face)))
diff --git a/lisp/speedbar.el b/lisp/speedbar.el
index 646f3289110..4b5129f33c7 100644
--- a/lisp/speedbar.el
+++ b/lisp/speedbar.el
@@ -1703,7 +1703,7 @@ argument."
1703 (put-text-property start end 'help-echo #'dframe-help-echo)) 1703 (put-text-property start end 'help-echo #'dframe-help-echo))
1704 (if function (put-text-property start end 'speedbar-function function)) 1704 (if function (put-text-property start end 'speedbar-function function))
1705 (if token (put-text-property start end 'speedbar-token token)) 1705 (if token (put-text-property start end 'speedbar-token token))
1706 ;; So far the only text we have is less that 3 chars. 1706 ;; So far the only text we have is less than 3 chars.
1707 (if (<= (- end start) 3) 1707 (if (<= (- end start) 3)
1708 (speedbar-insert-image-button-maybe start (- end start))) 1708 (speedbar-insert-image-button-maybe start (- end start)))
1709 ) 1709 )