]> git.eshelyaron.com Git - emacs.git/commitdiff
(lisp-mode-shared-map): Bind `backspace' to `backward-delete-char-untabify'.
authorSam Steingold <sds@gnu.org>
Fri, 12 Jan 2001 18:07:31 +0000 (18:07 +0000)
committerSam Steingold <sds@gnu.org>
Fri, 12 Jan 2001 18:07:31 +0000 (18:07 +0000)
lisp/ChangeLog
lisp/emacs-lisp/lisp-mode.el

index f49dcde765ad286f0b4eb6d5e0c95585144764c4..1fc654fc1a1526202abf64e80c9fd5c8eae3ccf1 100644 (file)
@@ -1,3 +1,8 @@
+2001-01-12  Sam Steingold  <sds@gnu.org>
+
+       * emacs-lisp/lisp-mode.el (lisp-mode-shared-map): Bind `backspace'
+       to `backward-delete-char-untabify'.
+
 2001-01-12  Dave Love  <fx@gnu.org>
 
        * cus-edit.el (customize-menu-create): Fix the :filter following
@@ -64,7 +69,7 @@
 
 2001-01-11  Richard M. Stallman  <rms@gnu.org>
 
-       * isearch.el (isearch-lazy-highlight-update): 
+       * isearch.el (isearch-lazy-highlight-update):
        Don't look for more potential matches once maximum is exceeded.
        Use overlays-in to check correctly for overlap with current match.
        Ignore empty matches.
 
 2001-01-08  Andre Spiegel  <spiegel@gnu.org>
 
-       * vc.el (vc-default-latest-on-branch-p): New function, replaces 
+       * vc.el (vc-default-latest-on-branch-p): New function, replaces
        constant implementations in backends.
 
        * vc-cvs.el (vc-cvs-latest-on-branch-p): Removed.
        recognized.)  Embed Window Manager name into name of the generated
        EDT Emulation initialization file since the initialization file is
        Window Manager specific.  Add Commentary section to file header.
-       
+
 2001-01-07  Eli Zaretskii  <eliz@is.elta.co.il>
 
        * mail/sendmail.el (mail-mode): Doc fix.
 
 2001-01-04  Gerd Moellmann  <gerd@gnu.org>
 
-       * tooltip.el (tooltip-cancel-delayed-tip) 
+       * tooltip.el (tooltip-cancel-delayed-tip)
        (tooltip-start-delayed-tip): Renamed from tooltip-disable-timeout
        and tooltip-add-timeout.
        (tooltip-show): Set border color from faces's foreground.
        (ps-setup, ps-prologue-file, ps-begin-job, ps-begin-page)
        (ps-next-line, ps-continue-line, ps-plot-region)
        (ps-generate-postscript-with-faces, ps-end-job): Code fix.
-       
+
 2000-12-29  Kenichi Handa  <handa@etl.go.jp>
 
        * international/fontset.el (x-complement-fontset-spec): Resolve
 
 2000-12-28  Richard M. Stallman  <rms@gnu.org>
 
-       * dired-x.el (dired-guess-shell-alist-default): 
+       * dired-x.el (dired-guess-shell-alist-default):
        Use xpdf instead of acroread.
 
 2000-12-28  Kenichi Handa  <handa@etl.go.jp>
        * ls-lisp.el: Better support for the Mac and MS-Windows.
        (ls-lisp): New defgroup.
        (ls-lisp-emulation, ls-lisp-ignore-case, ls-lisp-dirs-first)
-       (ls-lisp-verbosity, ls-lisp-use-insert-directory-program) 
+       (ls-lisp-verbosity, ls-lisp-use-insert-directory-program)
        (ls-lisp-support-shell-wildcards): New defcustoms.
        (ls-lisp-parse-symlink): New function.
        (insert-directory): Code to convert switches to a list and set up
        (ls-lisp-insert-directory): New argument TIME-INDEX.  Add support
        for -C and -R switches.
        (ls-lisp-column-format): New function.
-       (ls-lisp-delete-matching, ls-lisp-handle-switches) 
+       (ls-lisp-delete-matching, ls-lisp-handle-switches)
        (ls-lisp-format-time): Add doc strings.
        (ls-lisp-handle-switches): Handle -U, -S, -X, and -F switches.
        Support ls-lisp-dirs-first.
        characters to 'term-send-raw in term-raw-map.
 
 2000-12-25  Michael Kifer  <kifer@cs.sunysb.edu>
