removing facemenu-keymap gives me a bag-load of problems

[Colin Baxter]

Hello,

I have just pulled the latest emacs, with the disabled M-o keymap. And I
am afraid it gives me problems when I launch emacs. The offending item
seem to be fortran, but I'm not sure. I have appended the (long) error
message to the bottom of this email. If I add (facemenu-keymap-restore)
to my ~/.emacs then the error goes away and emacs launches
satisfactorily.

Best wishes,


Begin Error Message
==============

 (byte-code "\301\302\303\304\305\306\307\310\311\312\313\314\315\316\317 
\"#T\320\321\322\323\324\10\206\36\0\317 
\325\326\327\330\331\332\333\334\335\336&\31\207" [facemenu-color-alist 
define-widget color editable-field "Choose a color name (with sample)." :format 
"%{%t%}: %v (%{sample%})\n" :value-create widget-color-value-create :size apply 
max 13 mapcar length defined-colors :tag "Color" :value "black" :completions 
:sample-face-get widget-color-sample-face-get :notify widget-color-notify 
:match widget-color-match :validate widget-color-validate :action 
widget-color-action] 26)
  (require wid-edit)
  (byte-code 
"\300\301!\210\300\302!\210\3031\24\0\300\304!0\210\202\25\0\210\3051!\0\300\306!0\210\202\"\0\210\307\310\311\312#\210\307\310\313\314#\210\315\316\310\317..."
 [require cus-face wid-edit (error) cus-load (error) cus-start put 
custom-define-hook custom-type hook standard-value (nil) custom-add-to-group 
customize custom-variable custom-declare-group emacs nil "Customization of the 
One True Editor." :link (custom-manual "(emacs)Top") editing "Basic text 
editing facilities." :group convenience "Convenience features for faster 
editing." files "Support for editing files." wp "Support for editing text 
files.\nUse group `text' f..." text "Support for editing text files." data 
"Support for editing binary data files." abbrev "Abbreviation handling, typing 
shortcuts, macros." :tag "Abbreviations" matching "Various sorts of searching 
and matching." emulations "Emulations of other editors." (custom-manual 
"(emacs)Emulation") external "Interfacing to external utilities." comm 
"Communications, networking, and remote access to f..." "Communication" 
processes ...] 10)
  (custom-menu-create fortran)
  (byte-code "\300 
\301\1\302\303#\210\301\1\304\305#\210\301\1\306\307#\210\301\1\310\311#\210\301\1\312\313#\210\301\1\314\315#\210\301\1\316\317#\210\301\1\320\321#\210..."
 [make-sparse-keymap define-key ";" fortran-abbrev-start "\3;" 
fortran-comment-region "\212" fortran-split-line "\216" fortran-end-of-block 
"\220" fortran-beginning-of-block "\221" fortran-indent-subprogram "\3\27" 
fortran-window-create-momentarily "\3\22" fortran-column-ruler "\3\20" 
fortran-previous-statement "\3\16" fortran-next-statement "\3\4" 
fortran-join-line "\336" "0" fortran-electric-line-number "1" "2" "3" "4" "5" 
"6" "7" "8" "9" (lambda (def-tmp-var) (defvar fortran-menu def-tmp-var "Menu 
for Fortran mode.")) nil easy-menu-do-define fortran-menu "Menu for Fortran 
mode." "Fortran" ["Manual" (info "(emacs)Fortran") :active t :help "Read the 
Emacs manual chapter on Fortran mode"] "Customization" custom-menu-create 
fortran (["Set" Custom-set :active t :help "Set current value of all edited 
settings in the bu..."] ["Save" Custom-save :active t :help "Set and save all 
edited settings"] ["Reset to Current" Custom-reset-current :active t :help 
"Reset all edited settings to current"] ["Reset to Saved" Custom-reset-saved 
:active t :help "Reset all edited or set settings to saved"] ["Reset to 
Standard Settings" Custom-reset-standard :active t :help "Erase all 
customizations in buffer"]) ("--" ["Comment Region" fortran-comment-region 
mark-active] ["Uncomment 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 :active t :help "Move point to the 
start of the current subprogram"] ["End of Subprogram" 
fortran-end-of-subprogram :active t :help "Move point to the end of the current 
subprogram"] ("Mark" :help "Mark a region of code" ["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 :active t :help "Briefly display Fortran column numbers"] 
["72-column Window" fortran-window-create :active t :help "Set window width to 
Fortran line length"] ["Full Width Window" (enlarge-window-horizontally (- 
(frame-width) (window-width))) :active (not (window-full-width-p)) :help "Make 
window full width"] ["Momentary 72-Column Window" 
fortran-window-create-momentarily :active t :help "Briefly set window width to 
Fortran line length"] "--" ["Break Line at Point" fortran-split-line :active t 
:help "Break the current line at point"] ["Join Line" fortran-join-line :active 
t :help "Join the current line to the previous one"] ["Fill Statement/Comment" 
fill-paragraph t] "--" ["Toggle Auto Fill" auto-fill-mode :selected 
auto-fill-function :style toggle :help "Automatically fill text while typing in 
this buffe..."] ["Toggle Abbrev Mode" abbrev-mode :selected abbrev-mode :style 
toggle :help "Expand abbreviations while typing in this buffer"] ["Add Imenu 
Menu" imenu-add-menubar-index :active (not (lookup-key (current-local-map) 
[menu-bar index])) :included (fboundp 'imenu-add-to-menubar) :help "Add an 
index menu to the menu-bar"])] 10)
  (defvar fortran-mode-map (byte-code "\300 
\301\1\302\303#\210\301\1\304\305#\210\301\1\306\307#\210\301\1\310\311#\210\301\1\312\313#\210\301\1\314\315#\210\301\1\316\317#\210\301\1\320\321#\210..."
 [make-sparse-keymap define-key ";" fortran-abbrev-start "\3;" 
fortran-comment-region "\212" fortran-split-line "\216" fortran-end-of-block 
"\220" fortran-beginning-of-block "\221" fortran-indent-subprogram "\3\27" 
fortran-window-create-momentarily "\3\22" fortran-column-ruler "\3\20" 
fortran-previous-statement "\3\16" fortran-next-statement "\3\4" 
fortran-join-line "\336" "0" fortran-electric-line-number "1" "2" "3" "4" "5" 
"6" "7" "8" "9" (lambda (def-tmp-var) (defvar fortran-menu def-tmp-var "Menu 
for Fortran mode.")) nil easy-menu-do-define fortran-menu "Menu for Fortran 
mode." "Fortran" ["Manual" (info "(emacs)Fortran") :active t :help "Read the 
Emacs manual chapter on Fortran mode"] "Customization" custom-menu-create 
fortran (["Set" Custom-set :active t :help "Set current value of all edited 
settings in the bu..."] ["Save" Custom-save :active t :help "Set and save all 
edited settings"] ["Reset to Current" Custom-reset-current :active t :help 
"Reset all edited settings to current"] ["Reset to Saved" Custom-reset-saved 
:active t :help "Reset all edited or set settings to saved"] ["Reset to 
Standard Settings" Custom-reset-standard :active t :help "Erase all 
customizations in buffer"]) ("--" ["Comment Region" fortran-comment-region 
mark-active] ["Uncomment 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 :active t :help "Move point to the 
start of the current subprogram"] ["End of Subprogram" 
fortran-end-of-subprogram :active t :help "Move point to the end of the current 
subprogram"] ("Mark" :help "Mark a region of code" ["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 :active t :help "Briefly display Fortran column numbers"] 
["72-column Window" fortran-window-create :active t :help "Set window width to 
Fortran line length"] ["Full Width Window" (enlarge-window-horizontally (- 
(frame-width) (window-width))) :active (not (window-full-width-p)) :help "Make 
window full width"] ["Momentary 72-Column Window" 
fortran-window-create-momentarily :active t :help "Briefly set window width to 
Fortran line length"] "--" ["Break Line at Point" fortran-split-line :active t 
:help "Break the current line at point"] ["Join Line" fortran-join-line :active 
t :help "Join the current line to the previous one"] ["Fill Statement/Comment" 
fill-paragraph t] "--" ["Toggle Auto Fill" auto-fill-mode :selected 
auto-fill-function :style toggle :help "Automatically fill text while typing in 
this buffe..."] ["Toggle Abbrev Mode" abbrev-mode :selected abbrev-mode :style 
toggle :help "Expand abbreviations while typing in this buffer"] ["Add Imenu 
Menu" imenu-add-menubar-index :active (not (lookup-key (current-local-map) 
[menu-bar index])) :included (fboundp 'imenu-add-to-menubar) :help "Add an 
index menu to the menu-bar"])] 10) 
("/home/redknight/git/emacs/lisp/progmodes/fortran.e..." . 16882))
  (require fortran)
  (eval-buffer #<buffer  *load*> nil "/home/redknight/.emacs.d/lisp/ftnchek.el" 
nil t)  ; Reading at buffer position 3902
  (load-with-code-conversion "/home/redknight/.emacs.d/lisp/ftnchek.el" 
"/home/redknight/.emacs.d/lisp/ftnchek.el" nil t)
  (require ftnchek-mode "ftnchek")
  (byte-code "\300\301\302\"\210\300\303\304\305\306\"\"\207" [add-hook 
awk-mode-hook my-awk-mode-hook fortran-mode-hook require ftnchek-mode 
"ftnchek"] 5)
  (load "~/.emacs" noerror nomessage)
  (startup--load-user-init-file #f(compiled-function () #<bytecode 0x2672219>) 
#f(compiled-function () #<bytecode 0x798669e>) t)
  (command-line)
  (normal-top-level)

End Error Message
==================