[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Emacs-diffs] Changes to emacs/lisp/subr.el [emacs-unicode-2]
From: |
Miles Bader |
Subject: |
[Emacs-diffs] Changes to emacs/lisp/subr.el [emacs-unicode-2] |
Date: |
Wed, 28 Jul 2004 03:09:29 -0400 |
Index: emacs/lisp/subr.el
diff -c emacs/lisp/subr.el:1.360.2.3 emacs/lisp/subr.el:1.360.2.4
*** emacs/lisp/subr.el:1.360.2.3 Sat Jul 17 02:46:46 2004
--- emacs/lisp/subr.el Wed Jul 28 07:05:50 2004
***************
*** 198,204 ****
list))
(defun butlast (list &optional n)
! "Returns a copy of LIST with the last N elements removed."
(if (and n (<= n 0)) list
(nbutlast (copy-sequence list) n)))
--- 198,204 ----
list))
(defun butlast (list &optional n)
! "Return a copy of LIST with the last N elements removed."
(if (and n (<= n 0)) list
(nbutlast (copy-sequence list) n)))
***************
*** 641,647 ****
(get (car obj) 'event-symbol-elements))))
(defun event-modifiers (event)
! "Returns a list of symbols representing the modifier keys in event EVENT.
The elements of the list may include `meta', `control',
`shift', `hyper', `super', `alt', `click', `double', `triple', `drag',
and `down'."
--- 641,647 ----
(get (car obj) 'event-symbol-elements))))
(defun event-modifiers (event)
! "Return a list of symbols representing the modifier keys in event EVENT.
The elements of the list may include `meta', `control',
`shift', `hyper', `super', `alt', `click', `double', `triple', `drag',
and `down'."
***************
*** 670,676 ****
list))))
(defun event-basic-type (event)
! "Returns the basic type of the given event (all modifiers removed).
The value is a printing character (not upper case) or a symbol."
(if (consp event)
(setq event (car event)))
--- 670,676 ----
list))))
(defun event-basic-type (event)
! "Return the basic type of the given event (all modifiers removed).
The value is a printing character (not upper case) or a symbol."
(if (consp event)
(setq event (car event)))