aboutsummaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorErik Naggum1995-12-03 01:51:01 +0000
committerErik Naggum1995-12-03 01:51:01 +0000
commit12c9fbcc14726bf374070d485a13f0aff4e8268b (patch)
treeda53c07cc4b74490a125bfbfb5a5f080aeb1a3be
parentf3acf6f52a3d85421490a8fe7843a14e22cbe329 (diff)
downloademacs-12c9fbcc14726bf374070d485a13f0aff4e8268b.tar.gz
emacs-12c9fbcc14726bf374070d485a13f0aff4e8268b.zip
(display-table-slot,set-display-table-slot): Document the slot names.
-rw-r--r--lisp/disp-table.el7
1 files changed, 5 insertions, 2 deletions
diff --git a/lisp/disp-table.el b/lisp/disp-table.el
index afe4d0d4423..67ecbe87872 100644
--- a/lisp/disp-table.el
+++ b/lisp/disp-table.el
@@ -47,7 +47,9 @@
47;;;###autoload 47;;;###autoload
48(defun display-table-slot (display-table slot) 48(defun display-table-slot (display-table slot)
49 "Return the value of the extra slot in DISPLAY-TABLE named SLOT. 49 "Return the value of the extra slot in DISPLAY-TABLE named SLOT.
50SLOT may be a number from 0 to 5 inclusive, or a slot name (symbol)." 50SLOT may be a number from 0 to 5 inclusive, or a slot name (symbol).
51Valid symbols are `truncation', `wrap', `escape', `control',
52`selective-display', and `vertical-border'."
51 (let ((slot-number 53 (let ((slot-number
52 (if (numberp slot) slot 54 (if (numberp slot) slot
53 (or (get slot 'display-table-slot) 55 (or (get slot 'display-table-slot)
@@ -58,7 +60,8 @@ SLOT may be a number from 0 to 5 inclusive, or a slot name (symbol)."
58(defun set-display-table-slot (display-table slot value) 60(defun set-display-table-slot (display-table slot value)
59 "Set the value of the extra slot in DISPLAY-TABLE named SLOT to VALUE. 61 "Set the value of the extra slot in DISPLAY-TABLE named SLOT to VALUE.
60SLOT may be a number from 0 to 5 inclusive, or a name (symbol). 62SLOT may be a number from 0 to 5 inclusive, or a name (symbol).
61See `display-table-slot-name-alist' for the names and numbers." 63Valid symbols are `truncation', `wrap', `escape', `control',
64`selective-display', and `vertical-border'."
62 (let ((slot-number 65 (let ((slot-number
63 (if (numberp slot) slot 66 (if (numberp slot) slot
64 (or (get slot 'display-table-slot) 67 (or (get slot 'display-table-slot)