Commits

Anonymous committed 1678601

fixed .emacs @ work'

Comments (0)

Files changed (2)

+
 ;; Pymacs
 ;; Adiciona o python-mode no caminho de carregamento.
 (global-font-lock-mode t)
                 display-time-24hr-format t)
              (display-time)
 
-(idle-highlight t)
+(idle-highlight t)
+
+(put 'narrow-to-region 'disabled nil)
       (not (equal (find-charset-string string) '(ascii))))))
 
 (defalias 'pymacs-report-error (symbol-function 'error))
-
+
 ;;; Published variables and functions.
 
 (defvar pymacs-load-path nil
 equivalents, other structures are converted into Lisp handles."
   (pymacs-serve-until-reply
    "eval" `(pymacs-print-for-apply ',function ',arguments)))
-
+
 ;;; Integration details.
 
 ;; Python functions and modules should ideally look like Lisp functions and
     (apply operation arguments)))
 
 ;(add-to-list 'file-name-handler-alist '("\\.el\\'" . pymacs-file-handler))
-
+
 ;;; Gargabe collection of Python IDs.
 
 ;; Python objects which have no Lisp representation are allocated on the
       (puthash index object pymacs-weak-hash)
       (setq pymacs-used-ids (cons index pymacs-used-ids)))
     object))
-
+
 ;;; Generating Python code.
 
 ;; Many Lisp expressions cannot fully be represented in Python, at least
         (princ "(")
         (princ (pymacs-allocate-lisp expression))
         (princ ")")))))
-
+
 ;;; Communication protocol.
 
 (defvar pymacs-transit-buffer nil
           (cond ((fboundp 'set-process-query-on-exit-flag)
                  (set-process-query-on-exit-flag process nil))
                 ((fboundp 'process-kill-without-query-process)
-                 (process-kill-without-query process)))
+                (process-query-on-exit-flag process)))
           ;; Receive the synchronising reply.
           (while (progn
                    (goto-char (point-min))