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

Diff of /src/hemlock/buffer.lisp

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

revision 1.1 by ram, Wed May 9 13:03:10 1990 UTC revision 1.2 by ram, Fri Jul 13 15:11:13 1990 UTC
# Line 487  Line 487 
487                 name " Mode."))                 name " Mode."))
488        (setq mode (make-mode-object        (setq mode (make-mode-object
489                    :variables (make-string-table)                    :variables (make-string-table)
490                    :bindings (make-key-table)                    :bindings (make-hash-table)
491                    :hook-name (getstring hook-str *global-variable-names*)))                    :hook-name (getstring hook-str *global-variable-names*)))
492        (setf (getstring name *mode-names*) mode)))        (setf (getstring name *mode-names*) mode)))
493    
# Line 547  Line 547 
547                           :%region region                           :%region region
548                           :modes (list (mode-object-name object))                           :modes (list (mode-object-name object))
549                           :mode-objects (list object)                           :mode-objects (list object)
550                           :bindings (make-key-table)                           :bindings (make-hash-table)
551                           :point (copy-mark (region-end region))                           :point (copy-mark (region-end region))
552                           :display-start (copy-mark (region-start region))                           :display-start (copy-mark (region-start region))
553                           :delete-hook delete-hook                           :delete-hook delete-hook

Legend:
Removed from v.1.1  
changed lines
  Added in v.1.2

  ViewVC Help
Powered by ViewVC 1.1.5