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 "[^"