[nongnu] elpa/lua-mode ab2d44c 038/468: Multiple changes by Reuben Thomas:

[Philip Kaludercic]

branch: elpa/lua-mode
commit ab2d44c0ab35811894e2f40fa49617098a958f1e
Author: juergen <juergen>
Commit: juergen <juergen>

    Multiple changes by Reuben Thomas:
    
    Reinstate Version: header for Emacs Lisp Package Archive, and remove
    lua-version defconst instead (so as only to have the version in one
    place).
    
    Remove install.rst, folding the one comment not already in
    lua-mode.el, about hs-minor-mode, into lua-mode.el. This reduces the
    "distribution" to a single file, making it simpler, especially for the
    ELisp Package Archive (ELPA).
    
    Remove folding-mode comments.
    
    Remove XEmacs tests, as specific feature tests are already used.
    
    Add syntax colouring for variable declarations (closes patch #1842).
    
    Add syntax colouring for long strings (closes FR #2068).
    
    Remove replace-in-string definition, and call replace-regexp-in-string
    directly, since we only call it once.
    
    Use "FIXME" consistently throughout lua-mode.el
---
 lua-mode.el | 246 +++++++-----------------------------------------------------
 1 file changed, 27 insertions(+), 219 deletions(-)

diff --git a/lua-mode.el b/lua-mode.el
index d088503..92d5513 100755
--- a/lua-mode.el
+++ b/lua-mode.el
@@ -12,6 +12,7 @@
 ;;              Paul Du Bois <pld-lua@gelatinous.com> and
 ;;              Aaron Smith <aaron-lua@gelatinous.com>.
 ;; URL:                http://lua-mode.luaforge.net/
+;; Version:    20100404
 ;; This file is NOT part of Emacs.
 ;;
 ;; This program is free software; you can redistribute it and/or
@@ -29,9 +30,6 @@
 ;; Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston,
 ;; MA 02110-1301, USA.
 
-(defconst lua-version "20100318"
-  "Lua Mode version number.")
-
 ;; Keywords: languages, processes, tools
 
 
@@ -40,7 +38,7 @@
 ;; Thanks to Tobias Polzin <polzin<at>gmx.de> for function indenting
 ;; patch: Indent "(" like "{"
 
-;; Thanks to  Fabien <fleutot<at>gmail.com> for imenu patches.
+;; Thanks to Fabien <fleutot<at>gmail.com> for imenu patches.
 
 ;; Special Thanks to Simon Marshall <simonm@mail.esrin.esa.it> for
 ;; font-lock patches.
@@ -48,20 +46,15 @@
 ;; Additional font-lock highlighting and indentation tweaks by
 ;; Adam D. Moss <adam@gimp.org> <aspirin@icculus.org>
 
-;; This file was written with emacs using Jamie Lokier's folding mode
-;; That's what the funny ;;{{{ ;;}}} marks are there for
-
-;;{{{ INSTALLATION:
+;; INSTALLATION:
 
 ;; To install, just drop this file into a directory on your load-path (and
 ;; byte-compile it).  To set up Emacs to automatically edit files ending in
-;; ".lua" using lua-mode add the following to your ~/.emacs file (GNU
-;; Emacs) or ~/.xemacs/init.el file (XEmacs):
+;; ".lua" using lua-mode add the following to your init file:
 ;;    (setq auto-mode-alist (cons '("\\.lua$" . lua-mode) auto-mode-alist))
 ;;    (autoload 'lua-mode "lua-mode" "Lua editing mode." t)
 
-;;}}}
-;;{{{ Usage
+;; Usage
 
 ;; Lua-mode supports c-mode style formatting and sending of
 ;; lines/regions/files to a Lua interpreter. An interpreter (see
@@ -71,8 +64,9 @@
 ;; interactive shell. See the documentation for `comint.el' for
 ;; details.
 
-;;}}}
-;;{{{ Key-bindings
+;; Lua-mode works with Hide Show minor mode (see ``hs-minor-mode``).
+
+;; Key-bindings
 
 ;; To see all the keybindings for Lua mode, look at `lua-setup-keymap'
 ;; or start `lua-mode' and type `\C-h m'.
@@ -88,17 +82,10 @@
 ;;      (define-key lua-mode-map <your-key> <function>)
 ;; for all the functions you need.
 
-;;}}}
 
 ;;; Code:
-(defconst lua-using-xemacs (string-match "XEmacs" emacs-version)
-  "Nil unless using XEmacs).")
-
-;; We need that !
 (require 'comint)
 
-;;{{{ variables
-
 ;; Local variables
 (defgroup lua nil
   "Major mode for editing lua code."
@@ -182,7 +169,7 @@ traceback location."
 (defvar lua-mode-menu (make-sparse-keymap "Lua")
   "Keymap for lua-mode's menu.")
 
-(defvar lua-xemacs-menu
+(defvar lua-emacs-menu
   '(["Restart With Whole File" lua-restart-with-whole-file t]
     ["Kill Process" lua-kill-process t]
     ["Hide Process Buffer" lua-hide-process-buffer t]
@@ -197,7 +184,7 @@ traceback location."
     ["Send Proc" lua-send-proc t]
     ["Send Buffer" lua-send-buffer t]
     ["Search Documentation" lua-search-documentation t])
-  "XEmacs menu for Lua mode.")
+  "Emacs menu for Lua mode.")
 
 (defvar lua-font-lock-keywords
   (eval-when-compile
@@ -208,7 +195,6 @@ traceback location."
      '("\\(local[ \t]+\\(\\sw+\\)[ \t]*=\\)"
        (2 font-lock-variable-name-face))
 
-     ;;
      ;; Function name declarations.
      '("^[ \t]*\\<\\(\\(local[ \t]+\\)?function\\)\\>[ 
\t]+\\(\\(\\sw:\\|\\sw\\.\\|\\sw_\\|\\sw\\)+\\)"
        (1 font-lock-keyword-face) (3 font-lock-function-name-face nil t))
@@ -217,16 +203,14 @@ traceback location."
      '("\\(\\(\\sw:\\|\\sw\\.\\|\\sw_\\|\\sw\\)+\\)[ \t]*=[ 
\t]*\\(function\\)\\>"
        (1 font-lock-function-name-face nil t) (3 font-lock-keyword-face))
 
-     ; Highlight multi-line comment blocks; since font-lock-mode doesn't
-     ; claim to handle the highlighting of multi-line expressions elegantly
-     ; this works best with lazy-lock-mode if your Emacs supports it, e.g.
-     ; try (setq font-lock-support-mode 'lazy-lock-mode) in your ~/.emacs
-
-     ;; Multi-line comment blocks.
-     `("\\(?:^\\|[^-]\\)\\(--\\[\\(=*\\)\\[\\(?:.\\|\n\\)*?\\]\\2\\]\\)"
+     ;; Long comment blocks.
+     '("\\(?:^\\|[^-]\\)\\(--\\[\\(=*\\)\\[\\(?:.\\|\n\\)*?\\]\\2\\]\\)"
        (1 font-lock-comment-face t))
 
-     ;;
+     ;; Long strings.
+     '("\\(?:^\\|[^[-]\\)\\(\\[\\(=*\\)\\[\\(?:.\\|\n\\)*?\\]\\2\\]\\)"
+       (1 font-lock-string-face t))
+
      ;; Keywords.
      (concat "\\<"
              (regexp-opt '("and" "break" "do" "else" "elseif" "end" "false"
@@ -258,9 +242,6 @@ traceback location."
 (defconst lua-indent-whitespace " \t"
   "Character set that constitutes whitespace for indentation in lua.")
 
-;;}}}
-;;{{{ lua-make-temp-file
-
 (eval-and-compile
   (defalias 'lua-make-temp-file
     (if (fboundp 'make-temp-file)
@@ -272,17 +253,6 @@ traceback location."
             (temp-directory)
           temporary-file-directory))))))
 
-;;}}}
-;;{{{ replace-in-string
-
-(eval-and-compile
-  (if (not (fboundp 'replace-in-string)) ;GNU emacs doesn't have it
-      (defun replace-in-string  (string regexp newtext &optional literal)
-       (replace-regexp-in-string regexp newtext string nil literal))))
-
-;;}}}
-;;{{{ lua-mode
-
 ;;;###autoload
 (defun lua-mode ()
   "Major mode for editing Lua code.
@@ -329,17 +299,16 @@ The following keys are bound:
     ;; _ needs to be part of a word, or the regular expressions will
     ;; incorrectly regognize end_ to be matched by "\\<end\\>"!
     (modify-syntax-entry ?_ "w")
-    (if (and lua-using-xemacs
-            (featurep 'menubar)
+    (if (and (featurep 'menubar)
             current-menubar
             (not (assoc "Lua" current-menubar)))
        (progn
          (set-buffer-menubar (copy-sequence current-menubar))
-         (add-menu nil "Lua" lua-xemacs-menu)))
-    ;; Append Lua menu to popup menu for XEmacs.
-    (if (and lua-using-xemacs (boundp 'mode-popup-menu))
+         (add-menu nil "Lua" lua-emacs-menu)))
+    ;; Append Lua menu to popup menu for Emacs.
+    (if (boundp 'mode-popup-menu)
        (setq mode-popup-menu
-             (cons (concat mode-name " Mode Commands") lua-xemacs-menu)))
+             (cons (concat mode-name " Mode Commands") lua-emacs-menu)))
 
     ;; hideshow setup
     (unless (assq 'lua-mode hs-special-modes-alist)
@@ -353,9 +322,6 @@ The following keys are bound:
 ;;;###autoload
 (add-to-list 'auto-mode-alist '("\\.lua$" . lua-mode))
 
-;;}}}
-;;{{{ lua-setup-keymap
-
 (defun lua-setup-keymap ()
   "Set up keymap for Lua mode.
 If the variable `lua-prefix-key' is nil, the bindings go directly
@@ -381,9 +347,6 @@ to `lua-mode-map', otherwise they are prefixed with 
`lua-prefix-key'."
                   (define-key lua-mode-map lua-prefix-key map))
          ))
 
-;;}}}
-;;{{{ lua-electric-match
-
 (defun lua-electric-match (arg)
   "Insert character and adjust indentation."
   (interactive "P")
@@ -392,9 +355,7 @@ to `lua-mode-map', otherwise they are prefixed with 
`lua-prefix-key'."
       (lua-indent-line))
   (blink-matching-open))
 
-;;}}}
-
-;;{{{ private functions
+;; private functions
 (defun lua-syntax-status ()
   "Returns the syntactic status of the character after the point."
   (parse-partial-sexp (save-excursion (beginning-of-line) (point))
@@ -414,9 +375,6 @@ to `lua-mode-map', otherwise they are prefixed with 
`lua-prefix-key'."
   (let ((parse-result (lua-syntax-status)))
     (or (elt parse-result 3) (elt parse-result 4))))
 
-;;}}}
-;;{{{ lua-indent-line
-
 (defun lua-indent-line ()
   "Indent current line for Lua mode.
 Return the amount the indentation changed by."
@@ -439,9 +397,6 @@ Return the amount the indentation changed by."
     shift-amt
     indent))
 
-;;}}}
-;;{{{ lua-find-regexp
-
 (defun lua-find-regexp (direction regexp &optional limit ignore-p)
   "Searches for a regular expression in the direction specified.
 Direction is one of 'forward and 'backward.
@@ -459,17 +414,11 @@ ignored, nil otherwise."
        (if (not (funcall ignore-func))
            (throw 'found (point)))))))
 
-;;}}}
-;;{{{ lua-backwards-to-block-begin-or-end
-
 (defun lua-backwards-to-block-begin-or-end ()
   "Move backwards to nearest block begin or end.  Returns nil if not 
successful."
   (interactive)
   (lua-find-regexp 'backward lua-block-regexp))
 
-;;}}}
-;;{{{ var. constants
-
 (defconst lua-block-regexp
   (eval-when-compile
     ;; This is the code we used to generate the regexp:
@@ -523,9 +472,6 @@ ignored, nil otherwise."
 
     )
 
-;;}}}
-;;{{{ lua-find-matching-token-word
-
 (defun lua-find-matching-token-word (token search-start)
   (let* ((token-info (assoc token lua-block-token-alist))
         (match (car (cdr token-info)))
@@ -554,9 +500,6 @@ ignored, nil otherwise."
                      (lua-find-matching-token-word found-token nil)))
              (throw 'found nil)))))))
 
-;;}}}
-;;{{{ lua-goto-matching-block-token 
-
 (defun lua-goto-matching-block-token (&optional search-start parse-start)
   "Find block begion/end token matching the one at the point.
 This function moves the point to the token that matches the one
@@ -570,28 +513,6 @@ the matching token if successful, nil otherwise."
          (and position
               (goto-char position))))))
 
-
-;; The following may be useful to speed up the search in the future.
-;      (let ((token-type (char-syntax (string-to-char token-to-match)))
-;          matching-pos)
-;      (cond ((eq token-type ?\()
-;             (setq matching-pos (scan-sexps (point) 1 (current-buffer) t))
-;             (when matching-pos (goto-char matching-pos)))
-
-;            ((eq token-type ?\))
-;             ;; need to move one char forward, because scan-sexps
-;             ;; expects the point to be one past the closing parenthesis
-;             (forward-char 1)
-;             (setq matching-pos (scan-sexps (point) -1 (current-buffer) t))
-;             (when matching-pos (goto-char matching-pos)))
-
-;            (t
-;             (lua-goto-matching-token-word token-to-match search-start)))))))
-
-
-;;}}}
-;;{{{ lua-goto-matching-block
-
 (defun lua-goto-matching-block (&optional noreport)
   "Go to the keyword balancing the one under the point.
 If the point is on a keyword/brace that starts a block, go to the
@@ -606,9 +527,6 @@ matching keyword that ends the block, and vice versa."
        (error "Not on a block control keyword or brace.")
       position)))
 
-;;}}}
-;;{{{ lua-goto-nonblank-previous-line
-
 (defun lua-goto-nonblank-previous-line ()
   "Puts the point at the first previous line that is not blank.
 Returns the point, or nil if it reached the beginning of the buffer"
@@ -620,9 +538,6 @@ Returns the point, or nil if it reached the beginning of 
the buffer"
       (beginning-of-line)
       (if (not (looking-at "\\s *\\(--.*\\)?$")) (throw 'found (point))))))
 
-;;}}}
-;;{{{ lua-goto-nonblank-next-line
-
 (defun lua-goto-nonblank-next-line ()
   "Puts the point at the first next line that is not blank.
 Returns the point, or nil if it reached the end of the buffer"
@@ -638,9 +553,6 @@ Returns the point, or nil if it reached the end of the 
buffer"
   (defconst lua-operator-class
     "-+*/^.=<>~"))
 
-;;}}}
-;;{{{ var. constants
-
 (defconst lua-cont-eol-regexp
   (eval-when-compile
     ;; expression used to generate the regexp
@@ -671,9 +583,6 @@ Returns the point, or nil if it reached the end of the 
buffer"
 
     ))
 
-;;}}}
-;;{{{ lua-last-token-continues-p
-
 (defun lua-last-token-continues-p ()
   "Returns true if the last token on this line is a continuation token."
   (let (line-begin
@@ -691,9 +600,6 @@ Returns the point, or nil if it reached the end of the 
buffer"
       (goto-char line-end)
       (re-search-backward lua-cont-eol-regexp line-begin t))))
 
-;;}}}
-;;{{{ lua-first-token-continues-p
-
 (defun lua-first-token-continues-p ()
   "Returns true if the first token on this line is a continuation token."
   (let (line-end)
@@ -703,9 +609,6 @@ Returns the point, or nil if it reached the end of the 
buffer"
       (beginning-of-line)
       (re-search-forward lua-cont-bol-regexp line-end t))))
 
-;;}}}
-;;{{{ lua-is-continuing-statement-p
-
 (defun lua-is-continuing-statement-p (&optional parse-start)
   "Return non-nil if the line continues a statement.
 More specifically, return the point in the line that is continued.
@@ -725,9 +628,6 @@ The criteria for a continuing statement are:
                    ;; check last token of previous nonblank line
                    (lua-last-token-continues-p)))))))
 
-;;}}}
-;;{{{ lua-make-indentation-info-pair
-
 (defun lua-make-indentation-info-pair ()
   "This is a helper function to lua-calculate-indentation-info. Don't
 use standalone."
@@ -772,9 +672,6 @@ use standalone."
                           (- lua-indent-level))))))
 
 
