;; GNU Emacs is free software; you can redistribute it and/or modify
;; it under the terms of the GNU General Public License as published by
-;; the Free Software Foundation; either version 1, or (at your option)
+;; the Free Software Foundation; either version 2, or (at your option)
;; any later version.
;; GNU Emacs is distributed in the hope that it will be useful,
;;; The variable byte-code-vector is defined by the new bytecomp.el.
;;; The function byte-decompile-lapcode is defined in byte-opt.el.
;;; Since we don't use byte-decompile-lapcode, let's try not loading byte-opt.
-(require 'bytecomp)
+(require 'byte-compile)
(defvar disassemble-column-1-indent 5 "*")
(defvar disassemble-column-2-indent 10 "*")
;;;
;;; GNU Emacs is free software; you can redistribute it and/or modify
;;; it under the terms of the GNU General Public License as published by
-;;; the Free Software Foundation; either version 1, or (at your option)
+;;; the Free Software Foundation; either version 2, or (at your option)
;;; any later version.
;;;
;;; GNU Emacs is distributed in the hope that it will be useful,
;; Grand Unified Debugger mode --- run gdb, sdb, dbx under Emacs control
+;; Copyright (c) 1992 Free Software Foundation, Inc.
;; @(#)gud.el 1.10
;; This file is part of GNU Emacs.
;; GNU Emacs is free software; you can redistribute it and/or modify
;; it under the terms of the GNU General Public License as published by
-;; the Free Software Foundation; either version 1, or (at your option)
+;; the Free Software Foundation; either version 2, or (at your option)
;; any later version.
;; GNU Emacs is distributed in the hope that it will be useful,
;; The overloading code was then rewritten by Barry Warsaw <bwarsaw@cen.com>,
;; who also hacked the mode to use comint.el.
-;; Note: use of this package with sdb requires that your tags.el support
-;; the find-tag-noselect entry point. Stock distributions up to 18.57 do
-;; *not* include this feature; if it's not included with this file, email
-;; eric@snark.thyrsus.com for it or get 18.58.
-
(require 'comint)
(require 'tags)
;; GNU Emacs is free software; you can redistribute it and/or modify
;; it under the terms of the GNU General Public License as published by
-;; the Free Software Foundation; either version 1, or (at your option)
+;; the Free Software Foundation; either version 2, or (at your option)
;; any later version.
;; GNU Emacs is distributed in the hope that it will be useful,
(let ((buf (current-buffer)))
(pop-to-buffer menu)
(let (buffer-read-only)
- (setq x-menu-max-width (1- (screen-width)))
+ (setq x-menu-max-width (1- (frame-width)))
(setq x-menu-item-width 0)
(let (items-head
(items-tail x-menu-items-alist))
ring_bell ();
message ("Autosaving...error for %s", name);
- Fsleep_for (make_number (1));
+ Fsleep_for (make_number (1), Qnil);
message ("Autosaving...error!for %s", name);
- Fsleep_for (make_number (1));
+ Fsleep_for (make_number (1), Qnil);
message ("Autosaving...error for %s", name);
- Fsleep_for (make_number (1));
+ Fsleep_for (make_number (1), Qnil);
return Qnil;
}