xemacs-beta: lisp/utils/id-select.el comparison

comparison lisp/utils/id-select.el @ 26:441bb1e64a06 r19-15b96

Import from CVS: tag r19-15b96

author	cvs
date	Mon, 13 Aug 2007 08:51:32 +0200
parents	b82b59fe008d
children	9b50b4588a93

comparison

equal deleted inserted replaced

-:383a494979f8
+:441bb1e64a06
 ;;!emacs
 ;;
-;; LCD-ENTRY:    id-select.el|InfoDock Associates|elisp@infodock.com|Syntactical region selecting|12/02/96|1.4.3|
+;; LCD-ENTRY:    id-select.el|InfoDock Associates|elisp@infodock.com|Syntactical region selecting|02/28/97|1.4.5|
 ;;
 ;; FILE:         id-select.el
 ;; SUMMARY:      Select larger and larger syntax-driven regions in a buffer.
 ;; USAGE:        XEmacs and Emacs Lisp Library
 ;; KEYWORDS:     matching, mouse
 ;;
 ;; AUTHOR:       Bob Weiner
 ;;
-;; ORG:          InfoDock Associates.  We sell corporate support and development
+;; ORG:          InfoDock Associates.  We sell corporate support and
-;;               contracts for InfoDock, Emacs and XEmacs.
+;;               development contracts for InfoDock, Emacs and XEmacs.
 ;;               E-mail: <info@infodock.com>  Web: http://www.infodock.com
 ;;               Tel: +1 408-243-3300
 ;;
+;;
 ;; ORIG-DATE:    19-Oct-96 at 02:25:27
-;; LAST-MOD:      2-Dec-96 at 19:45:28 by Bob Weiner
+;; LAST-MOD:     28-Feb-97 at 15:36:39 by Bob Weiner
 ;;
-;; Copyright (C) 1996  InfoDock Associates
+;; Copyright (C) 1996, 1997  InfoDock Associates
 ;;
 ;; This file is part of InfoDock.
 ;; It is available for use and distribution under the terms of the GNU Public
 ;; License.
 ;;
 ;;   Loading this package automatically installs its functionalty on
 ;;   double-clicks (or higher) of the left mouse key.  (See the documentation
 ;;   for the variable, mouse-track-click-hook, for how this is done.)  A
 ;;   single click of the left button will remove the region and reset point.
 ;;
-;;   The function, id-select-thing, may be bound to a key, {C-c s}, seems to
+;;   The function, id-select-thing, may be bound to a key to provide the same
-;;   be a reasonable choice, to provide the same syntax-driven region
+;;   syntax-driven region selection functionality. {C-c C-m} is a
-;;   selection functionality.  Use {C-g} to unmark the region when done.
+;;   reasonable site-wide choice since this key is seldom used and it
-;;   Use, id-select-thing-with-mouse, if you want to bind this to a mouse key
+;;   mnemonically indicates marking something.  {C-c s} may be preferred as a
-;;   and thereby use single clicks instead of double clicks.
+;;   personal binding.
+;;
+;;   Use {C-g} to unmark the region when done.  Use,
+;;   id-select-thing-with-mouse, if you want to bind this to a mouse key and
+;;   thereby use single clicks instead of double clicks.
 ;;
 ;;   Three other commands are also provided:
 ;;    id-select-and-copy-thing - mark and copy the syntactical unit to the
 ;;      kill ring
 ;;    id-select-and-kill-thing - kill the syntactical unit at point
 ;;	     (setq sentence-end "\\([^ \t\n\r>]<\\|>\\(<[^>]*>\\)*\\|[.?!][]\"')}]*\\($\\| $\\|\t\\|  \\)\\)[ \t\n]*")
 ;;
 ;;           (define-key html-mode-map "\C-c." 'id-select-goto-matching-tag)
 ;;           )))
 ;;
