mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2025-12-15 10:30:25 -08:00
Code Issues Projects Releases Wiki Activity

(add-timeout): Duplicate definition deleted.

Browse source 
(screenw-width, screen-height): Likewise.
(disable-timeout, keymap-parent, set-keymap-parent): Likewise.
This commit is contained in:
Richard M. Stallman 1996-09-23 04:28:20 +00:00
parent 3b841abc54
commit 2e311f55f2
1 changed files with 0 additions and 21 deletions
Download patch file Download diff file Expand all files Collapse all files

21
lisp/emacs-lisp/lucid.el
View file

@ -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)