Diff of /sml/trunk/sml-mode/sml-move.el

Parent Directory | Revision Log | Patch

	revision 540, Fri Feb 18 19:46:31 2000 UTC	revision 541, Fri Feb 18 20:35:43 2000 UTC
#	Line 1	Line 1
1	;;; sml-move.el	;;; sml-move.el --- Buffer navigation functions for sml-mode
2
3	(defconst rcsid-sml-move "@(#)$Name$:$Id$")	;; Copyright (C) 1999-2000  Stefan Monnier <monnier@cs.yale.edu>
	;; Copyright (C) 1999-1999  Stefan Monnier <monnier@cs.yale.edu>
4	;;	;;
5	;; This program is free software; you can redistribute it and/or modify	;; This program is free software; you can redistribute it and/or modify
6	;; it under the terms of the GNU General Public License as published by	;; it under the terms of the GNU General Public License as published by
#	Line 18	Line 16
16	;; along with this program; if not, write to the Free Software	;; along with this program; if not, write to the Free Software
17	;; Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.	;; Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.
18
19	(require 'cl)
20		;;; Commentary:
21
22
23		;;; Code:
24
25		(eval-when-compile (require 'cl))
26	(require 'sml-util)	(require 'sml-util)
27	(require 'sml-defs)	(require 'sml-defs)
28
	;;
29	(defsyntax sml-internal-syntax-table	(defsyntax sml-internal-syntax-table
30	'((?_  . "w")	'((?_  . "w")
31	(?'  . "w")	(?'  . "w")
#	Line 93	Line 95
95	"Alist of pseudo-precedence of syntactic elements.")	"Alist of pseudo-precedence of syntactic elements.")
96
97	(defun sml-op-prec (op dir)	(defun sml-op-prec (op dir)
98	"return the precedence of OP or nil if it's not an infix.	"Return the precedence of OP or nil if it's not an infix.
99	DIR should be set to BACK if you want to precedence w.r.t the left side	DIR should be set to BACK if you want to precedence w.r.t the left side
100	and to FORW for the precedence w.r.t the right side.	and to FORW for the precedence w.r.t the right side.
101	This assumes that we are looking-at the OP."	This assumes that we are `looking-at' the OP."
102	(when op	(when op
103	(let ((sprec (cdr (assoc op sml-syntax-prec))))	(let ((sprec (cdr (assoc op sml-syntax-prec))))
104	(cond	(cond
#	Line 122	Line 124
124	(looking-at re)))	(looking-at re)))
125
126	(defun sml-find-match-forward (this match)	(defun sml-find-match-forward (this match)
127	"Only works for word matches"	"Only works for word matches."
128	(let ((level 1)	(let ((level 1)
129	(either (concat this "\\|" match)))	(either (concat this "\\|" match)))
130	(while (> level 0)	(while (> level 0)
#	Line 312	Line 314
314	(defun sml-backward-arg () (sml-backward-sexp 1000))	(defun sml-backward-arg () (sml-backward-sexp 1000))
315	(defun sml-forward-arg () (sml-forward-sexp 1000))	(defun sml-forward-arg () (sml-forward-sexp 1000))
316
317	;;
318	(provide 'sml-move)	(provide 'sml-move)
319
320		;;; sml-move.el ends here

---

Colored Diff Long Colored Diff Unidiff Context Diff Side by Side

Legend: Removed from v.540   changed lines   Added in v.541

---

root@smlnj-gforge.cs.uchicago.edu	ViewVC Help
Powered by ViewVC 1.0.0