+;;   If you are incredibly academic and you use the Miranda programming
+;;   language with a literate programming style (where code is preceded by a
+;;   > character in the first column, you'll want to change the line in
+;;   mira.el that reads:
+;;           (modify-syntax-entry ?> ".")
+;;   to:
+;;           (modify-syntax-entry ?> " ")
+;;
+;;   in order to make this package recognize the indented expressions of the
+;;   language.  If you don't use the literate style, no changes should be
+;;   necessary.
+;;
 ;; DESCRIP-END.
 ;;; ************************************************************************
 ;;; Public variables
 ;;; ************************************************************************
 (defvar id-select-text-modes
 '(fundamental-mode kotl-mode indented-text-mode Info-mode outline-mode text-mode)
 "*List of textual modes where paragraphs may be outdented or indented.")
 (defvar id-select-indent-modes
-(append '(asm-mode csh-mode eiffel-mode ksh-mode python-mode pascal-mode
+(append '(asm-mode csh-mode eiffel-mode ksh-mode miranda-mode python-mode
-	    sather-mode)
+	    pascal-mode sather-mode)
 	  id-select-text-modes)
 "*List of language major modes which use mostly indentation to define syntactic structure.")
 (defvar id-select-indent-non-end-regexp-alist
 '((csh-mode    "\\(\\|then\\|elsif\\|else\\)[ \t]*$")
 (eiffel-mode "\\(\\|then\\|else if\\|else\\)[ \t]*$")
 (ksh-mode    "\\(\\|then\\|elif\\|else\\)[ \t]*$")
+(miranda-mode "[ \t>]*$")
 (pascal-mode "\\(\\|then\\|else\\)[ \t]*$")
 (python-mode "[ \t]*$")
 (sather-mode "\\(\\|then\\|else if\\|else\\)[ \t]*$")
 ;;
-(fundamental-mode "[^ \t\n]")
+(fundamental-mode "[^ \t\n*]")
-(kotl-mode "[^ \t\n]")
+(kotl-mode "[^ \t\n*]")
-(indented-text-mode "[^ \t\n]")
+(indented-text-mode "[^ \t\n*]")
 (Info-mode "[^ \t\n]")
-(outline-mode "[^\\*]")
+(outline-mode "[^*]")
-(text-mode  "[^ \t\n]")
+(text-mode  "[^ \t\n*]")
 )
 "List of (major-mode . non-terminator-line-regexp) elements used to avoid early dropoff when marking indented code.")
 (defvar id-select-indent-end-regexp-alist
 '((csh-mode "end\\|while")
 	    (not (looking-at
 		  (format ".*\\S-.*%s.*%s"
 			  (regexp-quote comment-start)
 			  (regexp-quote comment-end))))))))
