emacs-diffs
[Top][All Lists]
Advanced

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

master e6881f2e15 1/2: ; Delete duplicate definition from simula.el


From: Stefan Kangas
Subject: master e6881f2e15 1/2: ; Delete duplicate definition from simula.el
Date: Sun, 30 Oct 2022 16:35:03 -0400 (EDT)

branch: master
commit e6881f2e153bdaafa7522614347155d7ab655351
Author: Stefan Kangas <stefankangas@gmail.com>
Commit: Stefan Kangas <stefankangas@gmail.com>

    ; Delete duplicate definition from simula.el
    
    * lisp/progmodes/simula.el (simula-mode-menu): Delete duplicate
    menu definition.
---
 lisp/progmodes/simula.el | 15 +--------------
 1 file changed, 1 insertion(+), 14 deletions(-)

diff --git a/lisp/progmodes/simula.el b/lisp/progmodes/simula.el
index 7e9aeab8fe..a1794d3f70 100644
--- a/lisp/progmodes/simula.el
+++ b/lisp/progmodes/simula.el
@@ -1,7 +1,6 @@
 ;;; simula.el --- SIMULA 87 code editing commands for Emacs  -*- 
lexical-binding: t; -*-
 
-;; Copyright (C) 1992, 1994, 1996, 2001-2022 Free Software Foundation,
-;; Inc.
+;; Copyright (C) 1992-2022 Free Software Foundation, Inc.
 
 ;; Author: Hans Henrik Eriksen <hhe@ifi.uio.no>
 ;; Maintainer: emacs-devel@gnu.org
@@ -246,17 +245,6 @@ for SIMULA mode to function correctly."
 (defvar simula-font-lock-keywords simula-font-lock-keywords-1
   "Default expressions to highlight in Simula mode.")
 
-; The following function is taken from cc-mode.el,
-; it determines the flavor of the Emacs running
-
-(defvar simula-mode-menu
-  '(["Indent Line"           simula-indent-line t]
-    ["Backward Statement"     simula-previous-statement t]
-    ["Forward Statement"      simula-next-statement t]
-    ["Backward Up Level"      simula-backward-up-level t]
-    ["Forward Down Statement" simula-forward-down-level t])
-  "Emacs menu for SIMULA mode.")
-
 (defvar simula-mode-map
   (let ((map (make-sparse-keymap)))
     (define-key map "\C-c\C-u"   #'simula-backward-up-level)
@@ -1560,7 +1548,6 @@ If not nil and not t, move to limit of search and return 
nil."
 (let (abbrevs-changed)
   (simula-install-standard-abbrevs))
 
-;; Hilit mode support.
 
 ;; obsolete
 



reply via email to

[Prev in Thread] Current Thread [Next in Thread]