-;;}}}
-;;{{{ lua-calculate-indentation-info
-
 (defun lua-calculate-indentation-info (&optional parse-start parse-end)
   "For each block token on the line, computes how it affects the indentation.
 The effect of each token can be either a shift relative to the current
@@ -797,9 +694,6 @@ and relative each, and the shift/column to indent to."
                (cons (lua-make-indentation-info-pair) indentation-info)))))
     indentation-info))
 
-;;}}}
-;;{{{ lua-accumulate-indentation-info
-
 (defun lua-accumulate-indentation-info (info)
   "Accumulates the indentation information previously calculated by
 lua-calculate-indentation-info. Returns either the relative indentation
@@ -815,9 +709,6 @@ shift, or the absolute column to indent to."
          info-list)
     (cons type accu)))
 
-;;}}}
-;;{{{ lua-calculate-indentation-block-modifier
-
 (defun lua-calculate-indentation-block-modifier (&optional parse-start
                                                           parse-end)
   "Return amount by which this line modifies the indentation.
@@ -847,8 +738,6 @@ one."
       (+ (lua-calculate-indentation-left-shift)
         (cdr indentation-info)
         (if (lua-is-continuing-statement-p) (- lua-indent-level) 0)))))
-;;}}}
-;;{{{ constants
 
 (defconst lua-left-shift-regexp-1
   (concat "\\("
@@ -861,7 +750,6 @@ one."
          (regexp-opt '("end") t)
          "\\>\\)"))
 
-
 (defconst lua-left-shift-regexp
   ;; This is the code we used to generate the regexp:
   ;; ("else", "elseif", "until" followed by whitespace, or "end"/closing
@@ -885,9 +773,6 @@ one."
   (+ lua-left-shift-pos-2
      (regexp-opt-depth lua-left-shift-regexp-2)))
 
-;;}}} 
-;;{{{ lua-calculate-indentation-left-shift
-
 (defun lua-calculate-indentation-left-shift (&optional parse-start)
   "Return amount, by which this line should be shifted left.
 Look for an uninterrupted sequence of block-closing tokens that starts
@@ -916,9 +801,6 @@ to the left by the amount specified in lua-indent-level."
                (forward-char (length (match-string 0))))))
       indentation-modifier)))
 
