Lines Matching +defs:auto +defs:mode +defs:list
1 ;;; fortran.el --- Fortran mode for GNU Emacs
29 ;; This mode is documented in the Emacs manual.
32 ;; form. For editing Fortran 90 free format source, use `f90-mode'
39 ;; Fortran mode was upgraded by Stephen A. Wood (saw@cebaf.gov).
65 "Major mode for editing fixed format Fortran code."
71 "Indentation variables in Fortran mode."
76 "Comment-handling variables in Fortran mode."
82 (defcustom fortran-tab-mode-default nil
83 "*Default tabbing/carriage control style for empty files in Fortran mode.
90 (defcustom fortran-tab-mode-string "/t"
91 "*String to appear in mode line in TAB format buffers."
119 `fortran-minimum-statement-indent-fixed' (if `indent-tabs-mode' nil), or
120 `fortran-minimum-statement-indent-tab' (if `indent-tabs-mode' non-nil);
220 This variable is used in fixed format mode.
221 See the variable `fortran-column-ruler-tab' for TAB format mode."
231 This variable is used in TAB format mode.
232 See the variable `fortran-column-ruler-fixed' for fixed format mode."
262 (defcustom fortran-mode-hook nil
263 "Hook run when entering Fortran mode."
314 "Subdued level highlighting for Fortran mode.")
318 (list
341 "Medium level highlighting for Fortran mode.")
347 (list
348 (list (concat fortran-type-types "[ \t(/]*\\(*\\)?")
365 (list
376 "Gaudy level highlighting for Fortran mode.")
380 (list (list
398 "Maximum highlighting for Fortran mode.
413 "Default expressions to highlight in Fortran mode.")
418 (list
419 (list
437 "Value for `imenu-generic-expression' in Fortran mode.")
494 (add-to-list 'hs-special-modes-alist
495 `(fortran-mode ,fortran-start-block-re ,fortran-end-block-re
500 (defvar fortran-mode-syntax-table
524 "Syntax table used in Fortran mode.")
527 (let ((st (make-syntax-table fortran-mode-syntax-table)))
532 (defvar fortran-mode-map
558 (easy-menu-define fortran-menu map "Menu for Fortran mode."
598 ["Toggle auto-fill" auto-fill-mode :selected auto-fill-function
600 ["Toggle abbrev-mode" abbrev-mode :selected abbrev-mode
606 "Keymap used in Fortran mode.")
610 (defvar fortran-mode-abbrev-table
612 (define-abbrev-table 'fortran-mode-abbrev-table nil)
613 fortran-mode-abbrev-table)
614 "Abbrev table for Fortran mode.")
622 (apply 'define-abbrev fortran-mode-abbrev-table
625 (apply 'define-abbrev fortran-mode-abbrev-table
689 (defun fortran-mode ()
690 "Major mode for editing Fortran code in fixed format.
691 For free format code, use `f90-mode'.
696 Type ;? or ;\\[help-command] to display a list of built-in abbrevs for\
700 \\{fortran-mode-map}
732 Minimum indentation for statements in fixed format mode (default 6).
734 Minimum indentation for statements in TAB format mode (default 9).
757 Turning on Fortran mode calls the value of the variable `fortran-mode-hook'
761 (setq major-mode 'fortran-mode
762 mode-name "Fortran"
763 local-abbrev-table fortran-mode-abbrev-table)
764 (set-syntax-table fortran-mode-syntax-table)
765 (use-local-map fortran-mode-map)
772 (set (make-local-variable 'require-final-newline) mode-require-final-newline)
785 (set (make-local-variable 'normal-auto-fill-function) 'fortran-auto-fill)
786 (set (make-local-variable 'indent-tabs-mode) (fortran-analyze-file-format))
787 (setq mode-line-process '(indent-tabs-mode fortran-tab-mode-string))
812 (run-mode-hooks 'fortran-mode-hook))
908 ;; Insert char if not equal to `?', or if abbrev-mode is off.
909 (if (and abbrev-mode (or (eq char ??) (eq char help-char)
910 (memq event help-event-list)))
915 "List the currently defined abbrevs in Fortran mode."
918 (display-buffer (fortran-prepare-abbrev-list-buffer))
921 (defun fortran-prepare-abbrev-list-buffer ()
922 "Create a buffer listing the Fortran mode abbreviations."
925 (insert-abbrev-table-description 'fortran-mode-abbrev-table t)
928 (edit-abbrevs-mode))
934 format mode, and `fortran-column-ruler-tab' in TAB format mode.
938 (if indent-tabs-mode
981 (setq unread-command-events (list char))))))
994 (if indent-tabs-mode
1048 (and (= (if indent-tabs-mode
1479 (and auto-fill-function
1489 (defun fortran-auto-fill ()
1490 "Function to use for `normal-auto-fill-function' in Fortran mode."
1525 (if indent-tabs-mode
1671 (if indent-tabs-mode
1677 (if indent-tabs-mode
1686 (if indent-tabs-mode
1689 (if indent-tabs-mode
1834 (defalias 'fortran-auto-fill-mode 'auto-fill-mode)
1838 (let* ((auto-fill-function #'fortran-auto-fill)
1957 Use `fortran-tab-mode-default' if no non-comment statements are found
1972 (t fortran-tab-mode-default)))))
1988 (let ((auto-fill-function #'fortran-auto-fill))
2023 "Function to use for `add-log-current-defun-function' in Fortran mode."