emacs-diffs
[Top][All Lists]
Advanced

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

[Emacs-diffs] Changes to emacs/lisp/subr.el [lexbind]


From: Miles Bader
Subject: [Emacs-diffs] Changes to emacs/lisp/subr.el [lexbind]
Date: Sat, 04 Sep 2004 05:46:09 -0400

Index: emacs/lisp/subr.el
diff -c emacs/lisp/subr.el:1.307.2.17 emacs/lisp/subr.el:1.307.2.18
*** emacs/lisp/subr.el:1.307.2.17       Sat Jul 17 02:51:55 2004
--- emacs/lisp/subr.el  Sat Sep  4 09:18:38 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)))
  
***************
*** 647,653 ****
           (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'."
--- 647,653 ----
           (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'."
***************
*** 676,682 ****
        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)))
--- 676,682 ----
        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)))




reply via email to

[Prev in Thread] Current Thread [Next in Thread]