diff options
| author | Paul Eggert | 2020-01-04 19:12:41 -0800 |
|---|---|---|
| committer | Paul Eggert | 2020-01-04 19:13:23 -0800 |
| commit | 505ed064a090ff544abc1c7b496ebf7658b040ee (patch) | |
| tree | 60470ee7147806003aa02b930f52f9892f520197 /lisp | |
| parent | 39101173fe7434827e69fb92041fd857a9152509 (diff) | |
| download | emacs-505ed064a090ff544abc1c7b496ebf7658b040ee.tar.gz emacs-505ed064a090ff544abc1c7b496ebf7658b040ee.zip | |
; Some that->than fixes.
Diffstat (limited to 'lisp')
| -rw-r--r-- | lisp/disp-table.el | 2 | ||||
| -rw-r--r-- | lisp/speedbar.el | 2 |
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 | ) |