🚀 go-pugleaf

In GNU Emacs 19.25.94.1 (sparc-sun-sunos4.1.3, X toolkit) of Mon Aug
22 1994 on sun25, loading completion.el and then chosing the menu
entry that this code creates:

========================================================================
(defmacro BAe-add-project (menu-item proj-name proj-number proj-env-var proj-local-dir)
  "Add the project to the BAe projects menu. 
   This will allow the user to change the project name, number
   environment variable and home directory for BAe-copyright"
  (` (define-key-after menu-bar-BAe-projects-map (vector (intern (, menu-item)) )
      (cons (, menu-item) '(lambda () (interactive)
			      (BAe-select-project (, proj-name)
						  (, proj-number)
						  (, proj-env-var)
						  (, proj-local-dir))))
      'separator3))
  )
========================================================================

causes an error:

========================================================================
Signalling: (wrong-type-argument symbolp (lambda nil (interactive) (BAe-select-project "ST6 AESD" "144108" "IDF_HOME" "/home/aip1/bullen/idf")))
  get((lambda nil (interactive) (BAe-select-project "ST6 AESD" "144108" "IDF_HOME" "/home/aip1/bullen/idf")) completion-function)
  (or (get this-command (quote completion-function)) (quote use-completion-under-or-before-point))
  (funcall (or (get this-command ...) (quote use-completion-under-or-before-point)))
  completion-before-command()
  run-hooks(command-hook-internal)
========================================================================

Here's a patch - it makes completion.el only call 'get' on
this-command if this-command is a symbol.

========================================================================
*** completion.el.~1~	Wed Jul  6 22:30:37 1994
--- completion.el	Wed Aug 31 13:50:19 1994
***************
*** 2540,2546 ****
        (cmpl-statistics-block (record-complete-failed))))
  
  (defun completion-before-command ()
!   (funcall (or (get this-command 'completion-function)
  	       'use-completion-under-or-before-point)))
  (add-hook 'pre-command-hook 'completion-before-command)
  
--- 2540,2547 ----
        (cmpl-statistics-block (record-complete-failed))))
  
  (defun completion-before-command ()
!   (funcall (or (and (symbolp this-command)
! 		    (get this-command 'completion-function))
  	       'use-completion-under-or-before-point)))
  (add-hook 'pre-command-hook 'completion-before-command)
  
========================================================================

Chris.
--
Chris.Moore@src.bae.co.uk /      Chris Moore      \ Argue for your limitations,
                         / Sowerby Research Centre \   and surely, they
                         \  British Aerospace PLC  /      are yours.
tel: +44 272 363375       \      BRISTOL, UK      /          -- Richard Bach