-;;}}}
-;;{{{ lua-calculate-indentation
-
 (defun lua-calculate-indentation (&optional parse-start)
   "Return appropriate indentation for current line as Lua code.
 In usual case returns an integer: the column to indent to."
@@ -950,9 +832,6 @@ In usual case returns an integer: the column to indent to."
          (forward-line -1)
          (+ (current-indentation) shift-amt))))))
 
-;;}}}
-;;{{{ lua-beginning-of-proc
-
 (defun lua-beginning-of-proc (&optional arg)
   "Move backward to the beginning of a lua proc (or similar).
 With argument, do it that many times.  Negative arg -N
@@ -981,9 +860,6 @@ Returns t unless search stops due to beginning or end of 
buffer."
                                   arg 0)))
     ret))
 
-;;}}}
-;;{{{ lua-end-of-proc
-
 (defun lua-end-of-proc (&optional arg)
   "Move forward to next end of lua proc (or similar).
 With argument, do it that many times.  Negative argument -N means move
@@ -1017,9 +893,6 @@ This function just searches for a `end' at the beginning 
of a line."
        (end-of-line))
     ret))
 
-;;}}}
-;;{{{ lua-start-process
-
 (defun lua-start-process (name &optional program startfile &rest switches)
   "Start a lua process named NAME, running PROGRAM."
   (or switches
@@ -1033,34 +906,22 @@ This function just searches for a `end' at the beginning 
of a line."
       (accept-process-output (get-buffer-process (current-buffer)))
       (goto-char (point-max)))))
 
-;;}}}
-;;{{{ lua-kill-process
-
 (defun lua-kill-process ()
   "Kill lua subprocess and its buffer."
   (interactive)
   (if lua-process-buffer
       (kill-buffer lua-process-buffer)))
 
-;;}}}
-;;{{{ lua-set-lua-region-start
-
 (defun lua-set-lua-region-start (&optional arg)
   "Set start of region for use with `lua-send-lua-region'."
   (interactive)
   (set-marker lua-region-start (or arg (point))))
 
-;;}}}
-;;{{{ lua-set-lua-region-end
-
 (defun lua-set-lua-region-end (&optional arg)
   "Set end of region for use with `lua-send-lua-region'."
   (interactive)
   (set-marker lua-region-end (or arg (point))))
 
-;;}}}
-;;{{{ lua-send-current-line
-
 (defun lua-send-current-line ()
   "Send current line to lua subprocess, found in `lua-process'.
 If `lua-process' is nil or dead, start a new process first."
@@ -1069,9 +930,6 @@ If `lua-process' is nil or dead, start a new process 
first."
         (end (save-excursion (end-of-line) (point))))
     (lua-send-region start end)))
 
-;;}}}
-;;{{{ lua-send-region
-
 (defun lua-send-region (start end)
   "Send region to lua subprocess."
   (interactive "r")
@@ -1095,7 +953,7 @@ If `lua-process' is nil or dead, start a new process 
first."
       (setq last-prompt (point-max))
       (comint-simple-send (get-buffer-process (current-buffer)) 
                          (format "dofile(\"%s\")"  
-                                 (replace-in-string tempfile "\\\\" "\\\\\\\\" 
)))
+                                 (replace-regexp-in-string "\\\\" "\\\\\\\\" 
tempfile)))
       ;; wait for prompt
       (while (not prompt-found) 
        (accept-process-output (get-buffer-process (current-buffer)))
@@ -1107,9 +965,6 @@ If `lua-process' is nil or dead, start a new process 
first."
     (if lua-always-show
        (display-buffer lua-process-buffer)))))
 
-;;}}}
-;;{{{ lua-postprocess-output-buffer
-
 (defun lua-postprocess-output-buffer (buf start &optional 
lua-stdin-line-offset)
   "Highlight tracebacks found in buf. If an traceback occurred return
 t, otherwise return nil.  BUF must exist."
@@ -1124,14 +979,11 @@ t, otherwise return nil.  BUF must exist."
                line (string-to-number (match-string 2)))))
     (when (and lua-jump-on-traceback line)
       (beep)
-      ;; TODO: highlight
+      ;; FIXME: highlight
       (lua-jump-to-traceback file line lua-stdin-line-offset)
       (setq err-p t))
     err-p))
   
