Mercurial > emacs
changeset 30186:835820e0df08
(fortran-imenu-generic-expression): Change definition layout.
(fortran-mode-menu): Reinstate customize entries.
| author | Dave Love <fx@gnu.org> |
|---|---|
| date | Thu, 13 Jul 2000 17:20:31 +0000 |
| parents | e0a3b434c788 |
| children | 4d83bb6198b7 |
| files | lisp/progmodes/fortran.el |
| diffstat | 1 files changed, 20 insertions(+), 18 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/progmodes/fortran.el Thu Jul 13 17:06:15 2000 +0000 +++ b/lisp/progmodes/fortran.el Thu Jul 13 17:20:31 2000 +0000 @@ -378,17 +378,19 @@ (list (list nil - ;; Lines below are: 1. leading whitespace; 2. function - ;; declaration with optional type, e.g. `real', `real*4', - ;; character(*), `double precision' and possible statement - ;; continuation; 3. untyped declarations; 4. the variable to - ;; index. [This will be fooled by `end function' allowed by G77. - ;; Also, it assumes sensible whitespace is employed.] - (concat "^\\s-+\\(\ -\\(\\sw\\|\\s-\\|[*()+]\\)*\ -\\<function\\|subroutine\\|entry\\|block\\s-*data\\|program\\)\ -[ \t" fortran-continuation-string "]+\ -\\(\\sw+\\)") + ;; [This will be fooled by `end function' allowed by G77. Also, + ;; it assumes sensible whitespace is employed.] + (concat + ;; leading whitespace: + "^\\s-+\\(" + ;; function declaration with optional type, e.g. `real', + ;; `real*4', character(*), `double precision': + "\\(\\sw\\|\\s-\\|[*()+]\\)*" + "\\<function\\|subroutine\\|entry\\|block\\s-*data\\|program\\)" + ;; Possible statement continuation: + "[ \t" fortran-continuation-string "]+" + ;; Variable to index: + "\\(\\sw+\\)") 3) ;; Un-named block data (list nil "^\\s-+\\(block\\s-*data\\)\\s-*$" 1)) @@ -424,13 +426,13 @@ fortran-mode-menu map "" `("Fortran" ["Manual" (info "(emacs)Fortran")] -;;; This loads cus-edit as things stand -- needs to be done lazily. -;;; ,(customize-menu-create 'fortran) -;;; ["Set" Custom-set t] -;;; ["Save" Custom-save t] -;;; ["Reset to Current" Custom-reset-current t] -;;; ["Reset to Saved" Custom-reset-saved t] -;;; ["Reset to Standard Settings" Custom-reset-standard t] + ["Customize" :filter (lambda (&rest junk) + (cdr (custom-menu-create 'fortran)))] + ["Set" Custom-set t] + ["Save" Custom-save t] + ["Reset to Current" Custom-reset-current t] + ["Reset to Saved" Custom-reset-saved t] + ["Reset to Standard Settings" Custom-reset-standard t] "----" ["Toggle Auto-fill" fortran-auto-fill-mode :style toggle :selected (eq auto-fill-function 'fortran-auto-fill)]