Re: Function to find outer parenthesis

Re: Function to find outer parenthesis

[David Kastrup]

"Leo Liou" <leo.liou@centrify.com> writes:

> In analyzing programs in the edit buffer, I sometimes wish I can do this - from
> where the cursor is, find the first outer "{" backward.
>
> I wonder if there is an existing function or way to do this.
> Thanks :-)

<C-M-up> runs the command backward-up-list
   which is an interactive compiled Lisp function in `lisp.el'.
It is bound to <C-M-up>, C-M-u, ESC <C-up>.
(backward-up-list &optional ARG)

Move backward out of one level of parentheses.
With ARG, do this that many times.
A negative argument means move forward but still to a less deep spot.

[back]


-- 
David Kastrup, Kriemhildstr. 15, 44793 Bochum

Function to find outer parenthesis

[Leo Liou]

[-- Attachment #1.1: Type: text/plain, Size: 309 bytes --]

In analyzing programs in the edit buffer, I sometimes wish I can do this
- from where the cursor is, find the first outer "{" backward.
I wonder if there is an existing function or way to do this.
Thanks :-)


Leo Liou
Not a shred of evidence exists in favor of the notion that life is
serious ...


[-- Attachment #1.2: Type: text/html, Size: 899 bytes --]

[-- Attachment #2: Type: text/plain, Size: 152 bytes --]

_______________________________________________
help-gnu-emacs mailing list
help-gnu-emacs@gnu.org
http://lists.gnu.org/mailman/listinfo/help-gnu-emacs

Re: Function to find outer parenthesis

[David Hansen]

On Mon, 8 May 2006 08:23:14 -0700 Leo Liou wrote:

> In analyzing programs in the edit buffer, I sometimes wish I can do
> this - from where the cursor is, find the first outer "{" backward.
>

Not exactly what you want but close:

,----[ C-h f c-beginning-of-defun RET ]
| c-beginning-of-defun is an interactive compiled Lisp function in `cc-cmds.el'.
| (c-beginning-of-defun &optional ARG)
| 
| Move backward to the beginning of a defun.
| Every top level declaration that contains a brace paren block is
| considered to be a defun.
| 
| With a positive argument, move backward that many defuns.  A negative
| argument -N means move forward to the Nth following beginning.  Return
| t unless search stops due to beginning or end of buffer.
| 
| Unlike the built-in `beginning-of-defun' this tries to be smarter
| about finding the char with open-parenthesis syntax that starts the
| defun.
`----

,----[ C-h f backward-up-list RET ]
| backward-up-list is an interactive compiled Lisp function in `lisp.el'.
| It is bound to <C-M-up>, C-M-u, ESC <C-up>.
| (backward-up-list &optional ARG)
| 
| Move backward out of one level of parentheses.
| With ARG, do this that many times.
| A negative argument means move forward but still to a less deep spot.
`----

David

Re: Function to find outer parenthesis

[Lou Vanek]

This is what I use. It aint elegant, but it gets the job done.
Works in xemacs, but probably dies an agonizing death in gnu-emacs.
Argument 'tgtchar' can be specified to make it search for any character,
and the scan can go either forwards or backwards (see 'direc').


;;__________________________________________________________________________
;;;;    Move point quickly past a certain character (and, if grouped together,
;;;;    move point past entire group composed of this character.
;;;;    Typically this function is used to scan for the next group of open
;;;;    parentheses ( ?\( ) and move one character past them. This is a way of
;;;;    quickly moving 'point' either 'up' or 'down' through s-expressions.
;;;;    lv 5/5/2006
;;;;
;;;; ARGUMENTS
;;;;   direc:  1, if move forward (default)
;;;;          -1, if move backward
;;;;
;;;; tgtchar:  character that is being scanned for.
;;;;           Once this character is found, scanning continues until
;;;;           all continuous occurrances of the character have been scanned by.
;;;;           Default character: '(', which is represented in elisp as ?\(
;;;;
;;;;   start:  location in buffer where scan is to start.
;;;;           Default: current point location.
(defun scan-and-move-past (&optional direc tgtchar start)
   ;(interactive
   ; (let ((s (read-string "Direction: " nil)))
   ;   (list (string-to-number s))))

   (if (null start)
	(setf start (point)))
   (if (null direc)
	(setf direc 1))
   (if (null tgtchar)
       (setf tgtchar ?\( ))
   (let (( p (+ start direc)))
     (and
      (do ((tgt (char-after p) (char-after (incf p direc))))
		 ((or (null tgt) (char-equal tgtchar tgt )) (cond ((null tgt) nil)
						 ((< p 1) nil)
						 (t p))))
      (incf p direc)
      (do ((tgt (char-after p) (char-after (incf p direc))))
		 ((or (null tgt) (not (char-equal tgtchar tgt )))
		  (cond ((null tgt) nil)
			((< p 1) nil)
			(t p))
		  )
        )
      (goto-char p))))


(defun samp1 ()
   (interactive)
   (scan-and-move-past  1))
(defun samp-1 ()
   (interactive)
   (scan-and-move-past -1))


(define-key slime-mode-map (kbd "C-.") 'samp1)
(define-key slime-mode-map (kbd "C-,") 'samp-1)






Leo Liou wrote:

> In analyzing programs in the edit buffer, I sometimes wish I can do this 
> - from where the cursor is, find the first outer "{" backward.
> 
> I wonder if there is an existing function or way to do this.
> Thanks :-)
> 
> 
> Leo Liou
> Not a shred of evidence exists in favor of the notion that life is 
> serious ...
> 
> 
> ------------------------------------------------------------------------
> 
> _______________________________________________
> help-gnu-emacs mailing list
> help-gnu-emacs@gnu.org
> http://lists.gnu.org/mailman/listinfo/help-gnu-emacs

Re: Function to find outer parenthesis

[Mathias Dahl]

Lou Vanek <vanek@acd.net> writes:

> This is what I use. It aint elegant, but it gets the job done.
> Works in xemacs, but probably dies an agonizing death in gnu-emacs.

How appropriate that you post in gnu.emacs.help then... ;)

Re: Function to find outer parenthesis

[Lou Vanek]

Mathias Dahl wrote:

> Lou Vanek <vanek@acd.net> writes:
> 
> 
>>This is what I use. It aint elegant, but it gets the job done.
>>Works in xemacs, but probably dies an agonizing death in gnu-emacs.
> 
> 
> How appropriate that you post in gnu.emacs.help then... ;)

my news reader doesn't say this is newsgroup 'gnu.emacs.help.'
i guess i picked the wrong week to quit smoking :)