Mercurial > emacs
comparison lisp/textmodes/table.el @ 68571:a0b9a3f3fc7a
(*table--cell-describe-mode, *table--cell-describe-bindings): Undo last change
since print-help-return-message is not obsoleted by anything at all.
author | Stefan Monnier <monnier@iro.umontreal.ca> |
---|---|
date | Thu, 02 Feb 2006 15:12:17 +0000 |
parents | fe442ba33e0a |
children | c2a4cb0acf5e d6f8fe3307c8 |
comparison
equal
deleted
inserted
replaced
68570:ccdb6d05d81a | 68571:a0b9a3f3fc7a |
---|---|
4074 in a fixed width mode all cell width are fixed. When a word can not | 4074 in a fixed width mode all cell width are fixed. When a word can not |
4075 fit in the cell width the word is folded into the next line. The | 4075 fit in the cell width the word is folded into the next line. The |
4076 folded location is marked by a continuation character which is | 4076 folded location is marked by a continuation character which is |
4077 specified in the variable `table-word-continuation-char'. | 4077 specified in the variable `table-word-continuation-char'. |
4078 ") | 4078 ") |
4079 (help-print-return-message)))) | 4079 (print-help-return-message)))) |
4080 | 4080 |
4081 (defun *table--cell-describe-bindings () | 4081 (defun *table--cell-describe-bindings () |
4082 "Table cell version of `describe-bindings'." | 4082 "Table cell version of `describe-bindings'." |
4083 (interactive) | 4083 (interactive) |
4084 (if (not (table--point-in-cell-p)) | 4084 (if (not (table--point-in-cell-p)) |
4092 (mapcar (lambda (binding) | 4092 (mapcar (lambda (binding) |
4093 (princ (format "%-16s%s\n" | 4093 (princ (format "%-16s%s\n" |
4094 (key-description (car binding)) | 4094 (key-description (car binding)) |
4095 (cdr binding)))) | 4095 (cdr binding)))) |
4096 table-cell-bindings) | 4096 table-cell-bindings) |
4097 (help-print-return-message)))) | 4097 (print-help-return-message)))) |
4098 | 4098 |
4099 (defun *table--cell-dabbrev-expand (arg) | 4099 (defun *table--cell-dabbrev-expand (arg) |
4100 "Table cell version of `dabbrev-expand'." | 4100 "Table cell version of `dabbrev-expand'." |
4101 (interactive "*P") | 4101 (interactive "*P") |
4102 (let ((dabbrev-abbrev-char-regexp (concat "[^" | 4102 (let ((dabbrev-abbrev-char-regexp (concat "[^" |