Mercurial > emacs
comparison lisp/rect.el @ 659:505130d1ddf8
*** empty log message ***
| author | Eric S. Raymond <esr@snark.thyrsus.com> |
|---|---|
| date | Sat, 30 May 1992 22:12:04 +0000 |
| parents | 1e0bc00dca7a |
| children | 71d052f72ac1 |
comparison
equal
deleted
inserted
replaced
| 658:7cbd4fcd8b0f | 659:505130d1ddf8 |
|---|---|
| 1 ;; Rectangle functions for GNU Emacs. | 1 ;;; rect.el --- rectangle functions for GNU Emacs. |
| 2 | |
| 2 ;; Copyright (C) 1985 Free Software Foundation, Inc. | 3 ;; Copyright (C) 1985 Free Software Foundation, Inc. |
| 3 | 4 |
| 4 ;; This file is part of GNU Emacs. | 5 ;; This file is part of GNU Emacs. |
| 5 | 6 |
| 6 ;; GNU Emacs is free software; you can redistribute it and/or modify | 7 ;; GNU Emacs is free software; you can redistribute it and/or modify |
| 208 (let ((aftercol (current-column)) | 209 (let ((aftercol (current-column)) |
| 209 (indent-tabs-mode nil)) | 210 (indent-tabs-mode nil)) |
| 210 (delete-char -1) | 211 (delete-char -1) |
| 211 (indent-to aftercol) | 212 (indent-to aftercol) |
| 212 (backward-char (- aftercol column)))) | 213 (backward-char (- aftercol column)))) |
| 214 | |
| 215 ;;; rect.el ends here |