diff options
| author | Jim Blandy <jimb@redhat.com> | 1993-03-09 23:40:36 +0000 |
|---|---|---|
| committer | Jim Blandy <jimb@redhat.com> | 1993-03-09 23:40:36 +0000 |
| commit | 330fba95d271993666bf03d2ce4cf7250178feb2 (patch) | |
| tree | c8e64e02cdfbd13be5ba534f8e58a738c59f2409 /lisp/emacs-lisp/lucid.el | |
| parent | 92e30bc5e0b07ce719bf810f76ab1079a6ed1a94 (diff) | |
| download | emacs-330fba95d271993666bf03d2ce4cf7250178feb2.tar.gz emacs-330fba95d271993666bf03d2ce4cf7250178feb2.tar.bz2 emacs-330fba95d271993666bf03d2ce4cf7250178feb2.zip | |
*** empty log message ***
Diffstat (limited to 'lisp/emacs-lisp/lucid.el')
| -rw-r--r-- | lisp/emacs-lisp/lucid.el | 41 |
1 files changed, 41 insertions, 0 deletions
diff --git a/lisp/emacs-lisp/lucid.el b/lisp/emacs-lisp/lucid.el index 8ee8603694d..36600f540b6 100644 --- a/lisp/emacs-lisp/lucid.el +++ b/lisp/emacs-lisp/lucid.el @@ -3,3 +3,44 @@ (defun disable-timeout (timeout) (cancel-timer timeout)) + +(defun copy-tree (tree) + (if (consp tree) + (cons (copy-tree (car tree)) + (copy-tree (cdr tree))) + (if (vectorp tree) + (let ((new (copy-sequence tree)) + (i (1- (length new)))) + (while (>= i 0) + (aset new i (copy-tree (aref new i))) + (setq i (1- i))) + new) + tree))) + +(fset 'current-time-seconds 'current-time) + +(defun keymap-parent (keymap) + (let ((tail (cdr keymap))) + (while (and tail (not (eq (car tail) 'keymap))) + (setq tail (cdr tail))) + tail)) + +(defun set-keymap-parent (keymap new-parent) + (let ((tail (cdr keymap))) + (while (and tail (cdr tail) (not (eq (car (cdr tail)) 'keymap))) + (setq tail (cdr tail))) + (if tail + (setcdr tail new-parent)))) + +(defun remove-hook (hook-var function) + (if (boundp 'hook-var) + (set hook-var (delq function (symbol-value hook-var))))) + +(defun remprop (symbol prop) + (let ((plist (symbol-plist symbol))) + (while (eq (car plist) prop) + (setplist symbol (setq plist (cdr (cdr plist))))) + (while plist + (if (eq (nth 2 plist) prop) + (setcdr (cdr plist) (nthcdr 4 plist))) + (setq plist (cdr (cdr plist)))))) |