+(defun id-select-back-to-indentation ()
+"Move point to the first non-whitespace character on this line and return point.
+This respects the current syntax table definition of whitespace, whereas
+`back-to-indentation' does not.  This is relevant in literate programming and
+mail and news reply modes."
+(goto-char (min (progn (end-of-line) (point))
+		  (progn (beginning-of-line)
+			 (skip-syntax-forward " ")
+			 (point)))))
+(defun id-select-bigger-thing ()
+"Select a bigger object where point is."
+(prog1
+(id-select-thing)
+(setq this-command 'select-thing)))
 (defun id-select-region-bigger-p (old-region new-region)
 "Return t if OLD-REGION is smaller than NEW-REGION and NEW-REGION partially overlaps OLD-REGION, or if OLD-REGION is uninitialized."
 (if (null (car old-region))
 t
 (and (> (abs (- (cdr new-region) (car new-region)))
 		      (min (cdr old-region) (car old-region))))
 	     (and (>  (min (cdr new-region) (car new-region))
 		      (min (cdr old-region) (car old-region)))
 		  (<= (min (cdr new-region) (car new-region))
 		      (max (cdr old-region) (car old-region))))))))
-(defun id-select-bigger-thing ()
-"Select a bigger object where point is."
-(prog1
-(id-select-thing)
-(setq this-command 'select-thing)))
 (defun id-select-reset ()
 ;; Reset syntactic selection.
 (setq id-select-prior-point (point)
 	id-select-prior-buffer (current-buffer)
 			(error nil)))))
 	    eod)
 	(if (or at-def-brace
 		;; At the start of a definition:
 		;; Must be at the first non-whitespace character in the line.
-		(and (= (point) (save-excursion (back-to-indentation) (point)))
+		(and (= (point) (save-excursion (id-select-back-to-indentation)))
 		     ;; Must be on an alpha or symbol-constituent character.
 		     ;; Also allow ~ for C++ destructors.
 		     (looking-at "[a-zA-z~]\\|\\s_")
 		     ;; Previous line, if any,  must be blank or a comment
 		     ;; start or end or `defun-prompt-regexp' must be defined
 			     (id-select-at-blank-line-or-comment))))))
 	    (progn
 	      (setq id-select-previous 'brace-def-or-declaration)
 	      ;; Handle declarations and definitions embedded within classes.
 	      (if (and (= (following-char) ?{)
-		       (/= (point) (save-excursion (back-to-indentation) (point))))
+		       (/= (point) (save-excursion
+				     (id-select-back-to-indentation))))
 		  (setq at-def-brace nil))
 	      ;;
 	      (if at-def-brace nil (beginning-of-line))
 	      (if (and (not at-def-brace)
 		       (stringp defun-prompt-regexp)
 				  (looking-at outline-regexp)))
 		 ;; After indent in any other mode, must be on an alpha
 		 ;; or symbol-constituent character.
 		 (t (looking-at "[a-zA-z]\\|\\s_")))
 	   ;; Must be at the first non-whitespace character in the line.
-	   (= (point) (save-excursion (back-to-indentation) (point))))
+	   (= (point) (save-excursion (id-select-back-to-indentation))))
 	  (let* ((start-col (current-column))
 		 (opoint (if (eq major-mode 'kotl-mode)
 			     (progn (kotl-mode:to-valid-position) (point))
 			   (beginning-of-line) (point))))
 	    (while
 		(and (zerop (forward-line 1))
 		     (bolp)
-		     (or (progn (back-to-indentation)
+		     (or (progn (id-select-back-to-indentation)
 				(> (current-column) start-col))
 			 ;; If in a text mode, allow outdenting, otherwise
 			 ;; only include special lines here indented to the
 			 ;; same point as the original line.
 			 (and (or (memq major-mode id-select-text-modes)
 (setq id-select-previous 'preprocessor-def)
 (save-excursion
 (goto-char pos)
 (if (and (= (following-char) ?#)
 	       ;; Must be at the first non-whitespace character in the line.
-	       (= (point) (save-excursion (back-to-indentation) (point))))
+	       (= (point) (save-excursion (id-select-back-to-indentation))))
 	  (progn
 	    ;; Skip past continuation lines that end with a backslash.
 	    (while (and (looking-at ".*\\\\\\s-*$")
 			(zerop (forward-line 1))))
 	    (forward-line 1)
 	(goto-char (min (1+ pos) (point-max)))
 	(if (= (char-syntax (if (eobp) (preceding-char) (char-after (point))))
 	       ?\ )
 	    (id-select-set-region pos (1+ pos))
 	  (goto-char pos)
-	  (id-select-set-region
+	  (condition-case ()
-	   (save-excursion (backward-sexp) (point))
+	      (id-select-set-region
-	   (progn (forward-sexp) (point)))))))
+	       (save-excursion (backward-sexp) (point))
+	       (progn (forward-sexp) (point)))
+	    (error nil))))))
 (defun id-select-comment (pos)
 "Return rest of line from POS to newline."
 (setq id-select-previous 'comment)
 (save-excursion

Mercurial > hg > xemacs-beta

comparison lisp/utils/id-select.el @ 26:441bb1e64a06 r19-15b96