/[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.63 by rms, Sun Feb 6 10:40:20 2005 UTC revision 1.64 by teirllm, Fri Apr 8 23:10:24 2005 UTC
# Line 31  Line 31 
31    
32  ;; Note that this variable is used by non-lisp modes too.  ;; Note that this variable is used by non-lisp modes too.
33  (defcustom defun-prompt-regexp nil  (defcustom defun-prompt-regexp nil
34    "*If non-nil, a regexp to ignore before the character that starts a defun.    "*If non-nil, a regexp to ignore before a defun.
35  This is only necessary if the opening paren or brace is not in column 0.  This is only necessary if the opening paren or brace is not in column 0.
36  See function `beginning-of-defun'.  See function `beginning-of-defun'."
   
 Setting this variable automatically makes it local to the current buffer."  
37    :type '(choice (const nil)    :type '(choice (const nil)
38                   regexp)                   regexp)
39    :group 'lisp)    :group 'lisp)
40  (make-variable-buffer-local 'defun-prompt-regexp)  (make-variable-buffer-local 'defun-prompt-regexp)
41    
42  (defcustom parens-require-spaces t  (defcustom parens-require-spaces t
43    "Non-nil means `insert-parentheses' should insert whitespace as needed."    "If non-nil, `insert-parentheses' inserts whitespace as needed."
44    :type 'boolean    :type 'boolean
45    :group 'lisp)    :group 'lisp)
46    
# Line 74  move forward across N balanced expressio Line 72  move forward across N balanced expressio
72  The place mark goes is the same place \\[forward-sexp] would  The place mark goes is the same place \\[forward-sexp] would
73  move to with the same argument.  move to with the same argument.
74  Interactively, if this command is repeated  Interactively, if this command is repeated
75  or (in Transient Mark mode) if the mark is active,  or (in Transient Mark mode) if the mark is active,
76  it marks the next ARG sexps after the ones already marked."  it marks the next ARG sexps after the ones already marked."
77    (interactive "P\np")    (interactive "P\np")
78    (cond ((and allow-extend    (cond ((and allow-extend
# Line 233  recipe (see `end-of-defun').  Major mode Line 231  recipe (see `end-of-defun').  Major mode
231  normal method is not appropriate.")  normal method is not appropriate.")
232    
233  (defun buffer-end (arg)  (defun buffer-end (arg)
234    "Return the \"far end\" position of the buffer, moving in direction ARG.    "Return the \"far end\" position of the buffer, in direction ARG.
235  If ARG is positive, that's the end of the buffer.  If ARG is positive, that's the end of the buffer.
236  Otherwise, that's the beginning of the buffer."  Otherwise, that's the beginning of the buffer."
237    (if (> arg 0) (point-max) (point-min)))    (if (> arg 0) (point-max) (point-min)))
238    
239  (defun end-of-defun (&optional arg)  (defun end-of-defun (&optional arg)
240    "Move forward to next end of defun.  With argument, do it that many times.    "Move forward to next end of defun.
241    With argument, do it that many times.
242  Negative argument -N means move back to Nth preceding end of defun.  Negative argument -N means move back to Nth preceding end of defun.
243    
244  An end of a defun occurs right after the close-parenthesis that  An end of a defun occurs right after the close-parenthesis that
# Line 299  is called as a function to find the defu Line 298  is called as a function to find the defu
298  The defun marked is the one that contains point or follows point.  The defun marked is the one that contains point or follows point.
299    
300  Interactively, if this command is repeated  Interactively, if this command is repeated
301  or (in Transient Mark mode) if the mark is active,  or (in Transient Mark mode) if the mark is active,
302  it marks the next defun after the ones already marked."  it marks the next defun after the ones already marked."
303    (interactive "p")    (interactive "p")
304    (cond ((and allow-extend    (cond ((and allow-extend
# Line 424  character is inserted ARG times." Line 423  character is inserted ARG times."
423                   (prefix-numeric-value arg))))                   (prefix-numeric-value arg))))
424    
425  (defun insert-parentheses (&optional arg)  (defun insert-parentheses (&optional arg)
426    "Enclose following ARG sexps in parentheses.  Leave point after open-paren.    "Enclose following ARG sexps in parentheses.
427    Leave point after open-paren.
428  A negative ARG encloses the preceding ARG sexps instead.  A negative ARG encloses the preceding ARG sexps instead.
429  No argument is equivalent to zero: just insert `()' and leave point between.  No argument is equivalent to zero: just insert `()' and leave point between.
430  If `parens-require-spaces' is non-nil, this command also inserts a space  If `parens-require-spaces' is non-nil, this command also inserts a space

Legend:
Removed from v.1.63  
changed lines
  Added in v.1.64

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