Changeset 13135


Ignore:
Timestamp:
Oct 30, 2009, 9:54:18 PM (10 years ago)
Author:
gz
Message:

Do not set global value of *current-buffer*

File:
1 edited

Legend:

Unmodified
Added
Removed
  • trunk/source/cocoa-ide/hemlock/src/main.lisp

    r12430 r13135  
    3333(defun %init-hemlock ()
    3434  "Initialize hemlock's internal data structures."
    35   ;;
    36   ;; This function is defined in Buffer.Lisp.  It creates fundamental mode
    37   ;; and the buffer main.  Until this is done it is not possible to define
    38   ;; or use Hemlock variables.
    39   (setup-initial-buffer)
    40   ;;
    41   ;; Define some of the system variables.
    42   (define-some-variables)
    43   ;;
    44   ;; Site initializations such as window system variables.
    45   (site-init)
    46   ;;
    47   ;; Set up syntax table data structures.
    48   (%init-syntax-table)
    49   ;;
    50   (setq *hemlock-initialized* t))
     35  (let ((*current-buffer* nil)) ;; don't set it globally
     36    ;;
     37    ;; This function is defined in Buffer.Lisp.  It creates fundamental mode
     38    ;; and the buffer main.  Until this is done it is not possible to define
     39    ;; or use Hemlock variables.
     40    (setup-initial-buffer)
     41    ;;
     42    ;; Define some of the system variables.
     43    (define-some-variables)
     44    ;;
     45    ;; Site initializations such as window system variables.
     46    (site-init)
     47    ;;
     48    ;; Set up syntax table data structures.
     49    (%init-syntax-table)
     50    ;;
     51    (setq *hemlock-initialized* t)))
    5152
    5253
Note: See TracChangeset for help on using the changeset viewer.