-       
+
        * viper-init (viper-restore-cursor-type): Added condition-case
        guard.
-       
+
        * ediff-init.el (ediff-quit-hook,ediff-suspend-hook): Changed
        initialization; use add-hook.
        (ediff-file-remote-p): Use file-local-copy.
-       
+
        * ediff-ptch.el (ediff-prompt-for-patch-buffer): Improved defaults.
-       
+
        * ediff.el (ediff-patch-buffer): Bug fix.
        (ediff-revision): Allow selection of the file at the prompt.
-       
+
 2000-12-23  Stefan Monnier  <monnier@cs.yale.edu>
 
        * subr.el (combine-run-hooks): Remove.
 2000-12-21  Dave Pearson  <davep@davep.org>
 
        * quickurl.el: Commentry change, I've moved my web site.
-       
+
 2000-12-21  Vinicius Jose Latorre  <vinicius@cpqd.com.br>
 
        * ebnf2ps.el: Fix a problem with skip-chars-forward: it doesn't accept
        entry.  Doc fix.
        (ebnf-yac-skip-code): Code fix.
        (ebnf-yac-comment-chars): Const fix.
-       
+
 2000-12-21  Eli Zaretskii  <eliz@is.elta.co.il>
 
        * files.el (insert-directory-safely): New function.
        (recover-file): Use it instead of insert-directory.  From Markus
-       Rost <markus.rost@mathematik.uni-regensburg.de> 
+       Rost <markus.rost@mathematik.uni-regensburg.de>
 
 2000-12-21  Kenichi Handa  <handa@etl.go.jp>
 
 
        * image-file.el (image-file-name-extensions): Add "pgm" and "ppm".
 
-       * textmodes/artist.el (artist-replace-chars, artist-replace-char): 
+       * textmodes/artist.el (artist-replace-chars, artist-replace-char):
        Check that emacs-major-version is `=' to 20, not `>='.
        (artist-replace-chars): Use `make-string' instead of a loop.
 
        notation, and at least will yield a better error message).
 
        * window.el (mode-line-window-height-fudge): Function removed.
-       (height-affecting-face-attributes, mode-line-window-height-fudge): 
+       (height-affecting-face-attributes, mode-line-window-height-fudge):
        Variables removed.
        * textmodes/ispell.el (ispell-overlay-window): Ensure that the new
        window is really the right size.  Use vertical-motion
        ispell-choices-win-default-height, rather than the function.
        (ispell-choices-win-default-height): Function removed.
        (ispell-mode-line-window-height-fudge): Function removed.
-       
+
 2000-12-14  Stefan Monnier  <monnier@cs.yale.edu>
 
        * add-log.el (add-change-log-entry): Only expand-file-name if non-nil.
        * tooltip.el (tooltip-show): If an error is signaled in
        x-show-tip, display that error, and display the help in the
        echo area.
-       
+
 2000-12-14  Kenichi Handa  <handa@etl.go.jp>
 
        * international/ja-dic-cnv.el (skkdic-set-okuri-nasi): Show
        * obsolete/c-mode.el: Moved from lisp/progmodes.
        * obsolete/auto-show.el: Moved from lisp.
        * obsolete/ooutline.el: Moved from lisp/textmodes.
-       
+
 2000-12-11  Carsten Dominik  <dominik@strw.leidenuniv.nl>
 
        * progmodes/idlwave.el: Updated to IDLWAVE version 4.7.  Too many
        * simple.el (kill-new): Don't try to setcar kill-ring if it is
        nil.
 
-       * cus-edit.el (custom-save-variables, custom-save-faces): 
+       * cus-edit.el (custom-save-variables, custom-save-faces):
        Comment fix.
 
        * hscroll.el: Moved to `obsolete' subdir.
