From a17f9e55b2b8868dcfe540b8bb51c43c17b8cd56 Mon Sep 17 00:00:00 2001 From: "Richard M. Stallman" Date: Mon, 10 Dec 1990 03:02:52 +0000 Subject: *** empty log message *** --- lisp/emacs-lisp/lisp.el | 16 ++++++---------- 1 file changed, 6 insertions(+), 10 deletions(-) (limited to 'lisp/emacs-lisp/lisp.el') diff --git a/lisp/emacs-lisp/lisp.el b/lisp/emacs-lisp/lisp.el index 9cd267a76f4..5851e4f3ac5 100644 --- a/lisp/emacs-lisp/lisp.el +++ b/lisp/emacs-lisp/lisp.el @@ -187,21 +187,17 @@ The defun marked is the one that contains point or follows point." "Put parentheses around next ARG sexps. Leave point after open-paren. No argument is equivalent to zero: just insert () and leave point between." (interactive "P") - (if arg (skip-chars-forward " \t")) + (if arg (setq arg (prefix-numeric-value arg)) + (setq arg 0)) + (or (eq arg 0) (skip-chars-forward " \t")) (and (memq (char-syntax (preceding-char)) '(?w ?_ ?\) )) (insert " ")) -; (or (memq (char-syntax (preceding-char)) '(?\ ?> ?\( )) -; (insert " "))) (insert ?\() (save-excursion - (if arg - (forward-sexp (prefix-numeric-value arg))) + (or (eq arg 0) (forward-sexp arg)) (insert ?\)) -; (or (memq (char-syntax (following-char)) '(?\ ?> ?\( )) -; (insert " ")) - (and (memq (char-syntax (following-char)) '(?w ?_ ?\( )) - (insert " ")) - )) + (and (memq (char-syntax (following-char)) '(?w ?_ ?\( )) + (insert " ")))) (defun move-past-close-and-reindent () "Move past next `)', delete indentation before it, then indent after it." -- cgit v1.2.3