From 2e311f55f2409871aa7e2589cff9d2067779d01a Mon Sep 17 00:00:00 2001 From: "Richard M. Stallman" Date: Mon, 23 Sep 1996 04:28:20 +0000 Subject: [PATCH] (add-timeout): Duplicate definition deleted. (screenw-width, screen-height): Likewise. (disable-timeout, keymap-parent, set-keymap-parent): Likewise. --- lisp/emacs-lisp/lucid.el | 21 --------------------- 1 file changed, 21 deletions(-) diff --git a/lisp/emacs-lisp/lucid.el b/lisp/emacs-lisp/lucid.el index 0e94124f6b7..5ae9e31a8ee 100644 --- a/lisp/emacs-lisp/lucid.el +++ b/lisp/emacs-lisp/lucid.el @@ -21,12 +21,6 @@ ;;; Code: -(defun add-timeout (secs function object &optional resignal) - (run-at-time secs resignal function object)) - -(defun disable-timeout (timeout) - (cancel-timer timeout)) - (defun copy-tree (tree) (if (consp tree) (cons (copy-tree (car tree)) @@ -42,19 +36,6 @@ (defalias '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 keymap)) - (while (and tail (cdr tail) (not (eq (car (cdr tail)) 'keymap))) - (setq tail (cdr tail))) - (if tail - (setcdr tail new-parent)))) - (defun remprop (symbol prop) (let ((plist (symbol-plist symbol))) (while (eq (car plist) prop) @@ -210,7 +191,6 @@ bottom of the buffer stack." ;; (defalias 'screen-char-width 'frame-char-width) ;; (defalias 'screen-configuration-to-register 'frame-configuration-to-register) ;; (defalias 'screen-focus 'frame-focus) -(defalias 'screen-height 'frame-height) (defalias 'screen-list 'frame-list) ;; (defalias 'screen-live-p 'frame-live-p) (defalias 'screen-parameters 'frame-parameters) @@ -221,7 +201,6 @@ bottom of the buffer stack." (defalias 'lower-screen 'lower-frame) (defalias 'raise-screen 'raise-frame) (defalias 'screen-visible-p 'frame-visible-p) -(defalias 'screen-width 'frame-width) (defalias 'screenp 'framep) (defalias 'select-screen 'select-frame) (defalias 'selected-screen 'selected-frame) -- 2.39.2