mly@mit-prep (07/24/85)
From: Richard Mlynarik <mly@mit-prep> The following are a number of simple fixes, made by diff'ing current sources against the distributed (15.56) sources. Thanks to those who have submitted bug reports and fixes. Please send GNU Emacs bug reports to bug-gnu-emacs@mit-prep.arap (...seismo!bug-gnu-emacs%mit-prep) After making these fixes, you should enter Emacs, and type "m-x byte-recompile-directory RET <emacs `lisp' source directory> RET". Then run `make' in the emacs `src' directory to create and dump out a new emacs. ---------------------------------------------------------------------- diff simple.el ../dist-16.56/lisp/simple.el 129c129 < (beginning-of-line) --- > (end-of-line) 135,142c135,141 < (if (not (and thisblank singleblank)) < (save-excursion < (end-of-line) < (forward-line 1) < (delete-region (dot) < (if (re-search-forward "[^ \t\n]" nil t) < (progn (beginning-of-line) (dot)) < (dot-max))))))) --- > (save-excursion > (end-of-line) > (forward-line 1) > (delete-region (dot) > (if (re-search-forward "[^ \t\n]" nil t) > (progn (beginning-of-line) (dot)) > (dot-max)))))) 654c653 < With no prefix argument, set mark, and push previous mark on mark ring. --- > With no argument, set mark, and push previous mark on mark ring. 743c742 < (defvar temporary-goal-column 0 --- > (defvar temporary-goal-column nil diff view.el ../dist-16.56/lisp/view.el 93,102c93 < (define-key view-mode-map "p" 'view-search-last-regexp-backward) < (define-key view-mode-map "\C-x" (make-keymap)) < (fillarray (lookup-key view-mode-map "\C-x") 'view-undefined) < (define-key view-mode-map "\C-x]" 'forward-page) < (define-key view-mode-map "\C-x[" 'backward-page) < (define-key view-mode-map "\C-x/" 'dot-to-register) < (define-key view-mode-map "\C-xj" 'register-to-dot) < (define-key view-mode-map "\C-x1" 'delete-other-windows) < (define-key view-mode-map "\C-x2" 'split-window-vertically) < (define-key view-mode-map "\C-x5" 'split-window-horizontally)) --- > (define-key view-mode-map "p" 'view-search-last-regexp-backward)) 104d94 < 179,187d168 < (defun view-helpful-message () < (message < (if (and (eq (key-binding "\C-h") 'Helper-help) < (eq (key-binding "?") 'Helper-describe-bindings) < (eq (key-binding "\C-c") 'exit-recursive-edit)) < "Type C-h for help, ? for commands, C-c to quit" < (substitute-command-keys < "Type \\[Helper-help] for help, \\[Helper-describe-bindings] for commands, \\[exit-recursive-edit] to quit.")))) < 191c172,174 < (view-helpful-message)) --- > (message > (substitute-command-keys > "Type \\[Helper-help] for help, \\[Helper-describe-bindings] for commands, \\[exit-recursive-edit] to quit."))) 232c215,217 < (view-helpful-message) --- > (message > (substitute-command-keys > "Type \\[Helper-help] for help, \\[Helper-describe-bindings] for commands, \\[exit-recursive-edit] to quit.")) diff mail-utils.el ../dist-16.56/lisp/mail-utils.el 61,72c61,76 < (if (null rmail-dont-reply-to-names) < (setq rmail-dont-reply-to-names (regexp-quote (getenv "USER")))) < (let ((match (concat "\\(\\`\|,\\)[ \t\n]*\\(" < rmail-dont-reply-to-names < "\\)")) < (case-fold-search t) < pos) < (while (setq pos (string-match match userids)) < (if (> pos 0) (setq pos (1+ pos))) < (setq userids < (mail-string-delete < userids pos (string-match "[ \t\n,]" userids pos)))) --- > (let (pos) > (if (not rmail-dont-reply-to-names) > (setq rmail-dont-reply-to-names (getenv "USER"))) > (if rmail-dont-reply-to-names > (progn > (while (setq pos > (string-match (concat "\\(^\\|,\\) *\\(" > rmail-dont-reply-to-names > "\\)") > (downcase userids))) > (if (> pos 0) > (setq pos (1+ pos))) > (setq userids > (mail-string-delete userids > pos > (string-match "[ ,]" userids pos)))))) 74c78 < (if (setq pos (string-match "[ ,\t\n]*\\'" userids)) --- > (if (setq pos (string-match ", *$" userids)) 77c81 < (mail-string-delete userids 0 (1- (string-match "[^ \t\n,]*" userids))))) --- > (mail-string-delete userids 0 (1- (string-match "[^ ]*" userids))))) diff shell.el ../dist-16.56/lisp/shell.el 172,210c172,201 < (goto-char last-input-start) < (cond ((looking-at "popd\n") < (if shell-directory-stack < (progn < (cd (car shell-directory-stack)) < (setq shell-directory-stack (cdr shell-directory-stack))))) < ((looking-at "pushd\n") < (if shell-directory-stack < (let ((old default-directory)) < (cd (car shell-directory-stack)) < (setq shell-directory-stack < (cons old (cdr shell-directory-stack)))))) < ((looking-at "pushd[ \t]") < (let (dir) < (skip-chars-forward "^ ") < (skip-chars-forward " \t") < (if (file-directory-p < (setq dir < (expand-file-name < (substitute-in-file-name < (buffer-substring (dot) < (1- last-input-end)))))) < (progn < (setq shell-directory-stack < (cons default-directory shell-directory-stack)) < (cd dir))))) < ((looking-at "cd\n") < (cd (getenv "HOME"))) < ((looking-at "cd[ \t]") < (let (dir) < (forward-char 3) < (skip-chars-forward " \t") < (if (file-directory-p < (setq dir < (expand-file-name < (substitute-in-file-name < (buffer-substring (dot) < (1- last-input-end)))))) < (cd dir)))))) --- > (goto-char last-input-start) > (if (looking-at "popd\n") > (if shell-directory-stack > (progn > (cd (car shell-directory-stack)) > (setq shell-directory-stack (cdr shell-directory-stack))))) > (if (looking-at "pushd\n") > (if shell-directory-stack > (let ((old default-directory)) > (cd (car shell-directory-stack)) > (setq shell-directory-stack > (cons old (cdr shell-directory-stack)))))) > (if (looking-at "pushd ") > (progn > (skip-chars-forward "^ ") > (skip-chars-forward " \t") > (if (file-directory-p (buffer-substring (dot) (1- last-input-end))) > (progn > (setq shell-directory-stack > (cons default-directory shell-directory-stack)) > (cd (buffer-substring (dot) (1- last-input-end))))))) > (if (looking-at "cd\n") > (cd (getenv "HOME"))) > (if (looking-at "cd ") > (progn > (forward-char 3) > (skip-chars-forward " \t") > (if (file-directory-p (buffer-substring (dot) > (1- last-input-end))) > (cd (buffer-substring (dot) (1- last-input-end))))))) diff ../src/sysdep.c ../dist-16.56/src/sysdep.c 264c264 < gtty (0,&sg); --- > gtty (&sg); diff ../man/emacs.tex ../dist-16.56/man/emacs.tex 516c516 < --@var[ch]-Emacs: @var[buf] (@var[major] @var[minor])----@var[pos]%------ --- > --@var{ch}-Emacs: @var[buf] (@var[major] @var[minor])----@var[pos]%------ 585c585 < If the variable @code{visible-bell} is non-@code{nil}, Emacs attempts --- > If the variable @code{visible-bell} is non-@code{nil}, Emacs attempts 591c591 < The variable @code{echo-keystrokes} controls the echoing of --- > The variable @code{echo-keystrokes} controls the echoing of 597c597 < If the variable @code{ctl-arrow} is @code{nil}, control characters --- > If the variable @code{ctl-arrow} is @code{nil}, control characters 2227c2227 < @cfindex{backward-kill-sexp} --- > @cfindex{backward-kill-xsexp} 3111,3112c3111 < The special characters are @samp{$}, @samp{^}, @samp{.}, @samp{*}, < @samp{+}, @samp{[}, @samp{]} and @samp{\}. --- > The special characters are @samp{$}, @samp{^}, @samp{.}, @samp{*}, @samp{[}, @samp{]} and @samp{\}. 3172,3178d3170 < @item + < Is a suffix character similar to @samp{*} except that it < requires that the preceeding expression be matched at least once. So, < for example, @samp{c[ad]+r} will match the strings @samp{car} and < @samp{caaadar} but not the string @samp{cr}, whereas @samp{c[ad]*r} < would match all three strings. < 5364,5365c5356,5357 < normally @code{paragraph-start} is @code{@ttfont("^[ \t\n\f]")} and < @code{paragraph-separate} is @samp{@ttfont("^[ \t\f]*$")}. --- > normally @code{paragraph-start} is @code{"^[ \t\n\f]"} and > @code{paragraph-separate} is @code{"^[ \t\f]*$"}. 5439c5431 < where pages begin. The normal value of this variable is @code{@ttfont["^\f"]}, --- > where pages begin. The normal value of this variable is @code{"^\f"}, 6577c6569 < approximate character position, and starts searching ever-increasing --- > approximate character position, and stars searching ever-increasing 7401c7393 < @code{Picture-backward-column}, which always moves point left one column, --- > @code{Picture-backward-column}, which always moves point right one column, 7632c7624 < remember to exit or abort the recursive edit when you no longer need it. --- > remember to exit or abory the recursive edit when you no longer need it. 7924c7916 < @kindex{C-Backslash} --- > @kindex{C-\}