Changed version to 1.2.1.

[gnu-emacs] / lisp / progmodes / asm-mode.el

diff --git a/lisp/progmodes/asm-mode.el b/lisp/progmodes/asm-mode.el
index 8b0b26a9bf0d0184dfd518ab645be0e45d185c05..7a2d74343fa575251c46c0e5f86cb08d9bedb5fa 100644 (file)
--- a/lisp/progmodes/asm-mode.el
+++ b/lisp/progmodes/asm-mode.el
@@ -19,8 +19,9 @@
 ;; GNU General Public License for more details.
 
 ;; You should have received a copy of the GNU General Public License
-;; along with GNU Emacs; see the file COPYING.  If not, write to
-;; the Free Software Foundation, 675 Mass Ave, Cambridge, MA 02139, USA.
+;; along with GNU Emacs; see the file COPYING.  If not, write to the
+;; Free Software Foundation, Inc., 59 Temple Place - Suite 330,
+;; Boston, MA 02111-1307, USA.
 
 ;;; Commentary:
 
@@ -48,8 +49,14 @@
 
 ;;; Code:
 
-(defvar asm-comment-char ?;
-  "*The comment-start character assumed by Asm mode.")
+(defgroup asm nil
+  "Mode for editing assembler code."
+  :group 'languages)
+
+(defcustom asm-comment-char ?\;
+  "*The comment-start character assumed by Asm mode."
+  :type 'character
+  :group 'asm)
 
 (defvar asm-mode-syntax-table nil
   "Syntax table used while in Asm mode.")
@@ -66,6 +73,7 @@
   (setq asm-mode-map (make-sparse-keymap))
   ;; Note that the comment character isn't set up until asm-mode is called.
   (define-key asm-mode-map ":"         'asm-colon)
+  (define-key asm-mode-map "\C-c;"      'comment-region)
   (define-key asm-mode-map "\C-i"      'tab-to-tab-stop)
   (define-key asm-mode-map "\C-j"      'asm-newline)
   (define-key asm-mode-map "\C-m"      'asm-newline)
@@ -92,7 +100,7 @@ Features a private abbrev table and the following bindings:
 \\[asm-comment]\tsmart placement of assembler comments.
 
 The character used for making comments is set by the variable
-`asm-comment-char' (which defaults to `?;').
+`asm-comment-char' (which defaults to `?\\;').
 
 Alternatively, you may set this variable in `asm-mode-set-comment-hook',
 which is called near the beginning of mode initialization.
@@ -226,4 +234,6 @@ repeatedly until you are satisfied with the kind of comment."
    )
   (end-of-line))
 
+(provide 'asm-mode)
+
 ;;; asm-mode.el ends here