(fortran-mode-map): Modify Customization

entry for custom-menu-create change.
(fortran-strip-sqeuence-nos): Make arg optional.  Fix regexp and
don't cons it in the search loop.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 04549011028d30af693e32c44a3c53cc0fd83ac4..a20a2818b425669474f563fb8926fae05a78fd28 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,12 @@
+2001-01-11  Dave Love  <fx@gnu.org>
+
+       * progmodes/fortran.el (fortran-mode-map): Modify Customization
+       entry for custom-menu-create change.
+       (fortran-strip-sqeuence-nos): Make arg optional.  Fix regexp and
+       don't cons it in the search loop.
+
+       * imenu.el (imenu--truncate-items): Revert last change.
+
 2001-01-11  Eli Zaretskii  <eliz@is.elta.co.il>
 
        * info.el (Info-setup-header-line): If the node header includes

diff --git a/lisp/progmodes/fortran.el b/lisp/progmodes/fortran.el
index b5b2caa2cff169e108029ee5be7396d1daecd83a..a845358a6a2a0cb7280d48dd758b870ec440eba0 100644 (file)
--- a/lisp/progmodes/fortran.el
+++ b/lisp/progmodes/fortran.el
@@ -421,53 +421,52 @@ These get fixed-format comments fontified.")
     (define-key map "9" 'fortran-electric-line-number)
 
     ;; Menu
-    (unless (boundp 'fortran-mode-menu)
-      (easy-menu-define
-       fortran-mode-menu map ""
-       `("Fortran"
-        ["Manual" (info "(emacs)Fortran")]
-        ["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" auto-fill-mode :style toggle
-         :selected auto-fill-function]
-        ["Toggle abbrev-mode" abbrev-mode :style toggle :selected abbrev-mode]
-        "----"
-        ["Comment-out Region" fortran-comment-region mark-active]
-        ["Uncomment-out region"
-         (fortran-comment-region (region-beginning) (region-end) 1)
-         mark-active]
-        ["Indent Region" indent-region mark-active]
-        ["Indent Subprogram" fortran-indent-subprogram t]
-        "----"
-        ["Beginning of Subprogram" fortran-beginning-of-subprogram t]
-        ["End of Subprogram" fortran-end-of-subprogram t]
-        ("Mark"
-         ["Subprogram" mark-defun t]
-         ["IF Block" fortran-mark-if t]
-         ["DO Block" fortran-mark-do t])
-        ["Narrow to Subprogram" narrow-to-defun t]
-        ["Widen" widen t]
-        "----"
-        ["Temporary column ruler" fortran-column-ruler t]
-        ["72-column window" fortran-window-create t]
-        ["Full Width Window"
-         (enlarge-window-horizontally (- (frame-width) (window-width)))
-         (< (window-width) (frame-width))]
-        ["Momentary 72-column window" fortran-window-create-momentarily t]
-        "----"
-        ["Break Line at Point" fortran-split-line t]
-        ["Join Line" fortran-join-line t]
-        ["Fill Statement/Comment" fill-paragraph  t]
-        "----"
-        ["Add imenu menu"
-         imenu-add-menubar-index (not (and (boundp 'imenu--index-alist)
-                                           imenu--index-alist))])))
+    (easy-menu-define
+     fortran-mode-menu map ""
+     `("Fortran"
+       ["Manual" (info "(emacs)Fortran")]
+       ("Customization"
+       ,(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" auto-fill-mode :style toggle
+       :selected auto-fill-function]
+       ["Toggle abbrev-mode" abbrev-mode :style toggle :selected abbrev-mode]
+       "----"
+       ["Comment-out Region" fortran-comment-region mark-active]
+       ["Uncomment-out region"
+       (fortran-comment-region (region-beginning) (region-end) 1)
+       mark-active]
+       ["Indent Region" indent-region mark-active]
+       ["Indent Subprogram" fortran-indent-subprogram t]
+       "----"
+       ["Beginning of Subprogram" fortran-beginning-of-subprogram t]
+       ["End of Subprogram" fortran-end-of-subprogram t]
+       ("Mark"
+       ["Subprogram" mark-defun t]
+       ["IF Block" fortran-mark-if t]
+       ["DO Block" fortran-mark-do t])
+       ["Narrow to Subprogram" narrow-to-defun t]
+       ["Widen" widen t]
+       "----"
+       ["Temporary column ruler" fortran-column-ruler t]
+       ["72-column window" fortran-window-create t]
+       ["Full Width Window"
+       (enlarge-window-horizontally (- (frame-width) (window-width)))
+       (< (window-width) (frame-width))]
+       ["Momentary 72-column window" fortran-window-create-momentarily t]
+       "----"
+       ["Break Line at Point" fortran-split-line t]
+       ["Join Line" fortran-join-line t]
+       ["Fill Statement/Comment" fill-paragraph  t]
+       "----"
+       ["Add imenu menu"
+       imenu-add-menubar-index (not (and (boundp 'imenu--index-alist)
+                                         imenu--index-alist))]))
     map)
   "Keymap used in Fortran mode.")
 \f
@@ -1789,15 +1788,14 @@ Intended as the value of `fill-paragraph-function'."
          (fortran-previous-statement)))
     (fortran-indent-line)))
 
-(defun fortran-strip-sqeuence-nos (do-space)
+(defun fortran-strip-sqeuence-nos (&optional do-space)
   "Delete all text after column 72 (assumed to be sequence numbers).
 Also delete trailing whitespace after stripping such text.  Supplying
-prefix arg DO-SPACE prevent stripping the whitespace."
+prefix arg DO-SPACE prevents stripping the whitespace."
   (interactive "p")
   (save-excursion
     (goto-char (point-min))
-    (while (re-search-forward (concat "^" (make-string 72 ?.)" \\(.*\\)")
-                             nil t)
+    (while (re-search-forward "^.\\{72\\}\\(.*\\)" nil t)
       (replace-match "" nil nil nil 1)
       (unless do-space (delete-horizontal-space)))))