diff options
| author | Lars Ingebrigtsen | 2019-11-17 10:06:28 +0100 |
|---|---|---|
| committer | Lars Ingebrigtsen | 2019-11-17 10:06:28 +0100 |
| commit | ca3eb85495e61b7255c2c5466fd1cdae7c9fa8d4 (patch) | |
| tree | e2b13746e036f910112f9c9a188457f79e6452cd | |
| parent | 9ac8901b0ae5a6bb75c790832caf4ea9be8df16f (diff) | |
| download | emacs-ca3eb85495e61b7255c2c5466fd1cdae7c9fa8d4.tar.gz emacs-ca3eb85495e61b7255c2c5466fd1cdae7c9fa8d4.zip | |
Make tables more resistant to major mode changes
* lisp/textmodes/table.el (table--put-cell-face-property)
(table--remove-cell-properties): Ensure that we don't lose the
table face when switching from buffers with font locking to ones
without (or vice versa) (bug#35481).
| -rw-r--r-- | lisp/textmodes/table.el | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/lisp/textmodes/table.el b/lisp/textmodes/table.el index 839df035d27..92aaa46ad6d 100644 --- a/lisp/textmodes/table.el +++ b/lisp/textmodes/table.el | |||
| @@ -5151,7 +5151,7 @@ and the right cell border character." | |||
| 5151 | 5151 | ||
| 5152 | (defun table--put-cell-face-property (beg end &optional object) | 5152 | (defun table--put-cell-face-property (beg end &optional object) |
| 5153 | "Put cell face property." | 5153 | "Put cell face property." |
| 5154 | (put-text-property beg end 'face 'table-cell object)) | 5154 | (put-text-property beg end 'font-lock-face 'table-cell object)) |
| 5155 | 5155 | ||
| 5156 | (defun table--put-cell-keymap-property (beg end &optional object) | 5156 | (defun table--put-cell-keymap-property (beg end &optional object) |
| 5157 | "Put cell keymap property." | 5157 | "Put cell keymap property." |
| @@ -5178,7 +5178,7 @@ instead of the current buffer and returns the OBJECT." | |||
| 5178 | 'table-cell nil | 5178 | 'table-cell nil |
| 5179 | 'table-justify nil | 5179 | 'table-justify nil |
| 5180 | 'table-valign nil | 5180 | 'table-valign nil |
| 5181 | 'face nil | 5181 | 'font-lock-face nil |
| 5182 | 'rear-nonsticky nil | 5182 | 'rear-nonsticky nil |
| 5183 | 'cursor-sensor-functions nil | 5183 | 'cursor-sensor-functions nil |
| 5184 | 'keymap nil) | 5184 | 'keymap nil) |