From 5c30ab7a71cbd9ca50e2baa2baad595005f5e5f3 Mon Sep 17 00:00:00 2001 From: Glenn Morris Date: Sun, 30 Mar 2014 17:08:55 -0700 Subject: [PATCH] vhdl-mode.el small fixup * lisp/progmodes/vhdl-mode.el (vhdl-expand-abbrev, vhdl-expand-paren): Revert 2014-03-26 merge goof; go back to using defalias. Ref: http://lists.gnu.org/archive/html/emacs-devel/2014-03/msg01104.html --- lisp/ChangeLog | 5 +++++ lisp/progmodes/vhdl-mode.el | 16 +++++++--------- 2 files changed, 12 insertions(+), 9 deletions(-) diff --git a/lisp/ChangeLog b/lisp/ChangeLog index af658ee09b6..6f0afb1a9e4 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,3 +1,8 @@ +2014-03-31 Glenn Morris + + * progmodes/vhdl-mode.el (vhdl-expand-abbrev, vhdl-expand-paren): + Revert 2014-03-26 merge goof; go back to using defalias. + 2014-03-30 Daniel Colascione * comint.el (comint-send-input): Deactivate diff --git a/lisp/progmodes/vhdl-mode.el b/lisp/progmodes/vhdl-mode.el index 458c4bd15f5..f8d5f115c62 100644 --- a/lisp/progmodes/vhdl-mode.el +++ b/lisp/progmodes/vhdl-mode.el @@ -12635,17 +12635,15 @@ expressions (e.g. for index ranges of types and signals)." (defalias 'he-list-beg 'vhdl-he-list-beg)) ;; function for expanding abbrevs and dabbrevs -(defun vhdl-expand-abbrev (arg)) -(fset 'vhdl-expand-abbrev (make-hippie-expand-function - '(try-expand-dabbrev - try-expand-dabbrev-all-buffers - vhdl-try-expand-abbrev))) +(defalias 'vhdl-expand-abbrev (make-hippie-expand-function + '(try-expand-dabbrev + try-expand-dabbrev-all-buffers + vhdl-try-expand-abbrev))) ;; function for expanding parenthesis -(defun vhdl-expand-paren (arg)) -(fset 'vhdl-expand-paren (make-hippie-expand-function - '(try-expand-list - try-expand-list-all-buffers))) +(defalias 'vhdl-expand-paren (make-hippie-expand-function + '(try-expand-list + try-expand-list-all-buffers))) ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;; Line handling functions -- 2.39.5