Lines Matching defs:error
27 (define-key keymap "\C-c\C-n" 'casl-compile-goto-next-error)
267 (setq casl-error-list nil)
422 ;; Automatically parse (and mouse-highlight) error messages:
424 (setq casl-error-list nil)
425 (setq casl-error-list nil)
426 (casl-parse-error)
427 (message "%s errors have been found." (length casl-error-list)))
432 (defun casl-parse-error ()
435 (setq casl-error-list nil)
449 (setq error-line (match-string-no-properties 1))
450 (setq error-colnum (match-string-no-properties 2))
451 (setq error-window-point (point))
452 (setq casl-error-list
453 (nconc casl-error-list (list (list file-name error-line error-colnum error-window-point))))
457 (defun casl-compile-goto-next-error ()
458 "search the next error position from error-list, and move to it."
460 ;; if error-list is empty ...
461 (if (null casl-error-list)
462 (casl-parse-error))
463 (if (null casl-error-list)
465 (message "no error.")
467 (let* ((this-error (pop casl-error-list))
468 (error-file-name (nth 0 this-error))
469 (error-line (nth 1 this-error))
470 (error-column (nth 2 this-error))
471 (error-window-point (nth 3 this-error)))
473 ;; (message "DEBUG<Goto Error>: file: %s, line: %s, column: %s" error-file-name error-line error-column)
475 (if (get-file-buffer error-file-name)
476 (pop-to-buffer (get-file-buffer error-file-name))
477 (generate-new-buffer error-file-name)
478 (pop-to-buffer error-file-name)
479 (insert-file-contents error-file-name))
480 ;; switch to hets-run window to jump to next error message
483 (goto-char error-window-point)
486 (goto-line (string-to-number error-line))
487 (move-to-column (- (string-to-number error-column) 1))
488 (message "goto next error... line: %s column: %s" error-line error-column)
489 (setq casl-error-list (nconc casl-error-list (list this-error)))
513 ;; We just substitute our own functions to go to the error.
519 'casl-compile-mouse-goto-error)
521 'casl-compile-goto-next-error)))