-;;}}}
-;;{{{ lua-jump-to-tracebackw
-
 (defun lua-jump-to-traceback (file line lua-stdin-line-offset)
   "Jump to the Lua code in FILE at LINE."
   ;; sanity check: temporary-file-directory
@@ -1145,13 +997,10 @@ t, otherwise return nil.  BUF must exist."
       ;; Force Lua mode
       (if (not (eq major-mode 'lua-mode))
          (lua-mode))
-      ;; TODO fix offset when executing region
+      ;; FIXME: fix offset when executing region
       (goto-line line)                 
       (message "Jumping to error in file %s on line %d" file line))))
 
-;;}}}
-;;{{{ lua-prompt-line
-
 (defun lua-prompt-line ()
   (save-excursion 
     (save-match-data
@@ -1159,9 +1008,6 @@ t, otherwise return nil.  BUF must exist."
       (if (looking-at comint-prompt-regexp)
          (match-end 0)))))
 
-;;{{{ lua-send-lua-region
-;;}}}
-
 (defun lua-send-lua-region ()
   "Send preset lua region to lua subprocess."
   (interactive)
@@ -1176,9 +1022,6 @@ t, otherwise return nil.  BUF must exist."
   (if lua-always-show
       (display-buffer lua-process-buffer)))
 
-;;}}}
-;;{{{ lua-send-proc
-
 (defun lua-send-proc ()
   "Send proc around point to lua subprocess."
   (interactive)
@@ -1196,18 +1039,12 @@ t, otherwise return nil.  BUF must exist."
     (if lua-always-show
         (display-buffer lua-process-buffer))))
 
-;;}}}
-;;{{{ lua-send-buffer
-
-; This needs work... -Bret
+; FIXME: This needs work... -Bret
 (defun lua-send-buffer ()
   "Send whole buffer to lua subprocess."
   (interactive)
   (lua-send-region (point-min) (point-max)))
 
-;;}}}
-;;{{{ lua-restart-with-whole-file
-
 (defun lua-restart-with-whole-file ()
   "Restart lua subprocess and send whole file as input."
   (interactive)
@@ -1215,33 +1052,21 @@ t, otherwise return nil.  BUF must exist."
   (lua-start-process lua-default-application)
   (lua-send-buffer))
 
-;;}}}
-;;{{{ lua-show-process-buffer
-
 (defun lua-show-process-buffer ()
   "Make sure `lua-process-buffer' is being displayed."
   (interactive)
   (display-buffer lua-process-buffer))
 
-;;}}}
-;;{{{ lua-hide-process-buffer
-
 (defun lua-hide-process-buffer ()
   "Delete all windows that display `lua-process-buffer'."
   (interactive)
   (delete-windows-on lua-process-buffer))
 
-;;}}}
-;;{{{ lua-search-documentation
-
 (defun lua-search-documentation ()
   "Search Lua documentation for the word at the point."
   (interactive)
   (browse-url (concat lua-search-url-prefix (current-word t))))
 
-;;}}}
-;;{{{ lua-calculate-state
-
 (defun lua-calculate-state (arg prevstate)
   ;; Calculate the new state of PREVSTATE, t or nil, based on arg. If
   ;; arg is nil or zero, toggle the state. If arg is negative, turn
@@ -1251,9 +1076,6 @@ t, otherwise return nil.  BUF must exist."
       (not prevstate)
     (> arg 0)))
 
-;;}}}
-;;{{{ lua-toggle-electric-state
-
 (defun lua-toggle-electric-state (&optional arg)
   "Toggle the electric indentation feature.
 Optional numeric ARG, if supplied, turns on electric indentation when
@@ -1262,9 +1084,6 @@ left out."
   (interactive "P")
   (setq lua-electric-flag (lua-calculate-state arg lua-electric-flag)))
 
-;;}}}
-;;{{{ lua-forward-sexp
-
 (defun lua-forward-sexp (&optional count)
  "Forward to block end"
  (interactive "p")
@@ -1288,8 +1107,7 @@ left out."
      (setq count (1- count))))))
 
 
-;;}}}
-;;{{{ menu bar
+;; menu bar
 
 (define-key lua-mode-menu [restart-with-whole-file]
   '("Restart With Whole File" .  lua-restart-with-whole-file))
@@ -1324,17 +1142,7 @@ left out."
 (define-key lua-mode-menu [search-documentation]
   '("Search Documentation" . lua-search-documentation))
 
-;;}}}
-
 (provide 'lua-mode)
 
 
-;;{{{ Emacs local variables
-
-;; Local Variables:
-;; folded-file: t
-;; End:
-
-;;}}}
-
 ;;; lua-mode.el ends here