/[emacs]/emacs/lisp/emacs-lisp/lisp.el
ViewVC logotype

Diff of /emacs/lisp/emacs-lisp/lisp.el

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.46.4.8 by miles, Sat Sep 4 09:28:13 2004 UTC revision 1.46.4.9 by miles, Thu Sep 16 00:12:21 2004 UTC
# Line 149  With ARG, kill that many sexps before th Line 149  With ARG, kill that many sexps before th
149  Negative arg -N means kill N sexps after the cursor."  Negative arg -N means kill N sexps after the cursor."
150    (interactive "p")    (interactive "p")
151    (kill-sexp (- (or arg 1))))    (kill-sexp (- (or arg 1))))
152    
153    ;; After Zmacs:
154    (defun kill-backward-up-list (&optional arg)
155      "Kill the form containing the current sexp, leaving the sexp itself.
156    A prefix argument ARG causes the relevant number of surrounding
157    forms to be removed."
158      (interactive "*p")
159      (let ((current-sexp (thing-at-point 'sexp)))
160        (if current-sexp
161            (save-excursion
162              (backward-up-list arg)
163              (kill-sexp)
164              (insert current-sexp))
165          (error "Not at a sexp"))))
166    
167  (defvar beginning-of-defun-function nil  (defvar beginning-of-defun-function nil
168    "If non-nil, function for `beginning-of-defun-raw' to call.    "If non-nil, function for `beginning-of-defun-raw' to call.

Legend:
Removed from v.1.46.4.8  
changed lines
  Added in v.1.46.4.9

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26