index d788404c47f6377cea1593b70d021e7ad03084cc..b457fa624f046b03f96eca473972f628be741870 100644 (file)
 
 (defvar lisp-imenu-generic-expression
   (list
-   (list nil 
+   (list nil
         (purecopy "^\\s-*(def\\(un\\*?\\|subst\\|macro\\|advice\\|\
 ine-skeleton\\|ine-minor-mode\\)\\s-+\\(\\sw\\(\\sw\\|\\s_\\)+\\)") 2)
-   (list (purecopy "Variables") 
+   (list (purecopy "Variables")
         (purecopy "^\\s-*(def\\(var\\|const\\|custom\\)\\s-+\
 \\(\\sw\\(\\sw\\|\\s_\\)+\\)") 2)
-   (list (purecopy "Types") 
+   (list (purecopy "Types")
         (purecopy "^\\s-*(def\\(group\\|type\\|struct\\|class\\|\
-ine-condition\\|ine-widget\\|face\\)\\s-+'?\\(\\sw\\(\\sw\\|\\s_\\)+\\)") 
+ine-condition\\|ine-widget\\|face\\)\\s-+'?\\(\\sw\\(\\sw\\|\\s_\\)+\\)")
         2))
 
   "Imenu generic expression for Lisp mode.  See `imenu-generic-expression'.")
@@ -153,11 +153,12 @@ ine-condition\\|ine-widget\\|face\\)\\s-+'?\\(\\sw\\(\\sw\\|\\s_\\)+\\)")
     (looking-at outline-regexp)
     (- (match-end 0) (match-beginning 0))))
 
-\f
+
 (defvar lisp-mode-shared-map
   (let ((map (make-sparse-keymap)))
     (define-key map "\e\C-q" 'indent-sexp)
     (define-key map "\177" 'backward-delete-char-untabify)
+    (define-key map [backspace] 'backward-delete-char-untabify)
     map)
   "Keymap for commands shared by all sorts of Lisp modes.")
 
@@ -306,7 +307,7 @@ if that value is non-nil.")
     (terpri)
     (eval-last-sexp t)
     (terpri)))
-\f
+
 (defun eval-last-sexp-1 (eval-last-sexp-arg-internal)
   "Evaluate sexp before point; print value in minibuffer.
 With argument, print output into current buffer."
@@ -331,7 +332,7 @@ With argument, print output into current buffer."
                           (forward-char -1)
                           (when (eq (preceding-char) ??)
                             (forward-char -1)))
-                        
+
                         ;; Skip over `#N='s.
                         (when (eq (preceding-char) ?=)
                           (let (labeled-p)
@@ -344,7 +345,7 @@ With argument, print output into current buffer."
                         (save-restriction
                           ;; vladimir@cs.ualberta.ca 30-Jul-1997: skip ` in
                           ;; `variable' so that the value is returned, not the
-                          ;; name 
+                          ;; name
                           (if (and ignore-quotes
                                    (eq (following-char) ?`))
                               (forward-char))
@@ -381,7 +382,7 @@ With argument, print output into current buffer."
       (unless (eq old-value new-value)
        (setq debug-on-error new-value))
       value)))
-      
+
 (defun eval-defun-1 (form)
   "Change defvar into defconst within FORM.
 Likewise for other constructs as necessary."
@@ -423,7 +424,7 @@ Return the result of evaluation."
       ;; variable.  Re-written using `apply' to avoid capturing
       ;; variables like `end'.
       (apply
-       #'eval-region 
+       #'eval-region
        (let ((standard-output t)
             beg end form)
         ;; Read the form from the buffer, and record where it ends.
@@ -475,7 +476,7 @@ the minibuffer."
               (setq debug-on-error new-value))
             value)))))
 
-\f
+
 (defun lisp-comment-indent ()
   (if (looking-at "\\s<\\s<\\s<")
       (current-column)
@@ -733,7 +734,7 @@ is the buffer position of the start of the containing expression."
        (goto-char (car (cdr state)))
        (+ lisp-body-indent (current-column)))))
 
-\f
+
 ;; (put 'progn 'lisp-indent-function 0), say, causes progn to be indented
 ;; like defun if the first form is placed on the next line, otherwise
 ;; it is indented like any other form (i.e. forms line up under first).
@@ -876,7 +877,7 @@ ENDPOS is encountered."
           (lisp-indent-line))
       (indent-sexp endmark)
       (set-marker endmark nil))))
-\f
+
 ;;;; Lisp paragraph filling commands.
 
 (defun lisp-fill-paragraph (&optional justify)
@@ -986,7 +987,7 @@ and initial semicolons."
                                          (re-search-forward comment-start-skip)
                                          (point))))))))
     t))
-\f
+
 (defun indent-code-rigidly (start end arg &optional nochange-regexp)
   "Indent all lines of code, starting in the region, sideways by ARG columns.
 Does not affect lines starting inside comments or strings, assuming that