/[cmucl]/src/hemlock/lispmode.lisp
ViewVC logotype

Diff of /src/hemlock/lispmode.lisp

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.1.1.13 by wlott, Sun Oct 27 08:29:17 1991 UTC revision 1.1.1.14 by ram, Mon Nov 18 15:27:08 1991 UTC
# Line 1049  Line 1049 
1049                        mark temp fstart start nil)                        mark temp fstart start nil)
1050                       (mark-column start)))))))))                       (mark-column start)))))))))
1051    
1052    (defhvar "Lisp Indentation Local Definers"
1053      "Forms with syntax like LABELS, MACROLET, etc."
1054      :value '("LABELS" "MACROLET" "FLET"))
1055    
1056  ;;; LISP-INDENTATION-CHECK-FOR-LOCAL-DEF -- Internal.  ;;; LISP-INDENTATION-CHECK-FOR-LOCAL-DEF -- Internal.
1057  ;;;  ;;;
1058  ;;; This is a temporary hack to see how it performs.  When we are indenting  ;;; This is a temporary hack to see how it performs.  When we are indenting
# Line 1077  Line 1081 
1081           (move-mark temp2 temp1)           (move-mark temp2 temp1)
1082           (scan-char temp2 :lisp-syntax (not :constituent))           (scan-char temp2 :lisp-syntax (not :constituent))
1083           (let ((fname (nstring-upcase (region-to-string (region temp1 temp2)))))           (let ((fname (nstring-upcase (region-to-string (region temp1 temp2)))))
1084             (cond ((and (string/= fname "FLET") (string/= fname "MACROLET"))             (cond ((not (member fname (value lisp-indentation-local-definers)
1085                                   :test #'string=))
1086                    nil)                    nil)
1087                   (arg-list                   (arg-list
1088                    (1+ (mark-column start)))                    (1+ (mark-column start)))

Legend:
Removed from v.1.1.1.13  
changed lines
  Added in v.1.1.1.14

  ViewVC Help
Powered by ViewVC 1.1.5