Skip to content
GitLab
Projects
Groups
Snippets
/
Help
Help
Support
Community forum
Keyboard shortcuts
?
Submit feedback
Contribute to GitLab
Sign in / Register
Toggle navigation
Menu
Open sidebar
lyskom-elisp-client
lyskom-elisp-client
Commits
f02db491
Commit
f02db491
authored
Jun 11, 1999
by
David Byers
Browse files
Moved definition of kbd to compatibility.el
parent
5ed861fa
Changes
2
Hide whitespace changes
Inline
Side-by-side
src/compatibility.el
View file @
f02db491
...
...
@@ -135,6 +135,22 @@ of the lyskom-provide-* functions instead."
(
put
'lyskom-xemacs-or-gnu
'edebug-form-spec
'
(
form
form
))
;;; ======================================================================
;;; Defining keys
;;;
(
lyskom-provide-macro
kbd
(
keys
)
"Convert KEYS to the internal Emacs key representation.
KEYS should be a string in the format used for saving keyboard macros
\(see `insert-kbd-macro')."
(
if
(
or
(
stringp
keys
)
(
vectorp
keys
))
(
read-kbd-macro
keys
)
`
(
read-kbd-macro
,
keys
)))
;;; ======================================================================
;;; ======================================================================
;;; ======================================================================
...
...
src/macros.el
View file @
f02db491
...
...
@@ -44,23 +44,6 @@
(
require
'custom
)
(
require
'widget
)
;;; ======================================================================
;;; Defining keys
;;;
(
or
(
fboundp
'kbd
)
(
defmacro
kbd
(
keys
)
"Convert KEYS to the internal Emacs key representation.
KEYS should be a string in the format used for saving keyboard macros
\(see `insert-kbd-macro')."
(
if
(
or
(
stringp
keys
)
(
vectorp
keys
))
(
read-kbd-macro
keys
)
`
(
read-kbd-macro
,
keys
))))
;;; ======================================================================
;;; lyskom-traverse - traverse a sequence.
;;;
...
...
@@ -127,7 +110,7 @@ Value returned is always nil."
'
(
set-buffer
__buffer__
))))
(
put
'lyskom-save-excursion
'edebug-form-spec
t
)
(
put
'lyskom-
provide-macro
'lisp-indent-hook
2
)
(
put
'lyskom-
save-excursion
'lisp-indent-hook
0
)
;;; ======================================================================
;;; Some useful macros to make the code more readable.
...
...
Write
Preview
Supports
Markdown
0%
Try again
or
attach a new 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