Skip to content
GitLab
Projects
Groups
Snippets
Help
Loading...
Help
Help
Support
Community forum
Keyboard shortcuts
?
Submit feedback
Contribute to GitLab
Sign in / Register
Toggle navigation
Open sidebar
emacs
emacs
Commits
861d9ef6
Commit
861d9ef6
authored
Nov 27, 2001
by
Stefan Monnier
Browse files
(describe-categories, help-describe-category-set): New.
parent
1d475b5e
Changes
1
Hide whitespace changes
Inline
Side-by-side
Showing
1 changed file
with
31 additions
and
0 deletions
+31
-0
lisp/help-fns.el
lisp/help-fns.el
+31
-0
No files found.
lisp/help-fns.el
View file @
861d9ef6
...
...
@@ -452,6 +452,37 @@ BUFFER defaults to the current buffer."
(
insert
"\nThe parent syntax table is:"
)
(
describe-vector
table
'internal-describe-syntax-value
))))))
(
defun
help-describe-category-set
(
value
)
(
insert
(
cond
((
null
value
)
"default"
)
((
char-table-p
value
)
"deeper char-table ..."
)
(
t
(
condition-case
err
(
category-set-mnemonics
value
)
(
error
"invalid"
))))))
;;;###autoload
(
defun
describe-categories
(
&optional
buffer
)
"Describe the category specifications in the current category table.
The descriptions are inserted in a buffer, which is then displayed."
(
interactive
)
(
setq
buffer
(
or
buffer
(
current-buffer
)))
(
help-setup-xref
(
list
#'
describe-categories
buffer
)
(
interactive-p
))
(
with-output-to-temp-buffer
(
help-buffer
)
(
let
((
table
(
with-current-buffer
buffer
(
category-table
))))
(
with-current-buffer
standard-output
(
describe-vector
table
'help-describe-category-set
)
(
let
((
docs
(
char-table-extra-slot
table
0
)))
(
if
(
or
(
not
(
vectorp
docs
))
(
/=
(
length
docs
)
95
))
(
insert
"Invalid first extra slot in this char table\n"
)
(
insert
"Meanings of mnemonic characters are:\n"
)
(
dotimes
(
i
95
)
(
let
((
elt
(
aref
docs
i
)))
(
when
elt
(
insert
(
+
i
?\
)
": "
elt
"\n"
))))
(
while
(
setq
table
(
char-table-parent
table
))
(
insert
"\nThe parent category table is:"
)
(
describe-vector
table
'help-describe-category-set
))))))))
(
provide
'help-fns
)
;;; help-fns.el ends here
Write
Preview
Markdown
is supported
0%
Try again
or
attach a new file
.
Attach a file
Cancel
You are about to add
0
people
to the discussion. Proceed with caution.
Finish editing this message first!
Cancel
Please
register
or
sign in
to comment