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

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
==================

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

[Lars Ingebrigtsen]

Colin Baxter <m43cap@yandex.com> writes:

> I have just pulled the latest emacs, with the disabled M-o keymap.

What commit are you at?  A fix for a build problem was pushed some
minutes ago.

-- 
(domestic pets only, the antidote for overdose, milk.)
   bloggy blog: http://lars.ingebrigtsen.no

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

[Colin Baxter]

Dear Lars,

>>>>> Lars Ingebrigtsen <larsi@gnus.org> writes:

    > Colin Baxter <m43cap@yandex.com> writes:
    >> I have just pulled the latest emacs, with the disabled M-o
    >> keymap.

    > What commit are you at?  A fix for a build problem was pushed some
    > minutes ago.

Thanks. I obviously must have missed the fix. I have now compiled a
freshly pulled emacs and there is now no error.

Thanks again and sorry for my premature post.

Best wishes,