🚀 go-pugleaf

I've been getting a bunch of complaints about emacs feeping too loudly on our
X platforms ever since we installed 18.56.  It seems that someone has hardwired
in a 50% volume increase into emacs windows.  In the spirit of emacs, I decided
that it would be much more polite (and less life threatening) if the beep
volume were adjustable.  To set the volume, you can now put the following in
your .emacs:

	(setq beep_percent 50)	;;; Makes emacs beep half as loud

*** orig/src/x11term.c	Tue Feb 12 12:14:01 1991
--- new/src/x11term.c	Thu Jan 24 09:36:53 1991
***************
*** 698,713 ****
  
  XTfeep ()
  {
- 	extern int beep_percent;
  	BLOCK_INPUT_DECLARE ();
- 
- 	if (beep_percent == 0) return; /* Some displays don't really shut off */
- 
  #ifdef XDEBUG
  	fprintf (stderr, "XTfeep\n");
  #endif
  	BLOCK_INPUT ();
! 	XBell (XXdisplay, (beep_percent - 100));
  	XFlush (XXdisplay);
  	UNBLOCK_INPUT ();
  }
--- 698,709 ----
  
  XTfeep ()
  {
  	BLOCK_INPUT_DECLARE ();
  #ifdef XDEBUG
  	fprintf (stderr, "XTfeep\n");
  #endif
  	BLOCK_INPUT ();
! 	XBell (XXdisplay,50);
  	XFlush (XXdisplay);
  	UNBLOCK_INPUT ();
  }
*** orig/src/xdisp.c	Tue Feb 12 12:12:30 1991
--- new/src/xdisp.c	Tue Jan  8 10:21:59 1991
***************
*** 85,93 ****
     Try scrolling this many lines up or down if that will bring it back.  */
  int scroll_step;
  
- /* What percentage of normal volume should emacs beep at? */
- int beep_percent;
- 
  /* Nonzero means send various TERMCAP strings when screen is cleared.  */
  int reset_terminal_on_clear;
  
--- 85,90 ----
***************
*** 2018,2029 ****
      "*The number of lines to try scrolling a window by when point moves out.\n\
  If that fails to bring point back on screen, point is centered instead.\n\
  If this is zero, point is always centered after it moves off screen.");
- 
-   DEFVAR_INT ("beep-percent", &beep_percent,
-     "*The percentage of the nominal beep volume that emacs should use.\n\
- Value can be between 0 and 200.  A value of 0 turns off the beep entirely,\n\
- a value of 200 is twice as loud, and 100 is the same volume.");
-   beep_percent = 100;
  
    DEFVAR_BOOL ("reset-terminal-on-clear", &reset_terminal_on_clear,
      "Non-nil means re-init terminal modes for clear screen as on entry to Emacs.");
--- 2015,2020 ----